Vba: hoe alle bestanden in de map te openen

U kunt een Do While- lus gebruiken met de Workbooks.Open- methode in VBA om alle bestanden in een bepaalde map te openen.

Hier is een gebruikelijke manier om dit in de praktijk te doen:

 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

Deze specifieke macro opent alle bestanden met de extensie .xlsx in de volgende map:

• C:\Gebruikers\bob\Documenten\huidige_data

Het volgende voorbeeld laat zien hoe u deze macro in de praktijk kunt gebruiken.

Gerelateerd: Hoe u een lijst met alle geopende werkmappen kunt krijgen met behulp van VBA

Voorbeeld: hoe u alle bestanden in een map opent met VBA

Laten we zeggen dat we de volgende map hebben met de naam current_data , die drie .xlsx- bestanden bevat:

Stel dat we VBA willen gebruiken om alle .xlsx- bestanden in deze map te openen.

We kunnen hiervoor de volgende macro maken:

 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

Wanneer we deze macro uitvoeren, wordt elk bestand met de extensie .xlsx in de map één voor één geopend.

Houd er rekening mee dat als een van de bestanden in de map al geopend is, deze bestanden gewoon geopend blijven.

Opmerking : u kunt hier de volledige documentatie voor de Workbooks.Open- methode in VBA vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Hoe een bestand te hernoemen met VBA
Bestanden in een map weergeven met VBA
Hoe u kunt controleren of een bestand bestaat met behulp van VBA