VBA Projekte nach Verarbeitung beenden
02.06.2022 09:00:00
flo4711
In einer For/Each Schleife werden über die Funktion GetObject aus ca. 300 Excel-Dateien Informationen für eine Weiterverarbeitung geholt (die Dateien werden nicht geöffnet!).
Code Snippet:
Set wbDatei = GetObject(xPfad & objDatei.Name) ' zu verarbeitende Datei als Object definieren
iAnzahl = wbDatei.Worksheets.Count ' Anzahl der Blätter dieser Datei
strJahr = wbDatei.Worksheets(iAnzahl).Name ' Blattname als strJahr; der Blattname wird dann an die Funktion GetDataClosedWB mit übergeben
Set wbDatei = Nothing
Was könnte ich tun, dass nach jedem Schleifendurchlauf (oder ganz am Ende der Verarbeitung) diese wieder geschlossen werden?
Gruß
Gode