Prosedur Untuk Mengetahui Lokasi File dengan VBA

Bagaimana cara mengetahui lokasi penyimpanan file yang aktif dengan menggunakan VBA? Kita bisa menampilkan atau mengetahui lokasi penyimpanan file yang aktif atau lebih dikenal dengan PATH dengan menggunakan macro dan kali ini saya akan berbagai bagaimana script untuk menampilkan path file dengan menggunakan userform.

Sebelum kepada pembahasan pembuatan coding terlebih dahulu kita akan bahas logika algoritma jadi begini komputer akan menampilkan informasi berupa pesan bahwa file tersebut berada pada drive dimana file tersebut disimpan. Objek yang kita gunakan adalah sebuah commandbutton jadi Anda harus menambahkan 1 buah commandbutton pada userform dengan menggunakan toolbox yang ada pada VBA dan saya yakin hal ini sudah dianggap bisa, apabila Anda kurang begitu paham bagaimana cara membuat commandbutton pada userform silakan simak Koleksi UserForm Jika sudah mengetahui silakan buat seperti yang telah dijelaskan diatas kira-kira desainnya seperti berikut

Untuk mengganti tulisan UserForm1 pada form diatas silakan ganti Caption userform tersebut dengan tulisan "Lokasi Informasi File" dan untuk CommandButton1 silakan ganti caption pada properties menjadi "Informasi File"

Langkah berikutnya silakan double klik button Informasi File tersebut kemudian tuliskan coding dibawah ini

Private Sub CommandButton1_Click()
MsgBox ActiveWorkbook.Path, vbInformation, "Info Lokasi File"
End Sub

Untuk mengetes coding diatas silakan jalankan dengan menekan tombol F5 pada keyboar atau klik icon run maka pada jendela lembar kerja Ms. Excel akan muncul kemudian klik tombol Informasi file maka akan muncul sebuah pesan informasi

Jika di klik tombol Informasi File maka muncul pesan Info Lokasi File yaitu di drive I: apabila Anda menyimpan file tersebut di drive D: maka pesan info Lokasi file akan memberikan informasi di drive D:

Bagaimana jika ingin dirubah info lokasi file tersebut (file Path) secara lengkap disertai dengan nama filenya?

Silakan Anda buat 1 buah tombol kembali untuk menambahkan coding baru agar bisa menampilkan file disertai nama file yang aktif tersebut kemudian tambahkan coding nya seperti berikut

Private Sub CommandButton2_Click()
MsgBox ActiveWorkbook.FullName, vbInformation, "Info File"
End Sub

Hasilnya adalah sebagai berikut :

Hasilnya jika di klik tombol Informasi File Lengkap maka munculah sebuah pesan Info File dengan nama file Meteri Dasar VBA Lengkap.xlsm dan lokasi penyimpanan di drive I . Apabila Anda menyimpan file tersebut dalam folder maka folder juga akan ditampilkan sebagai lokai informasi penyimpanan file.

Oke, saya kira materi excel VBA kali ini cukup silakan kembangkan untuk membuat sebuah aplikasi atau kebutuhan dalam pengolahan data lebih cepat dengan VBA.

Selamat mencoba dan semoga bermanfaat.

Tweet