3 Schnelle Methoden zum rekursiven Auflisten aller Dateien in einem Windows-Ordner im Excel-Arbeitsblatt

Viele Benutzer müssen schnell alle Dateien in einem Windows-Ordner und alle zugehörigen Unterordner in einem Excel-Arbeitsblatt auflisten. Daher werden wir Ihnen in diesem Artikel drei schnelle Möglichkeiten vorstellen, dies zu realisieren.

Wenn Sie alle Dateien in einem Windows-Ordner in einem Excel-Arbeitsblatt rekursiv auflisten möchten, möchten Sie die Dateinamen sicherlich nicht manuell nach Excel kopieren. Zweifellos ist es zu langweilig und zeitaufwändig. Daher werden wir Ihnen hier 3 viel intelligentere und bequemere Ansätze beibringen

Methode 1: Listen Sie Dateien in einem Windows-Ordner über Firefox oder Google Chrome auf

1. Greifen Sie zunächst im Windows Explorer auf den jeweiligen Windows-Ordner zu und kopieren Sie den Ordnerpfad.
2. Starten Sie dann Firefox oder Google Chrome.
3. Fügen Sie als Nächstes den kopierten Ordnerpfad in die Adressleiste des Internetbrowsers ein.
4. Drücken Sie danach die Eingabetaste.
5. Alle Dateien in diesem Windows-Ordner werden sofort im Browser aufgelistet.
6. Drücken Sie dann "Strg + A", um alle Inhalte auszuwählen, und "Strg + C", um sie zu kopieren.
7. Zuletzt fügen Sie sie in ein Excel-Arbeitsblatt ein.

Methode 2: Listen Sie Dateien in einem Windows-Ordner über "Name Manager" auf.

1. Erstellen Sie zunächst ein neues Excel-Arbeitsblatt.
2. Wählen Sie dann Zelle A1 aus.
3. Wechseln Sie als Nächstes zur Registerkarte "Formeln" und klicken Sie auf die Schaltfläche "Namensmanager".
4. Klicken Sie im Popup-Dialogfeld auf die Schaltfläche "Neu".
5. Geben Sie anschließend im nächsten Dialogfeld "Dateien" in das Feld "Name" ein.
6. Und ändern Sie "= Sheet1! $ A $ 1" in "= FILES (Sheet1! $ A $ 1)" im Feld "Verweist auf:".
7. Klicken Sie anschließend auf "OK" und schließen Sie das Dialogfeld "Namensmanager".
8. Kopieren Sie später den Windows-Ordnerpfad in Zelle A1 und fügen Sie „\* ”Am Ende des Pfades.
9. Wählen Sie als nächstes die Zelle A3 aus und geben Sie die Funktion „= INDEX (Files, ROW () - 2)“ ein.
10. Sofort wird eine Datei in diesem Windows-Ordner wie im folgenden Bild aufgelistet.
11. Zum Schluss kopieren Sie diese Funktion einfach in mehrere Zeilen, um die anderen Dateien aufzulisten, bis "#REF!" Error. Der Fehler bedeutet, dass alle Dateien aufgelistet wurden.

Methode 3: Rekursives Auflisten von Dateien in einem Windows-Ordner über Excel VBA

1. Erstellen Sie zunächst eine neue Excel-Datei.
2. Rufen Sie als Nächstes den Excel VBA-Editor mit dem Verweis auf „So führen Sie VBA-Code in Ihrem Excel aus".
3. Kopieren Sie dann den folgenden Code in das Projekt „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. Klicken Sie nun in das erste Unterprogramm und drücken Sie die Taste „F5“.
5. Navigieren Sie im Popup-Dialogfeld zu einem Windows-Ordner, aus dem Sie Dateien auflisten möchten, und wählen Sie ihn aus. Klicken Sie dann auf "OK".
6. Wenn das Makro fertig ist, kehren Sie schließlich zum Excel-Arbeitsblatt zurück. Alle Dateien im Windows-Ordner und seinen Unterordnern wurden aufgelistet, wie im folgenden Screenshot gezeigt.

Excel stürzt von Zeit zu Zeit ab

Wie andere Software kann auch Excel gelegentlich abstürzen, wodurch die aktuell geöffnete Excel-Datei direkt zerstört werden kann. In solchen Fällen hoffen die meisten Benutzer, dass Excel die Datei beim Neustart automatisch wiederherstellt. Häufiger ist dies jedoch nicht der Fall. Dann ist es unerlässlich, auf eine alternative Lösung zurückzugreifen. Excel-Reparatur Werkzeug, wie DataNumen Excel Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich mdf wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX