3 metode rapide pentru a enumera recursiv toate fișierele dintr-un folder Windows în foaia de lucru Excel

Mulți utilizatori trebuie să listeze rapid toate fișierele dintr-un folder Windows și toate subfolderele sale într-o foaie de lucru Excel. Prin urmare, în acest articol, vă vom prezenta 3 moduri rapide de a o realiza.

Dacă doriți să enumerați recursiv toate fișierele dintr-un folder Windows într-o foaie de lucru Excel, cu siguranță nu vă va plăcea să copiați manual numele fișierelor în Excel. Fără îndoială, este prea plictisitor și consumator de timp. Prin urmare, aici vă vom învăța 3 abordări mult mai inteligente și mai convenabile

Metoda 1: Listați fișierele dintr-un folder Windows prin Firefox sau Google Chrome

1. În primul rând, în Windows Explorer, accesați folderul Windows specific și copiați calea folderului.
2. Apoi, lansați Firefox sau Google Chrome.
3. Apoi, lipiți calea folderului copiat în bara de adrese a browserului de internet.
4. După aceea, apăsați tasta „Enter”.
5. Deodată, toate fișierele din acest folder Windows vor fi listate în browser.
6. Apoi, apăsați „Ctrl + A” pentru a selecta tot conținutul și „”Ctrl + C”” pentru a le copia.
7. În cele din urmă, lipiți-le într-o foaie de lucru Excel.

Metoda 2: Listați fișierele dintr-un folder Windows prin „Manager de nume”

1. La început, creați o nouă foaie de lucru Excel.
2. Apoi, selectați Celula A1.
3. Apoi, accesați fila „Formule” și faceți clic pe butonul „Manager de nume”.
4. În fereastra de dialog pop-up, faceți clic pe butonul „Nou”.
5. Ulterior, în următoarea casetă de dialog, introduceți „Fișiere” în câmpul „Nume”.
6. Și schimbați „=Sheet1!$A$1” în „=FILES(Sheet1!$A$1)” în câmpul „Se referă la:”.
7. Apoi, faceți clic pe „OK” și închideți caseta de dialog „Name Manager”.
8. Mai târziu, copiați calea folderului Windows în Celula A1 și adăugați „\*” la capătul potecii.
9. Apoi, selectați Celula A3 și introduceți funcția „=INDEX(Files,ROW()-2)”.
10. Imediat, un fișier din acest folder Windows va fi listat, ca în imaginea următoare.
11. În cele din urmă, copiați această funcție în mai multe rânduri pentru a lista celelalte fișiere până când vedeți „#REF!” eroare. Eroarea înseamnă că toate fișierele au fost listate.

Metoda 3: Listați recursiv fișierele dintr-un folder Windows prin Excel VBA

1. Pentru început, creați un fișier Excel nou.
2. Apoi, accesați editorul Excel VBA cu referire la „Cum să rulați codul VBA în Excel".
3. Apoi, copiați următorul cod în proiectul „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. Acum, faceți clic pe prima subrutină și apăsați tasta „F5”.
5. În caseta de dialog pop-up, navigați la și selectați un folder Windows din care doriți să listați fișierele și faceți clic pe „OK”.
6. În cele din urmă, când macro-ul se termină, reveniți la foaia de lucru Excel. Toate fișierele din folderul Windows și subfolderele sale au fost listate, așa cum se arată în următoarea captură de ecran.

Excel se blochează din când în când

Ca și alte programe software, Excel se poate bloca uneori, ceea ce poate distruge direct fișierul Excel deschis în prezent. În astfel de cazuri, majoritatea utilizatorilor vor spera că Excel poate recupera automat fișierul la repornire. Cu toate acestea, de cele mai multe ori, realitatea nu este cea așteptată. Atunci, ar fi esențial să se recurgă la o soluție... Reparatie Excel instrument, cum ar fi DataNumen Excel Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com