eh iya, kurang karakter ampersand coba ubah baris itu jadi : sFile = Dir$(ThisWorkbook.Path & "\*.xls*" )
Kid. 2011/12/9 Irwan didi <[email protected]> > ** > > > 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 > > > > > > >
