Terima Kasih banyak atas bantuannya....
kalau boleh tanya lagi, apakah bisa Lb_Path sudah ada di userform tanpa perlu
browse lagi, dan di list box sudah ada file-nya.
sorry merepotkan.
Tks
________________________________
From: i Haps <hapsari.stlizb...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, February 18, 2012 12:01 PM
Subject: Re: [belajar-excel] Array isi folder ke list box
Nama File itu.... paling tidak 'kan dapat dibedakan Extention (type) nya; misal
xxxxx.XLS
(file Workbook / spreadsheet dari MS Excel, bisa dibuka dgn MS Excel
/compatibelnya)
xxxxx.doc
(file Document / hasil dari MS WORDl, dibuka dgn MS Word /kompatibelnya)
xxxxx.BMP
(file gambar / image dari berbagai pengolah grafis, bisa dibuka dgn berbagai
aplikasi/grafis )
xxxxx.MDB; xxxx.TXT, xxxxxx,ASP, xxxxxxxx.ZIP, xxxxxxx.PDF lan liyo-liyane...
Setiap type punya CARA Membuka / program yg digunakan untuk membuka FILEnya.
( Maaf, lupa, ada cara lain: mengklik file name pada windows-explorer, atau
meng-klik nama
file yg ditulis dengan diberi Hyperlink.)
Sayang sekali; Bapak tidak memberi info Type /Extension file-nya
Pada contoh isi Listbox pun item nya tidak ada "extension"nya) maka kita
terpaksa menganggapnya:
Yg Bapak maksud dengan NAMA FILE itu PASTI FILE WORKBOOK/SPREADSHEET EXCEL
(*.XLS?)
Alasan kami:
- Bapak mengajukan pertanyaan ini ke milis yg membicarakan Excel
- File yg memuat contoh juga = dimuat dlm XLS
Membuka fle XLS dengan diketahui NAMA PATH dan NAMA FILENYA (dengan tombol yg
sudah
Bapak sediakan
( Nama Path hanya diberitahukan per Email, Nama file tertulis di ListBox2
Private Sub CommandButton2_Click()
> Workbooks.Open Filename:="D:\Bab\" & Listbox2.List(0)
>End Sub
Pada UserForm contoh yg kami lampirkan kembali; kami mengubah hal-hal sbb:
1. Pengisian ListBox1 bukan FIXED pasti ex D:\BAB; tetapi terserah
user
2. User diberi kebebasan memilih Nama Folder / Path (dari DialogBox
Browse Folder yg mucnul bila suatu tombol di klik)
3. Nama Path akan dituliskan di suatu object Label, agar pada saat file
dibuka, Path-nya gampang diakses kembali.
4. Pemindahan item (text nama file) dari Listbox1 ke KOTAK
lain (dimana: fle yg tertulis disitu akan dibuka) bukan dengan tombol tetapi
otomatis ketika di klik / diselect di Listbox1.
5. KOTAK Lain itu tidak perlu dibuat dari object ListBox2 (karena toh
hanya akan diisi 1 1tem), cukup dgn object /control TextBox atau Label yg lebih
mudah diakses. Pada contoh kita pilih Label agar user tidak dapat mengubahnya
kecuali dari Klik Listbox 1.
6. (sebelulnya untuk mambuka nama file bisa langsung dengan mengklik
item di listbox1 tsb)
7. Membuka file yg NAMAFILEnya sudah berada di Label3, DAN Nama Pathnya
sudah tertulis di Lb_Path nya, cukup dengan :
Private Sub CommandButton2_Click()
> On Error Resume Next
> Workbooks.Open Filename:=Lb_Path & "\" & Label3
>End Sub
- i -
2012/2/18 Rahmat Sadikin <sadikin...@yahoo.co.id>
>Salam be Exceler,
>mohon pencerahannya untuk kode makro didalam listbox terdapat naam file yg
>akan dibuka.
>apakah ada kode nya ?
>
>data terlampir....
