3 metodi rapidi per elencare in modo ricorsivo tutti i file in una cartella di Windows nel foglio di lavoro di Excel

Molti utenti devono elencare rapidamente tutti i file in una cartella di Windows e tutte le sue sottocartelle in un foglio di lavoro di Excel. Pertanto, in questo articolo, ti presenteremo 3 modi rapidi per realizzarlo.

Se vuoi elencare in modo ricorsivo tutti i file in una cartella di Windows in un foglio di lavoro di Excel, sicuramente non ti piacerà copiare manualmente i nomi dei file in Excel. Indubbiamente, è troppo noioso e richiede tempo. Quindi, qui ti insegneremo 3 approcci molto più intelligenti e convenienti

Metodo 1: elenca i file in una cartella di Windows tramite Firefox o Google Chrome

1. Prima di tutto, in Esplora risorse, accedi alla cartella specifica di Windows e copia il percorso della cartella.
2. Quindi, avvia Firefox o Google Chrome.
3. Successivamente, incolla il percorso della cartella copiata nella barra degli indirizzi del browser Internet.
4. Successivamente, premi il tasto "Invio".
5. Contemporaneamente, tutti i file in questa cartella di Windows verranno elencati nel browser.
6. Quindi, premi "Ctrl + A" per selezionare tutti i contenuti e ""Ctrl + C"" per copiarli.
7. Infine, incollali in un foglio di lavoro Excel.

Metodo 2: elenca i file in una cartella di Windows tramite "Name Manager"

1. Inizialmente, crea un nuovo foglio di lavoro Excel.
2. Quindi, seleziona la cella A1.
3. Successivamente, vai alla scheda "Formule" e fai clic sul pulsante "Gestore nomi".
4. Nella finestra di dialogo popup, fare clic sul pulsante "Nuovo".
5. Successivamente, nella finestra di dialogo successiva, inserire "File" nel campo "Nome".
6. E cambia "=Foglio1!$A$1" in "=FILES(Foglio1!$A$1)" nel campo "Si riferisce a:".
7. Successivamente, fai clic su "OK" e chiudi la finestra di dialogo "Name Manager".
8. Successivamente, copia il percorso della cartella Windows nella cella A1 e aggiungi "\*” alla fine del percorso.
9. Successivamente, seleziona la cella A3 e inserisci la funzione "= INDICE (File, RIGA () -2)".
10. Immediatamente, verrà elencato un file in questa cartella di Windows, come nell'immagine seguente.
11. Infine, basta copiare questa funzione di diverse righe per elencare gli altri file finché non viene visualizzato "#REF!" errore. L'errore indica che tutti i file sono stati elencati.

Metodo 3: elencare in modo ricorsivo i file in una cartella di Windows tramite Excel VBA

1. Per cominciare, crea un nuovo file Excel.
2. Successivamente, accedi all'editor VBA di Excel con riferimento a "Come eseguire il codice VBA nel tuo Excel".
3. Quindi, copia il seguente codice nel progetto "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. Ora, fai clic sulla prima subroutine e premi il tasto "F5".
5. Nella finestra di dialogo popup, individuare e selezionare una cartella di Windows da cui si desidera elencare i file e fare clic su "OK".
6. Alla fine, al termine della macro, torna al foglio di lavoro di Excel. Tutti i file nella cartella Windows e nelle sue sottocartelle sono stati elencati, come mostrato nello screenshot seguente.

Excel si blocca di volta in volta

Come altri software, Excel può bloccarsi di tanto in tanto, il che può distruggere direttamente il file Excel attualmente aperto. In questi casi, la maggior parte degli utenti spera che Excel possa ripristinare automaticamente il file al riavvio. Tuttavia, più spesso la realtà non è quella che ci si aspetta. Quindi, sarebbe essenziale ricorrere a un Riparazione Excel strumento, come DataNumen Excel Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com