3 Metode Cepat untuk Membuat Daftar Secara Rekursif Semua File dalam Folder Windows di Lembar Kerja Excel

Solusi Excel Oktober 3, 2025
Bagikan sekarang:

Banyak pengguna perlu dengan cepat mencantumkan semua file di folder Windows dan semua subfoldernya di lembar kerja Excel. Oleh karena itu, dalam artikel ini, kami akan memperkenalkan 3 cara cepat untuk mewujudkannya.

Jika Anda ingin secara rekursif mencantumkan semua file dalam folder Windows di lembar kerja Excel, Anda pasti tidak suka menyalin nama file ke Excel secara manual. Tidak diragukan lagi, ini terlalu membosankan dan memakan waktu. Karenanya, di sini kami akan mengajari Anda 3 pendekatan yang jauh lebih cerdas dan lebih nyaman

Metode 1: Cantumkan File di Folder Windows melalui Firefox atau Google Chrome

  1. Pertama, di Windows Explorer, akses folder Windows tertentu dan salin jalur folder.Salin Jalur Folder
  2. Kemudian, luncurkan Firefox atau Google Chrome.
  3. Selanjutnya, tempel jalur folder yang disalin di bilah alamat Browser Internet.
  4. Setelah itu, tekan tombol “Enter”.
  5. Sekaligus, semua file di folder Windows ini akan terdaftar di browser.File Terdaftar di Firefox
  6. Kemudian, tekan "Ctrl + A" untuk memilih semua konten dan "" Ctrl + C "" untuk menyalinnya.
  7. Terakhir, tempelkan ke lembar kerja Excel.Rekatkan File Terdaftar yang Disalin dari Firefox ke Excel

Metode 2: Buat Daftar File di Folder Windows melalui "Pengelola Nama"

  1. Pertama, buat lembar kerja Excel baru.
  2. Kemudian, pilih Sel A1.
  3. Selanjutnya, buka tab "Rumus" dan klik tombol "Manajer Nama".
  4. Di kotak dialog popup, klik tombol "New".Nama Manajer
  5. Selanjutnya, di kotak dialog berikutnya, masukkan "File" di kolom "Nama".
  6. Dan ubah “= Sheet1! $ A $ 1” menjadi “= FILES (Sheet1! $ A $ 1)” di kolom “Refers to:”.Nama baru
  7. Setelah itu, klik "OK" dan tutup kotak dialog "Name Manager".
  8. Nanti, salin jalur folder Windows di Sel A1 dan tambahkan "\* ”Di ujung jalur.Masukkan Jalur Folder di Sel A1
  9. Selanjutnya, pilih Sel A3 dan masukkan fungsi "= INDEX (Files, ROW () - 2)".Fungsi Input di Sel A3
  10. Sekaligus, file di folder Windows ini akan terdaftar, seperti gambar berikut.A File Mendaftar
  11. Terakhir, salin saja fungsi ini ke bawah beberapa baris untuk mencantumkan file lain sampai Anda melihat pesan "#REF!" kesalahan. Kesalahan berarti semua file telah terdaftar.Salin Fungsi Ke Bawah Beberapa Baris Sampai Lihat Kesalahan

Metode 3: Membuat Daftar File secara Rekursif dalam Folder Windows melalui Excel VBA

  1. Sebagai langkah awal, buatlah file Excel baru.
  2. Selanjutnya, akses editor Excel VBA dengan referensi ke "Cara Menjalankan Kode VBA di Excel Anda".
  3. Kemudian, salin kode berikut ke dalam proyek "Buku Kerja Ini".
Sub BatchListAllFiles_FolderSubfolders()
    Dim strWindowsFolder As String
 
    'Select the source Windows folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = "E:\"
        .Show
        If .SelectedItems.Count > 0 Then
           strWindowsFolder = .SelectedItems(1) & "\"
        End If
    End With
 
    With ActiveSheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Path"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Size(Bytes)"
         .Cells(1, 3).Font.Bold = True
         .Cells(1, 4) = "Type"
         .Cells(1, 4).Font.Bold = True
         .Cells(1, 5) = "Created"
         .Cells(1, 5).Font.Bold = True
    End With
 
    Call LoopFolders(strWindowsFolder)
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim nLastRow As Integer
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        With ActiveSheet
            nLastRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & nLastRow) = objFile.Name
            .Range("B" & nLastRow) = objFile.Path
            .Range("C" & nLastRow) = objFile.Size
            .Range("D" & nLastRow) = objFile.Type
            .Range("E" & nLastRow) = objFile.DateCreated
            .Columns("A:E").AutoFit
       End With
    Next
 
    'Process all folders and subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubFolder In objFolder.SubFolders
           'Skip the system and hidden folders
           If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4) = 0) Then
              LoopFolders (objSubFolder.Path)
           End If
       Next
    End If
End Sub

Kode VBA - Membuat Daftar File secara Rekursif dalam Folder Windows

  1. Sekarang, klik ke subrutin pertama dan tekan tombol "F5".
  2. Pada kotak dialog popup, navigasikan ke dan pilih folder Windows yang Anda ingin daftar file dari dan klik "OK".Pilih Folder
  3. Akhirnya, saat makro selesai, kembali ke lembar kerja Excel. Semua file di folder Windows dan subfoldernya telah terdaftar, seperti yang ditunjukkan pada gambar layar berikut.File Tercantum di Excel

Excel Crash dari Waktu ke Waktu

Seperti perangkat lunak lainnya, Excel terkadang bisa mengalami crash, yang dapat langsung menghancurkan file Excel yang sedang dibuka. Dalam kasus seperti itu, sebagian besar pengguna berharap Excel dapat memulihkan file secara otomatis saat program dimulai ulang. Namun, lebih sering daripada tidak, kenyataannya tidak seperti yang Anda harapkan. Dalam hal ini, akan sangat penting untuk menggunakan solusi alternatif. Perbaikan Excel alat, seperti DataNumen Excel Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.