
Contoh sederhananya, coba Anda hapus sebuah atau beberapa file yang terdapat di dalam folder Windows atau Anda hapus sebuah atau beberapa file yang terdapat di dalam folder tempat sebuah aplikasi di install (yang biasanya terletak di C:\Program Files...). Maka bisa dipastikan, jika file tersebut adalah sebuah file utama untuk menjalankan aplikasi tersebut, maka tentu saja akan mengakibatkan atau akan menampilkan sebuah perintah error ketika aplikasi di buka atau dijalankan.
Dari contoh gambaran di atas, pentingnya keberadaan sebuah file sangat berpengaruh terhadap kesuksesan jalannya sebuah aplikasi ketika di buka. Bahkan bisa jadi sebagai faktor penentu apakah aplikasi bisa dijalankan atau tidak.
Dalam Microsoft Excel, jika Anda saat ini sedang mengembangkan sebuah aplikasi berbasis Microsoft Excel, dan Anda ingin mengecek keberadaan sebuah file (pendukung) yang akan dijadikan sebagai faktor utama aplikasi Anda. Maka kode berikut ini bisa Anda sematkan dalam projek VBA Anda.
- Buka jendela Microsoft Visual Basic Editor dengan cara menekan tombol pintas
Alt +F11 , kemudian klik ganda ThisWorkbook untuk langsung membuka jendela kodenya. - Di bagian jendela kode, pilih object Workbook dan pilih procedure Open. Hal ini berfungsi untuk melakukan sebuah rutinitas awal setelah file Excel dibuka dan sebelum kode-kode lainnya di eksekusi.
- Ketikkan baris kode berikut di dalam prosedur yang sudah Anda dipilih di langkah sebelumnya
Dim NamaFile As String NamaFile = ThisWorkbook.Path & "\1.jpg" If Dir(NamaFile) <> "" Then MsgBox "File ditemukan, silahkan lanjutkan" Else MsgBox "Maaf, file TIDAK ditemukan." Application.Quit ThisWorkbook.Close False End If
NamaFile
adalah sebuah string yang dijadikan sebagai lokasi serta nama dari sebuah file. Untuk contoh di atas, nama file adalah 1.Jpg dan terletak dalam satu folder dengan aplikasi atau file Excel ini (ThisWorkbook.Path).
Anda bisa tentukan lokasi file Anda sendiri dengan mengganti nilai dari NamaFile ini
MsgBox "File ditemukan, silahkan lanjutkan"
di bagian ini, Anda bisa memasukkan perintah jika sebuah file ADA dan ditemukan
MsgBox "Maaf, file TIDAK ditemukan."
Pada bagian ini, Anda bisa menentukan sebuah perintah apakah Anda ingin menutup sebuah aplikasi atau perintah-perintah lainnya.
Untuk contoh di atas, ketika file tidak ditemukan maka akan menampilkan sebuah pesan kesalahan dan ketika pengguna menekan tombol OK maka aplikasi akan ditutup dengan tanpa menyimpan perubahan yang terjadi. Hal ini bisa terlihat di baris kode:
Application.Quit ThisWorkbook.Close False
Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya,
Terimakasih sudah membaca
Tutorial: Mengecek Keberadaan Sebuah File Dengan Macro VBA
Label: Macro VBA - Author: excelive
Tutorial: Mengecek Keberadaan Sebuah File Dengan Macro VBA
Label: Macro VBA - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :