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.
0 Response to "Jitu.. Cara Menampilkan Path File Pada Textbox UserForm -Praktis Dan Singkat"
Post a Comment