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
>
>
>
>
