Note: The other languages of the website are Google-translated. Back to English

 Bagaimana cara membuat daftar semua nama file dalam folder dan membuat hyperlink untuk mereka di Excel?

Untuk pekerjaan sehari-hari Anda, Anda mungkin perlu mengimpor beberapa nama file dari folder ke lembar kerja, dan membuat hyperlink untuk setiap file agar dapat membuka file dengan cepat dan mudah. Mungkin, Anda dapat menyalin dan menempel nama file dan membuat hyperlink untuk itu satu per satu secara manual, tetapi ini akan membuang banyak waktu jika ada ratusan file di folder tersebut. Hari ini, saya akan berbicara tentang beberapa metode cepat dan menarik untuk menangani pekerjaan ini.

Cantumkan semua nama file dalam folder dan buat hyperlink dengan kode VBA

Cantumkan semua nama file dalam folder dan buat hyperlink dengan Kutools for Excel


Untuk membuat daftar dan membuat hyperlink dengan file dari folder, kode VBA berikut dapat membantu Anda.

1. Aktifkan lembar kerja baru untuk meletakkan hasilnya.

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

VBA: Cantumkan semua nama file dalam folder dan buat hyperlink

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object 
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Lalu tekan F5 untuk menjalankan kode ini, dan pilih folder yang ingin Anda daftarkan file dari Browse jendela, lihat tangkapan layar:

daftar dokumen membuat hyperlink 1

5. Setelah menentukan folder, klik OK tombol, dan semua file di folder tertentu telah terdaftar ke dalam lembar kerja aktif dengan hyperlink, lihat tangkapan layar:

daftar dokumen membuat hyperlink 2

Note: Jika ada subfolder di folder tertentu Anda, file di subfolder tidak akan dicantumkan.


Untuk membuat daftar semua file baik dalam folder dan subfoldernya dan membuat hyperlink untuk setiap file, Kutools untuk Excel'S Daftar Nama File dapat membantu Anda. Dengan fitur ini, semua file di folder dan subfolder akan terdaftar sekaligus dengan beberapa atribut, seperti nama file, ukuran file, waktu pembuatan, folder yang berisi dan sebagainya.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.

Jika sudah terpasang Kutools untuk Excel, lakukan dengan langkah-langkah berikut:

1. Klik Kutools Plus > Ekspor Impor > Daftar Nama File, lihat tangkapan layar:

2. Dalam majalah Daftar Nama File kotak dialog, lakukan operasi berikut:

(1.) Klik daftar dokumen membuat hyperlink 5 tombol untuk memilih folder yang Anda ingin daftar nama filenya;

(2.) Periksa Sertakan file dalam subdirektori jika Anda ingin membuat daftar nama file dalam subfolder, periksa Sertakan file dan folder tersembunyi jika Anda ingin membuat daftar file yang tersembunyi;

(3.) Tentukan jenis file yang ingin Anda temukan dan daftar di bawah Jenis file bagian;

(4.) Pilih unit ukuran file yang ingin Anda tampilkan;

(5.) Periksa Buat hyperlink di bagian kiri bawah kotak dialog.

Unduh Kutools untuk Excel Sekarang!

3. Lalu klik Ok tombol, dan semua file di folder dan subfolder telah terdaftar di lembar kerja baru dengan hyperlink yang Anda butuhkan, lihat tangkapan layar:

daftar dokumen membuat hyperlink 6

