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 noitart, creați un nou fișier Excel.
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 'Selectați folderul Windows sursă cu Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Vă rugăm să selectați un folder din fișiere în lista de fișiere. \" .Show If .SelectedItems.Count > 0 Then strWindowsFolder = .SelectedItems(1) & "\" End If End With With ActiveSheet .Cells(1, 1) = "Nume" .Cells(1, 1).Font. Bold = True .Cells(1, 2) = „Cale” .Cells(1, 2).Font.Bold = True .Cells(1, 3) = „Size(Bytes)” .Cells(1, 3).Font .Bold = Adevărat .Cells(1, 4) = „Tip” .Cells(1, 4).Font.Bold = True .Cells(1, 5) = „Creat” .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("Set objFileSystem.FolderS). GetFolder(strFolderPath) Pentru fiecare objFile din 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 'Procesează toate folderele și subfolderele recursiv Dacă objFolder.SubFolders.Count > 0 Atunci pentru fiecare objSubFolder În objFolder.SubFolders 'Omite sistemul și folderele ascunse Dacă ((obj.SubFolders) Atribute și 2) = 0) Și ((objSubFolder.Attribute și 4) = 0) Apoi 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, Excel se poate prăbuși din când în când, 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 pe restart. Cu toate acestea, mai des, realitatea nu este așa cum vă așteptați. Atunci, ar fi esențial să se recurgă la o 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