3 Kaedah Pantas untuk Menyenaraikan Semua Fail dalam Folder Windows dalam Lembaran Kerja Excel secara Rekursif

Ramai pengguna perlu menyenaraikan semua fail dalam folder Windows dengan cepat dan semua subfoldernya dalam lembaran kerja Excel. Oleh itu, dalam artikel ini, kami akan memperkenalkan 3 cara pantas untuk merealisasikannya.

Sekiranya anda ingin menyenaraikan semua fail dalam folder Windows secara berkala dalam lembaran kerja Excel, anda pasti tidak suka menyalin nama fail ke Excel secara manual. Tidak dinafikan, ia terlalu membosankan dan memakan masa. Oleh itu, di sini kami akan mengajar anda 3 pendekatan yang lebih pintar dan lebih mudah

Kaedah 1: Senaraikan Fail dalam Folder Windows melalui Firefox atau Google Chrome

1. Mula-mula, di Windows Explorer, akses folder Windows tertentu dan salin laluan folder.
2. Kemudian, lancarkan Firefox atau Google Chrome.
3. Seterusnya, tampal laluan folder yang disalin di bar alamat Penyemak Imbas Internet.
4. Selepas itu, tekan kekunci "Enter".
5. Sekaligus, semua fail dalam folder Windows ini akan disenaraikan dalam penyemak imbas.
6. Kemudian, tekan "Ctrl + A" untuk memilih semua kandungan dan "" Ctrl + C "" untuk menyalinnya.
7. Akhir sekali, tampalkannya ke lembaran kerja Excel.

Kaedah 2: Senaraikan Fail dalam Folder Windows melalui "Pengurus Nama"

1. Pada mulanya, buat lembaran kerja Excel baru.
2. Kemudian, pilih Cell A1.
3. Seterusnya, pergi ke tab "Rumus" dan klik butang "Pengurus Nama".
4. Di kotak dialog pop timbul, klik butang "Baru".
5. Selanjutnya, di kotak dialog seterusnya, masukkan "Files" di bidang "Name".
6. Dan ubah “= Sheet1! $ A $ 1” menjadi “= FILES (Sheet1! $ A $ 1)” di medan “Merujuk ke:”.
7. Selepas itu, klik "OK" dan tutup kotak dialog "Pengurus Nama".
8. Kemudian, salin jalur folder Windows di Cell A1 dan tambahkan “\* "Di hujung jalan.
9. Seterusnya, pilih Cell A3 dan masukkan fungsi “= INDEX (Files, ROW () - 2)”.
10. Sekali gus, fail dalam folder Windows ini akan disenaraikan, seperti gambar berikut.
11. Akhirnya, salin fungsi ini ke beberapa baris untuk menyenaraikan fail lain sehingga anda melihat "#REF!" kesilapan. Kesalahan itu bermaksud bahawa semua fail telah disenaraikan.

Kaedah 3: Senaraikan Fail secara Rekursif dalam Folder Windows melalui Excel VBA

1. Sebagai permulaan, buat fail Excel baharu.
2. Seterusnya, akses editor VBA Excel dengan merujuk kepada “Cara Menjalankan Kod VBA di Excel Anda".
3. Kemudian, salin kod berikut ke dalam projek "ThisWorkbook".

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

4. Sekarang, klik ke subrutin pertama dan tekan kekunci "F5".
5. Dalam kotak dialog pop timbul, arahkan ke dan pilih folder Windows yang anda mahu senaraikan failnya dan klik "OK".
6. Akhirnya, apabila makro selesai, kembali ke lembaran kerja Excel. Semua fail dalam folder Windows dan subfoldernya telah disenaraikan, seperti yang ditunjukkan dalam tangkapan skrin berikut.

Kerosakan Excel dari Masa ke Masa

Seperti perisian lain, Excel boleh mengalami ranap sekali-sekala, yang boleh memusnahkan fail Excel yang sedang dibuka secara langsung. Dalam kes sedemikian, majoriti pengguna berharap Excel boleh memulihkan fail secara automatik apabila dimulakan semula. Walau bagaimanapun, selalunya, realitinya tidak seperti yang anda jangkakan. Maka, adalah penting untuk menggunakan Pembaikan Excel alat, seperti DataNumen Excel Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com