Klik untuk mengetahui detail selengkapnya tentang utilitas Daftar Nama File…

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara mencantumkan semua file di folder dan subfolder ke dalam lembar kerja?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (13)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Menjalankan kode VBA yang tercantum di atas, menunjukkan direktori yang dipilih kosong, ketika penuh dengan file Excel.
Komentar ini diminimalkan oleh moderator di situs
Luar biasa..terima kasih banyak. Itu benar-benar menghemat waktu saya.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak meskipun tidak dapat melihat file di direktori yang dipilih seperti yang dikatakan barry, itu tetap membuat hyperlink untuk semua file di direktori itu.
Komentar ini diminimalkan oleh moderator di situs
"VBA: Daftar semua nama file dalam folder dan buat hyperlink" bagus! Ini bekerja dengan sempurna! Terima kasih telah memposting! Satu pertanyaan... Sekarang setelah Anda memberi tahu kami cara menambahkan tautan dari folder, apakah mungkin menggunakan tautan tersebut untuk mendapatkan informasi dari katakanlah satu atau dua lembar berbeda di setiap file yang terdaftar? Mereka akan menjadi sel yang sama untuk setiap file yang sekarang kita miliki daftarnya. Ini akan membantu membuat konten yang komprehensif dengan tautan aktif ke nama file yang tidak dapat dipahami.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana saya mengubah kode ini agar mencantumkan nama folder daripada nama file? Dan bagaimana saya mengubahnya untuk memeriksa subfolder untuk file?
Komentar ini diminimalkan oleh moderator di situs
Hai, Elli,
Untuk daftar semua nama folder dan subfolder dari sebuah direktori, kode VBA di bawah ini dapat membantu Anda, silakan coba, semoga dapat membantu Anda.

