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:
5. Dan kemudian klik OK tombol, dan Anda akan mendapatkan hasil sebagai berikut:
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 Ditambah> Ekspor Impor > Daftar Nama File, lihat tangkapan layar:
2. di Daftar Nama File kotak dialog, lakukan operasi berikut:
(1.) Klik 
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 .
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:
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
Artikel terkait:
Bagaimana cara mencantumkan semua file di folder dan subfolder ke dalam lembar kerja?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
