Salah satu penggunaan Excel yang paling menguntungkan VBA Dalam artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda dapat memeriksa apakah suatu file ada atau tidak di komputer kita menggunakan Excel. VBA .

Kode VBA untuk Memeriksa Apakah File Ada atau Tidak (Tampilan Cepat)

 Sub Check_If_a_File_Exists() Nama_File = "E:\ExcelWIKI\Book1.xlsm" Nama_File = Dir(Nama_File) If Nama_File = "" Then MsgBox "File tidak ada." Else MsgBox "File ada." End If End Sub 

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

Ikhtisar Kode VBA untuk Memeriksa Apakah File Ada atau Tidak (Analisis Langkah-demi-Langkah)

Jadi, tanpa penundaan lebih lanjut, mari kita lanjutkan ke pembahasan utama kita hari ini. Kita akan menguraikan VBA kode langkah demi langkah untuk mempelajari cara memeriksa apakah suatu file ada atau tidak di komputer kita.

⧪ Langkah 1: Memasukkan Input yang Diperlukan

Pada awal kode, kita harus memasukkan input yang diperlukan ke dalamnya. Hanya ada satu input yang diperlukan dalam kode ini, dan itu adalah nama file yang kita cari. Masukkan nama file lengkap (Bersama dengan direktori terkait).

 File_Name = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Langkah 2: Mengekstrak Nama File dengan Fungsi Dir VBA

Selanjutnya, kita akan menggunakan trik kecil. Kita akan menggunakan VBA Fungsi Dir untuk mengekstrak nama file. Jika tidak ada file tersebut, maka Fungsi Dir akan mengembalikan string nol.

 Nama_File = Dir(Nama_File) 

⧪ Langkah 3: Memeriksa apakah file ada dengan menggunakan If-Block

Ini adalah langkah yang paling penting. Kita telah mengatakan sebelumnya bahwa jika tidak ada berkas dengan nama yang diberikan, fungsi Dir mengembalikan string null. Kita akan menggunakan properti ini dalam sebuah Jika-blok untuk memeriksa apakah berkas itu ada atau tidak.

 If Nama_File = "" Then MsgBox "File tidak ada." Else MsgBox "File ada." End If 

Jadi lengkap VBA kode akan menjadi:

⧭ Kode VBA:

 Sub Check_If_a_File_Exists() Nama_File = "E:\ExcelWIKI\Book1.xlsm" Nama_File = Dir(Nama_File) If Nama_File = "" Then MsgBox "File tidak ada." Else MsgBox "File ada." End If End Sub 

⧭ Keluaran:

Jalankan kodenya. Di komputer saya, sebuah kotak pesan akan ditampilkan, "File itu ada" karena itu benar-benar ada di mesin saya.

Pada mesin Anda, outputnya mungkin berbeda, tergantung pada apakah file tersebut ada atau tidak.

Baca selengkapnya: Excel VBA: Periksa Apakah Lembar Ada (2 Metode Sederhana)

Mengembangkan Makro untuk Memeriksa Rentang File Ada atau Tidak Menggunakan Excel VBA

Di sini kita punya kumpulan data dalam lembar kerja Excel yang berisi nama beberapa file bersama dengan direktori dalam rentang B4:B8 .

Tujuan kami adalah untuk mengembangkan Macro yang akan menulis Ada / Tidak Ada di samping masing-masing setelah memeriksa apakah mereka ada atau tidak di komputer.

⧪ Langkah 1: Membuka Jendela VBA

Tekan ALT + F11 pada keyboard Anda untuk membuka Visual Basic jendela.

⧪ Langkah 2: Memasukkan Modul Baru

Pergi ke Masukkan> Modul di bilah alat. Klik pada Modul Sebuah modul baru yang disebut Modul1 (atau apa pun tergantung pada riwayat masa lalu Anda) akan terbuka.

⧪ Langkah 3: Menempatkan Kode VBA

Ini adalah langkah yang paling penting. Masukkan yang berikut ini VBA kode dalam modul.

⧭ Kode VBA:

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count Nama_File = Dir(Rng.Cells(i, 1)) If Nama_File = "" Then Rng.Cells(i, 2) = "Tidak Ada" Else Rng.Cells(i, 2) = "Ada" End If Next i End Sub 

⧪ Langkah 5: Menjalankan Kode

Klik pada Jalankan Sub / UserForm dari toolbar di atas.

Kode akan berjalan. Dan Anda akan mendapatkan "Ada" untuk file-file yang ada, dan "Tidak Ada" untuk berkas-berkas yang tidak ada.

Baca selengkapnya: Cara Memeriksa Apakah Nilai Ada dalam Rentang di Excel (8 Cara)

Kesimpulan

Oleh karena itu, ini adalah proses untuk mengembangkan Makro untuk mengirim Email dari Excel dengan lampiran. Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami. Dan jangan lupa untuk mengunjungi situs kami ExcelWIKI untuk lebih banyak postingan dan pembaruan.