Vba: so öffnen sie alle dateien im ordner

Sie können eine Do While- Schleife mit der Methode „Workbooks. Open“ in VBA verwenden, um alle Dateien in einem bestimmten Ordner zu öffnen.

Hier ist eine gängige Methode, dies in der Praxis zu tun:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

Dieses spezielle Makro öffnet alle Dateien mit der Erweiterung .xlsx im folgenden Ordner:

• C:\Benutzer\bob\Dokumente\aktuelle_Daten

Das folgende Beispiel zeigt, wie dieses Makro in der Praxis verwendet wird.

Verwandte Themen: So erhalten Sie mit VBA eine Liste aller geöffneten Arbeitsmappen

Beispiel: So öffnen Sie alle Dateien in einem Ordner mit VBA

Nehmen wir an, wir haben den folgenden Ordner namens current_data , der drei XLSX- Dateien enthält:

Nehmen wir an, wir möchten VBA verwenden, um alle XLSX- Dateien in diesem Ordner zu öffnen.

Dazu können wir das folgende Makro erstellen:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

Wenn wir dieses Makro ausführen, wird jede Datei mit der Erweiterung .xlsx im Ordner einzeln geöffnet.

Beachten Sie, dass, wenn eine der Dateien im Ordner bereits geöffnet ist, diese Dateien einfach geöffnet bleiben.

Hinweis : Die vollständige Dokumentation zur Workbooks.Open- Methode in VBA finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So benennen Sie eine Datei mit VBA um
So listen Sie Dateien in einem Ordner mit VBA auf
So überprüfen Sie mit VBA, ob eine Datei vorhanden ist