Bagaimana cara memeriksa apakah buku kerja ada di folder?

Untuk memeriksa apakah buku kerja ada di folder tertentu, Anda bisa menggunakan fungsi DIR. DIR adalah fungsi yang mewakili direktori. Anda perlu menentukan jalur file dengan nama dan ekstensi. Jika file ada, ia mengembalikan nama file, jika tidak, nilai kosong.

Tulis kode untuk memeriksa apakah file Excel ada di folder

Gunakan langkah-langkah berikut:

1. Pertama, tentukan rentang atau kotak pesan untuk mendapatkan hasil fungsi.
2. Sekarang masukkan nama fungsi “DIR” dan ketik tanda kurung di depannya.
3. Setelah itu, masukkan path file menggunakan tanda kutip ganda dan pastikan untuk memasukkan ekstensi file beserta nama file.
4. Selanjutnya, ketikkan tanda kurung tutup untuk menutup baris kode.

 Sub vba_Check_workbook() MsgBox Dir("C:UsersDellDesktopbook1.xlsx") End Sub

Saat Anda menjalankan baris kode ini, kotak pesan muncul berisi nama file, yang berarti file tersebut ada di lokasi yang Anda tentukan.

Tautan yang berguna: Jalankan makro – Perekam makro – Editor Visual Basic – Buku Pegangan Makro Pribadi

Temukan banyak file jika ada dalam satu folder

Anda mungkin perlu memeriksa beberapa file jika semuanya ada dalam satu folder. Dalam hal ini Anda dapat menggunakan kode berikut.

 Sub vba_check_workbook() Dim myFolder As String Dim myFileName As String Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A5") myFolder = "C:UsersDellDesktopData" For Each myCell In myRange myFileName = myCell.Value If Dir(myFolder & "" & myFileName) = "" Then myCell.Offset(0, 1) = "File Doesn't Exists." Else myCell.Offset(0, 1) = "File Exists" End If Next myCell End Sub

Untuk memahami kode ini, saya membaginya menjadi tiga bagian.

• Di bagian PERTAMA Anda memiliki semua variabel yang perlu kita gunakan dalam kode. Variabel untuk digunakan sebagai alamat folder, nama file, rentang tempat Anda memiliki semua nama dan setiap sel dalam rentang tersebut.
• Di bagian KEDUA, Anda menentukan rentang alamat tempat Anda memiliki semua nama file yang ingin Anda periksa. Dan juga jalur folder yang ditetapkan ke variabel.
• Di bagian KETIGA Anda memiliki LOOP FOR EACH untuk menelusuri semua file dalam folder. Perulangan ini menggunakan DIR untuk mencocokkan semua nama yang Anda miliki dalam rentang tersebut. Ia juga menggunakan PERNYATAAN IF untuk memasukkan nilai pada sel terkait sebagai keterangan apakah file tersebut ada atau tidak.

Catatan: Jika Anda ingin menggunakan kode ini, Anda perlu mengubah jalur folder dan Anda perlu mengatur rentang di mana Anda memiliki semua nama buku kerja.