Sub Nama Folder()
Application.ScreenUpdating = Salah
Redupkan xPath Sebagai String
Redupkan xWs Sebagai Lembar Kerja
Dim fso Sebagai Objek, j Selamanya, folder1 Sebagai Objek
Dengan Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Pilih foldernya"
.Menunjukkan
Berakhir dengan
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Setel xWs = Application.ActiveSheet
xWs.Sel(1, 1).Nilai = xPath
xWs.Cells(2, 1).Ubah ukuran(1, 5).Nilai = Array("Jalur", "Dir", "Nama", "Tanggal Dibuat", "Tanggal Terakhir Diubah")
Setel fso = CreateObject ("Scripting.FileSystemObject")
Setel folder1 = fso.getFolder(xPath)
folder getSubFolder1
xWs.Cells(2, 1).Ubah ukuran(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Ubah ukuran(1, 5).SeluruhColumn.AutoFit
Application.ScreenUpdating = Benar
End Sub
Sub getSubFolder(ByRef prntfld Sebagai Objek)
Redupkan SubFolder Sebagai Objek
Subfld redup Sebagai Obyek
Redupkan xRow Selamanya
Untuk Setiap SubFolder Di prntfld.SubFolder
xRow = Range("A1").End(xlDown).Baris + 1
Sel(xRow, 1).Ubah ukuran(1, 5).Nilai = Array(SubFolder.Path, Kiri(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DateLastModified)
SubFolder Berikutnya
Untuk Setiap subfld Di prntfld.SubFolders
getSubFolder subfold
Subbidang berikutnya
End Sub
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda mengkodekan ini untuk membuat hyperlink untuk jalur dan direktori?
Komentar ini diminimalkan oleh moderator di situs
Hai, yuri,
Untuk mengatasi masalah Anda, silakan coba kode berikut:

Sub Nama Folder()
Application.ScreenUpdating = Salah
Redupkan xPath Sebagai String
Redupkan xWs Sebagai Lembar Kerja
Redupkan xRg Sebagai Rentang
Dim fso Sebagai Objek, j Selamanya, folder1 Sebagai Objek
Dengan Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Pilih foldernya"
.Menunjukkan
Berakhir dengan
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Setel xWs = Application.ActiveSheet
Tetapkan xRg = xWs.Cells(1, 1)
xRg.Nilai = xPath
xWs.Hyperlinks.Tambahkan Jangkar:=xRg, Alamat:=xPath, TextToDisplay:=xPath
xWs.Cells(2, 1).Ubah ukuran(1, 5).Nilai = Array("Jalur", "Dir", "Nama", "Tanggal Dibuat", "Tanggal Terakhir Diubah")
Setel fso = CreateObject ("Scripting.FileSystemObject")
Setel folder1 = fso.GetFolder(xPath)
folder getSubFolder1
xWs.Cells(2, 1).Ubah ukuran(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Ubah ukuran(1, 5).SeluruhColumn.AutoFit
Application.ScreenUpdating = Benar
End Sub
Sub getSubFolder(ByRef prntfld Sebagai Objek)
Redupkan SubFolder Sebagai Objek
Subfld redup Sebagai Obyek
Redupkan xRow Selamanya
Redupkan xStr Sebagai String
Redupkan xRg Sebagai Rentang
Untuk Setiap SubFolder Di prntfld.SubFolder
xRow = Range("A1").End(xlDown).Baris + 1
Sel(xRow, 1).Ubah ukuran(1, 5).Nilai = Array(SubFolder.Path, Kiri(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder. DateLastModified)
Tetapkan xRg = Sel(xRow, 1)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Alamat:=xRg.Value, TextToDisplay:=xRg.Value
Tetapkan xRg = Sel(xRow, 2)
xRg.Worksheet.Hyperlinks.Add Anchor:=xRg, Alamat:=xRg.Value, TextToDisplay:=xRg.Value
SubFolder Berikutnya
Untuk Setiap subfld Di prntfld.SubFolders
getSubFolder subfold
Subbidang berikutnya
End Sub
Komentar ini diminimalkan oleh moderator di situs
@skyyang Hai, Bisakah kode ini diedit ke jalur hyperlink untuk file alih-alih folder. Misalnya, alih-alih menautkan jalur folder di dalam Folder1, itu akan membuat hyperlink jalur semua file di Folder1 (saya perlu teks untuk ditampilkan sebagai jalur file, bukan nama file), itu akan menjadi penggunaan yang sempurna kasus untuk saya. menghargai bantuan yang dapat Anda tawarkan :)
Komentar ini diminimalkan oleh moderator di situs
@skyyang Hai,
Bisakah kode ini diedit ke jalur hyperlink untuk file, bukan folder. Misalnya, alih-alih menautkan jalur folder di dalam Folder1, itu akan membuat hyperlink jalur semua file di Folder1 (saya perlu teks untuk ditampilkan sebagai jalur file, bukan nama file), itu akan menjadi penggunaan yang sempurna kasus untuk saya.
menghargai bantuan yang dapat Anda tawarkan :)
Komentar ini diminimalkan oleh moderator di situs
@skyyang Hai,
Bisakah kode ini diedit ke jalur hyperlink untuk file, bukan folder. Misalnya, alih-alih menautkan jalur folder di dalam Folder1, itu akan membuat hyperlink jalur semua file di Folder1 (saya perlu teks untuk ditampilkan sebagai jalur file, bukan nama file), itu akan menjadi penggunaan yang sempurna kasus untuk saya.
menghargai bantuan yang dapat Anda tawarkan :)
Komentar ini diminimalkan oleh moderator di situs
Hi semua,

ich habe eine bescheidene Fragmen:
Wie kann ich Eine Liste von Dateinamen di klickbare Links umwandeln query.
Ini adalah kata-kata yang sering diucapkannya. Dies hat mich aber nicht weiter gebracht.
Apakah Anda Beispieldatei? Wie aus dem Bericht #28151.

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Halo teman,

Setelah semua file dalam folder tertentu telah terdaftar di lembar kerja aktif dengan hyperlink, Anda dapat mengklik sel untuk membuka hyperlink. Semua nama file dapat diklik. Silakan lihat screenshot.

Tetapi saya tidak dapat mengirimkan kepada Anda contoh file Excel saya, karena hyperlink yang tercantum dalam file tersebut hanya dapat dibuka dari komputer saya sendiri. Cukup gunakan metode untuk membuat hyperlink dengan file dari folder spesifik Anda. Setelah nama file dengan hyperlink terdaftar dalam file baru. Cukup klik hyperlink untuk membukanya. Silakan coba.

Hormat kami,
Mandy
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan