Dear Mr. Kid kok ketika saya jalannkan error ya, sintax error dan yg di highlight kode ini sFile = Dir$(ThisWorkbook.Path "\*.xls*" )
________________________________ From: Kid Mr. <[email protected]> To: [email protected] Sent: Friday, December 9, 2011 4:31 AM Subject: Re: [belajar-excel] Nama workbook dalam 1 folder list ke range Dear Irwan, Coba langkah berikut : 1. Buat workbook baru, lalu save as .xlsm (macro enable) jika di xl2007 ke atas, atau .xls untuk xl2003 ke bawah 2. tekan Alt F11 (menuju ke VBE) 3. menu Insert -> Module 4. Pada lembar kosong, tulis nama prosedur (tanpa spasi) contohnya, tulis : Public Sub DaftarFileExcelku() 5. akan muncul baris bertuliskan End Sub maka pindahkan cursor ke baris di antara tulisan Public Sub (awal blok prosedur) dengan baris End Sub (akhir blok) 6. Copy paste baris-baris script berikut : Dim sFile As String Dim lPos As Long Application.DisplayAlerts = False sFile = Dir$(ThisWorkbook.Path "\*.xls*" ) Do While LenB(sFile) <> 0 Range("a1").Offset(lPos).Value = sFile sFile = Dir$ lPos = lPos + 1 Loop Application.DisplayAlerts = True 7. tekan Alt F11 (supaya kembali ke worksheet) 8. insert sebuah shape rectangle 9. klik kanan shape tersebut -> pilih assign macro 10. pilih nama prosedur tadi (contoh ini tadi namanya : DaftarFileExcelku ) lalu tekan OK 11. Save workbook 12. klik shape Kalau mau ubah kriteria file, ubah bagian : "\*.xls*" dengan kriteria file yang dibutuhkan. Kalau mau ubah lokasi foldernya, ubah bagian : ThisWorkbook.Path dengan nama folder yang dimaksud tanpa diakhiri karakter '\' contoh diubah jadi : "C:\MyData\Kerjaan Tiada Akhir\Pulang saja ah\Udah pagi" Regards, Kid. 2011/12/8 Irwan <[email protected]> > >dear pakar-pakar. > >mohon bantuannya, misal saya punya workbook banyak dalam 1 folder, saya ingin >list nama masing-masing workbook tsb dalam 1 worksheet bagaimana ya >caranya...?? > >misal : > >Folder Belajar >- workbook a >-workbook b > >bisa di list dan hiperlink di range A1,A2 dst > >terima kasih n mohon ma'af mungkin bahasa saya kurang bisa dipahami mohon >maklum soale pemula heheheh > >terima kasih >wan > > >
