Salim2685Avatar border
TS
Salim2685
MINTA TOLONG SOLUSI VBA MACRO EXCEL INI GAN>..PLEASE YA...
Agan2 yang terhormat master2 VBA, ane lagi tahap belajar bikin macro VBA excel ni...
Ceritanya,
Ane mau bikin macro tools dimana didalamnya ada tombol browse file, proses, dan kotak Listbox.
Nah skenarionya gni:

1. Tombol browse itu nanti akan digunakan untuk memanggil/membuka file2 excel yang dibutuhkan buat diproses di code macro pada tombil "browse" ya.
Tapi menggunakan code: Application.FileDialog(msoFileDialogFilePicker) biar leluasa nyari filenya.

2. Semua file yang terseleksi di tombol Browse itu nanti akan masuk initial filenamenya di ListBox.

3. Bersamaan dengan itu file yang sudah terselected di filedialog itu akan terbuka semua...kurang lebih begini code ane ni gan :

Sub DialogFile()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant

With fd

.InitialFileName = "D:\MEGAPROJECT\Daily report\Temp_Failure_Hourly"

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems
MsgBox "Selected item's path: " & vrtSelectedItem

Next vrtSelectedItem

Else
MsgBox "No File Selected"
End If
End With

Set fd = Nothing

End Sub


Nah klo pake kode diatas kan yang keluar filelistpath alamat dari file2 yang kita browse itu keluarnya ke "MsgBox" ya..
Nah pertanyaan ane:

1. Gimana caranya supaya itu filelistpath alamat2 file2 itu "show" di Listbox ya?
2. Nah dari kode diatas ternyata g ada yang kebuka (alias workbooks.select open) gan. Gimana caranya ya biar kebuka?


Thanks ya gan atas pencerahannya master2 macro vba...hehe
0
2K
7
GuestAvatar border
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Mari bergabung, dapatkan informasi dan teman baru!
Programmer Forum
Programmer ForumKASKUS Official
20.2KThread4.2KAnggota
Terlama
GuestAvatar border
Guest
Tulis komentar menarik atau mention replykgpt untuk ngobrol seru
Ikuti KASKUS di
© 2023 KASKUS, PT Darta Media Indonesia. All rights reserved.