√ Mekanisme Untuk Mengetahui Lokasi File Dengan Vba

Bagaimana cara mengetahui lokasi penyimpanan file yang aktif dengan memakai VBA? Kita dapat menampilkan atau mengetahui lokasi penyimpanan file yang aktif atau lebih dikenal dengan PATH dengan memakai macro dan kali ini aku akan banyak sekali bagaimana script untuk menampilkan path file dengan memakai userform.

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

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

Langkah berikutnya silakan double klik button Informasi File tersebut lalu 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 lalu 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 memperlihatkan isu di drive D:

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

Silakan Anda buat 1 buah tombol kembali untuk menambahkan coding gres biar dapat menampilkan file disertai nama file yang aktif tersebut lalu tambahkan coding nya ibarat berikut

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

Hasilnya yaitu sebagai berikut :

Hasilnya bila 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 isu penyimpanan file.

Oke, aku kira bahan excel VBA kali ini cukup silakan kembangkan untuk menciptakan sebuah aplikasi atau kebutuhan dalam pengolahan data lebih cepat dengan VBA.

Selamat mencoba dan semoga bermanfaat.


Sumber http://www.excel-id.com/