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

Bagaimana cara mengimpor beberapa nama file ke dalam sel di Excel?

Misalkan Anda memiliki folder dengan ratusan file, dan sekarang, Anda ingin mengimpor nama file ini ke dalam sel lembar kerja. Menyalin dan menempel satu per satu akan menghabiskan banyak waktu, dalam artikel ini, saya akan membahas beberapa trik cepat untuk membantu Anda mengimpor beberapa nama file dari folder ke dalam lembar kerja.

Impor beberapa nama file ke dalam sel lembar kerja dengan kode VBA

Impor beberapa nama file ke dalam sel lembar kerja dengan Kutools for Excel


Impor beberapa nama file ke dalam sel lembar kerja dengan kode VBA

Kode VBA berikut dapat membantu Anda mengimpor nama file, ekstensi file, dan nama folder ke dalam sel lembar kerja, lakukan dengan langkah-langkah berikut:

1. Luncurkan lembar kerja baru yang ingin Anda impor nama filenya.

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

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

Kode VBA: Impor beberapa nama file ke dalam sel lembar kerja

Sub GetFileList()
'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)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Lalu tekan F5 kunci untuk mengeksekusi kode ini, dan di jendela Browse keluar, pilih folder yang ingin Anda impor bentuk nama file, lihat tangkapan layar:

doc import nama file 1

5. Dan kemudian klik OK tombol, dan Anda akan mendapatkan hasil sebagai berikut:

doc import nama file 2

Note: Jika ada subfolder di dalam folder tertentu Anda, nama file di subfolder tidak akan diimpor.


Impor beberapa nama file ke dalam sel lembar kerja dengan Kutools for Excel

Jika Anda perlu mengimpor nama file baik di folder maupun subfolder, jangan khawatir, dengan Kutools untuk Excel'S Daftar Nama File utilitas, Anda dapat dengan mudah mengimpor semua nama file di folder tertentu termasuk subfolder.

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

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

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

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

(1.) Klik doc import nama file 5 tombol untuk memilih folder dengan file yang ingin Anda impor;

(2.) Periksa Sertakan file dalam subdirektori untuk mengimpor nama file dari subfolder;

(3.) Tentukan jenis file yang ingin Anda impor di bawah Jenis file bagian;

(4.) Pilih satu unit ukuran file yang ingin Anda tampilkan dari Unit ukuran file bagian;

(5.) Jika Anda ingin membuat hyperlink nama file dan folder, harap periksa Buat hyperlink .

doc import nama file 4

3. Setelah menyelesaikan pengaturan, silakan klik OK tombol, dan nama file di folder dan subfolder diimpor ke lembar kerja baru seperti gambar berikut yang ditampilkan:

doc import nama file 6

Tips: Jika Anda hanya ingin mengimpor satu nama file jenis tertentu dari folder tertentu, Anda dapat memeriksa Menentukan pilihan dalam Daftar Nama File dialog, dan ketik ekstensi file ke dalamnya, maka itu hanya akan mengimpor nama file jenis tertentu dari kedua folder dan subfolder.

Klik untuk mengetahui lebih banyak tentang fitur Daftar Nama File ini ...

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Demo: Impor beberapa nama file ke dalam sel lembar kerja dengan Kutools for Excel

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?

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


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 (14)
Rated 5 dari 5 · peringkat 1
Komentar ini diminimalkan oleh moderator di situs
Hei,
Saya memiliki lembar ecxel yang memiliki beberapa nama produk, dan juga memiliki folder yang memiliki beberapa file pdf bernama sama seperti pada data sel, seperti jika nilai sel A2 adalah apple1, nama file Pdf adalah apple1.pdf, saya ingin tahu nama mana file hilang, bisakah kita mendapatkannya di excel entah bagaimana..
Komentar ini diminimalkan oleh moderator di situs
Halo, Myk,
Pertama, Anda dapat menerapkan kode di atas untuk memasukkan nama file ke dalam lembar kerja, daftarkan dua kolom nama file menjadi satu lembar kerja, dan kemudian Anda dapat menggunakan fitur Pilih Sel yang Sama & Berbeda dari Kutools untuk mengidentifikasi dan menyorot nama file yang hilang, lihat tangkapan layar :

Silakan dicoba, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Sangat membantu, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Apakah bisa menamai file dengan excel?
terima kasih sangat membantu perkerjaan saya,
Komentar ini diminimalkan oleh moderator di situs
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa bisa terjadi?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih. Itu luar biasa
Komentar ini diminimalkan oleh moderator di situs
Untuk kode VBA, bagaimana Anda memasukkan tanggal yang dimodifikasi juga?
Komentar ini diminimalkan oleh moderator di situs
Halo,
Tambahkan kolom tanggal modifikasi untuk nama file yang diimpor, silakan terapkan kode VBA berikut, silakan coba, semoga dapat membantu Anda!

Sub GetFileList()
Redupkan xFSO Sebagai Objek
Redupkan xFolder Sebagai Objek
Redupkan xFile Sebagai Objek
Redupkan xFiDialog Sebagai FileDialog
Redupkan xPath Sebagai String
Redupkan saya Sebagai Integer
Setel xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Jika xFiDialog.Show = -1 Maka
xPath = xFiDialog.SelectedItems(1)
End If
Setel xFiDialog = Tidak ada
Jika xPath = "" Kemudian Keluar Sub
Setel xFSO = CreateObject("Scripting.FileSystemObject")
Setel xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Nama folder"
ActiveSheet.Cells(1, 2) = "Nama file"
ActiveSheet.Cells(1, 3) = "Ekstensi file"
ActiveSheet.Cells(1, 4) = "Tanggal terakhir diubah"
i = 1
Untuk Setiap xFile Di xFolder.Files
i = i + 1
ActiveSheet.Sel(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Kiri(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Next
End Sub
Komentar ini diminimalkan oleh moderator di situs
apakah ada cara untuk memasukkan jalur folder ke dalam kode?
Komentar ini diminimalkan oleh moderator di situs
saya hanya ingin menyebutkan nama folder. apa kode vba untuk itu.
Komentar ini diminimalkan oleh moderator di situs
saya ingin menambahkan tabel, hanya nama folder, dan data diubah juga?
Komentar ini diminimalkan oleh moderator di situs
Halo,
Apakah Anda ingin membuat daftar semua nama folder dari folder utama tertentu? Tolong beri masalah Anda lebih rinci.
Komentar ini diminimalkan oleh moderator di situs
Metode lain yang mudah ada di sana. Cukup salin jalur direktori tempat Anda menyimpan dokumen, dan tempel tautan itu di browser (chrome/mozilla). Anda akan mendapatkan daftar nama dan cukup salin tempel ke excel. Bersulang!
Komentar ini diminimalkan oleh moderator di situs
sangat membantu. Terima kasih banyak
Rated 5 dari 5
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan