Diskusi tentang Excel

Cara Menampilkan Path File pada Textbox UserForm

File pada dasarnya memiliki tempat lokasi penyimpanan entah itu di MyDocument, Drive D, Drive E atau pada folder yang ada di drive tertentu atau berada di folder dalam folder lagi. Artinya file memiliki lokasi tempat penyimpanan atau alamat nah ini yang dinamakan Path.

Untuk membuat aplikasi di Ms. Excel menggunakan VBA tentunya terkadang Anda membutuhkan lokasi alamat tempat penyimpanan file tersebut. Untuk itu pada kesempatan kali saya akan membahas bagaimana seh cara menampilkan path file tersebut pada textbox yang ada di UserForm?

Baca Juga:
Belajar Cara Membuat Textbos Melalui UserForm

Oke langkah awal Anda desain terlebih dahulu Userform nya dan tambahkan satu buah objek textbox di dalam userform tersebut biarkan jangan diganti propertiesnya dulu seadanya saja. Tambahkan juga satu buah CommandButton untuk objek pemanggilan file yang akan dicari alamat (path) nya. setelah itu baru kita buat codingnya.

Berikut coding unutk menampilkan Path file pada Textbox melalui UserForm.

Sub PilihFile()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim FileChosen As Integer
FileChosen = fd.Show
TextBox1.Value = fd.SelectedItems(1)
If FileChosen <> -1 Then
MsgBox "Pemilihan File Dibatalkan"
Else
Exit Sub
End If
End Sub

Setelah Anda membuat prosedur diatas kita buat prosedur ketika tombol di klik maka silakan tambahkan coding dibawah ini

Private Sub CommandButton1_Click()
Call PilihFile
End Sub

Jika anda membuka file tampilkan.xlsm maka pada textbox akan muncul alamat path nya yaitu di C:\Users\user\Documents\tampilkan.xlsm

Baca:
Cara Menampilkan tulisan sementara "Tuliskan Nama Anda Disini" pada Textbox area
Demikian semoga bermanfaat.

Related

Macro Excel VBA 2282770962937883758

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item