Contoh Macro: Membuka Seluruh Workbook Dalam Folder

Share This Post

Beberapa pengguna Excel selalu bekerja di folder yang sama. Ia akan membuka seluruh workbook yang ada difolder tersebut satu per satu. Berikut ini adalah contoh bagaimana membuat Macro yang bisa mengerjakannya hanya dengan satu klik saja.

  1. Buka layar Visual Basic dengan Shortcut ALT+F11.
  2. Kemudian klik kanan PERSONAL.XLSB (Personal Macro Workbook), pilih Insert Module.
  3. Jika PERSONAL.XLSB belum ada, ikuti tutorial membuatnya di : Belajar Macro VBA 03: Personal Macro Workbook untuk Menyimpan Kumpulan Macro
  4. Double klik module yang baru dibuat, untuk mulai menulis kode.
  5. Masukan kode berikut
  6. Kemudian Simpan

Untuk menguji kode ini, silahkan ikuti langkah berikut:

  1. Buat folder C:\Kerja
  2. Buat beberapa file/workbook di folder Kerja tersebut
  3. Kemudian pada tab Developer, klik tombol Macro
  4. Pilih macro PERSONAL.XLSB!BukaFolder
  5. Klik Run

Adapun penjelasan kode di atas adalah sebagai berikut:

Sub BukaFolder()
‘Nama macro adalah BukaFolder

Dim sFiles As String
‘Deklarasi variable sFiles untuk menyimpan nama file

sFiles = Dir("C:\Kerja\*.xlsx")
'sFiles diisi lokasi folder

Do While sFiles <> ""
‘Lakukan looping selama sFiles tidak kosong

Workbooks.Open "C:\Kerja\" & sFiles
‘Membuka workbook tertentu

sFiles = Dir
‘Mengambil nama file berikutnya

Loop

End Sub

Demikianlah cara membuat macro untuk membuka semua workbook pada folder tertentu, semoga bermanfaat, chaw.

Subscribe To Our Newsletter

Get updates and learn from the best

More To Explore

contoh macro dengan if dan do while di excel
Macro VBA

Contoh Membuat Macro dengan IF dan Do While

Seperti yang telah dibahas pada tutorial sebelumnya, macro pada excel bisa dibuat dengan 2 cara: Dengan merekam aksi/kegiatan yang kita lakukan Dengan membuat kode VBA

macro dengan cara merekam
Macro VBA

Membuat Macro dengan Cara Merekam

Pada dasarnya, membuat Macro di Excel bisa dilakukan dengan 2 cara: Merekam serangkaian aksi/kegiatan, melalui menu Record Macro, yang nantinya bisa dipanggil kembali Membuatnya secara

Do You Want To Boost Your Business?

drop us a line and keep in touch

small_c_popup.png

Learn how we helped 100 top brands gain success.

Let's have a chat