Excel VBA: Alle Dateien in einem Ordner nacheinander (sequentiell) aktualisieren?
Hallo liebe Excelprofis,
bislang habe ich es nur hingekriegt, via VBA eine Datei zu öffnen, die dortige Datenabfrage zu aktualisieren und wieder zu schließen:
Sub UpdateExcelFile()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Desktop\Ordner der Testabfragen\Testabfrage 1.xlsx")
ActiveWorkbook.RefreshAll
Application.CalculateUntilAsyncQueriesDone 'VBA-Code warten lassen, bis die Aktualisierung abgeschlossen ist
wb.Save
wb.Close
End Sub
Nun habe ich aber nicht nur eine Datei in dem (definierten) Ordner, sondern mehrere, die genauso wie oben geöffnet, aktualisiert und geschlossen werden sollen. Eine exakte Zahl kann ich nicht nennen, da es fortlaufend immer mehr Dateien werden. Allerdings befinden sich in dem Ordner nur xlsx-Dateien.
Aus Performancegründen möchte ich die Dateien hintereinander und nicht gleichzeitig bearbeitet haben. Der Beispielordner bleibt derselbe (Ordner der Testabfragen). Idealerweise folgt eine Mitteilung zum Ende, wenn die letzte Datei im Ordner wieder geschlossen wurde. Wie würde der Code dafür lauten?
Vielen Dank für eure Unterstützung!
