VBA - Arbeitsmappe schließen, nachdem die erforderlichen Informationen erfasst wurden
Ihre Hilfe ist beim Lösen dieses Weltproblems (Excel VBA) erforderlich. Ich benutze ein VBA, um eine immense Arbeitsmappe (500 Zellen pro Zeile) aus einer Eimerladung von Arbeitsmappen (Menge = 96) zu füllen. Der von mir verwendete VBA wurde von [@Kevin] [1] erstellt und funktioniert für ca. 20 Dateien, bis auf meinem PC nicht mehr genügend Arbeitsspeicher vorhanden ist und Excel abstürzt. Diese Art von Funktion eignet sich hervorragend für die Arbeit mit einer derart großen Anzahl von Zellen pro Arbeitsmappe, da das Öffnen und Schließen jeder Arbeitsmappe zu einem erheblichen Aufwand führt. Öffnen Sie jedes Arbeitsbuch und kopieren Sie alle 500 Zellen und schließen Sie es. Fahren Sie dann mit dem nächsten usw. ± 96 Mal fort. Dies wäre jedoch komplizierter, als wenn Sie nur diese eine Zelle zum Laufen bringen würden. Wenn Sie eine der beiden Lösungen haben, helfen Sie bitte!
Hier ist der VBA, den ich benutze:
Function GetField(Path As String, WorksheetName As String, CellRange As String) As Variant
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Set wb = GetObject(Path)
Set ws = wb.Worksheets(WorksheetName)
Set rng = ws.Range(CellRange)
GetField = rng.Value
wb.close
End Function