Vba: cara membuka semua file dalam folder

Anda dapat menggunakan loop Do While dengan metode Workbooks.Open di VBA untuk membuka semua file di folder tertentu.

Berikut adalah cara umum untuk melakukan hal ini dalam praktik:

 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

Makro khusus ini membuka semua file dengan ekstensi .xlsx di folder berikut:

• C:\Users\bob\Documents\current_data

Contoh berikut menunjukkan cara menggunakan makro ini dalam praktiknya.

Terkait: Cara Mendapatkan Daftar Semua Buku Kerja Terbuka Menggunakan VBA

Contoh: Cara membuka semua file dalam satu folder menggunakan VBA

Katakanlah kita memiliki folder berikut bernama current_data yang berisi tiga file .xlsx :

Katakanlah kita ingin menggunakan VBA untuk membuka semua file .xlsx di folder ini.

Kita dapat membuat makro berikut untuk melakukan ini:

 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

Saat kita menjalankan makro ini, setiap file berekstensi .xlsx yang ada di folder tersebut akan dibuka satu per satu.

Perhatikan bahwa jika salah satu file dalam folder tersebut sudah terbuka, file tersebut akan tetap terbuka.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode Workbooks.Open di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara mengganti nama file menggunakan VBA
Cara membuat daftar file dalam folder menggunakan VBA
Cara memeriksa apakah file ada menggunakan VBA