Wie listet man alle Ordner und Unterordner in Excel auf?

Bei der Arbeit mit Verzeichnis- oder Dateiverwaltungsaufgaben kann es vorkommen, dass Sie schnell eine umfassende Liste aller Ordner und Unterordner innerhalb eines bestimmten Verzeichnisses benötigen und diese Informationen direkt in Excel anzeigen möchten. Leider bietet Excel keine integrierte Funktion oder einen einfachen Assistenten, um automatisch alle Ordnernamen oder Unterordnernamen aus einem bestimmten Ordnerpfad abzurufen. Dieser Artikel stellt VBA-Code vor – mit dem Sie alle Ordner und Unterordner aus einem beliebigen gewählten Verzeichnis direkt in Ihr Arbeitsblatt auflisten können. Dadurch wird das Risiko von Fehlern reduziert und mühsame Arbeit vermieden, sodass Sie Ihre Datenorganisation schnell verfolgen und verwalten können.

Verwenden Sie VBA-Code, um alle Ordner und Unterordner aufzulisten

Verwenden Sie VBA-Code, um alle Ordner und Unterordner aufzulisten

Wenn Sie alle Ordnernamen und Unterordnernamen aus einem bestimmten Verzeichnis extrahieren und in Excel anzeigen möchten, ist die Nutzung von VBA (Visual Basic for Applications) eine effektive Lösung. Dieser Ansatz bietet Flexibilität und Kontrolle, sodass Sie nicht nur Ordnernamen, sondern auch zusätzliche Informationen wie Ordnerpfade, Erstellungsdaten und Änderungsdaten erhalten können. Diese Methode ist besonders geeignet für Benutzer, die sich mit den Entwicklerfunktionen von Excel auskennen und mit dynamischen oder sich häufig ändernden Dateisystemen arbeiten.

Drücken Sie ALT + F11, um den Editor „Microsoft Visual Basic for Applications“ zu öffnen. Mit diesem Tool können Sie Makros in Ihrer Arbeitsmappe hinzufügen und bearbeiten.

Klicken Sie im VBA-Editor auf Einfügen > Modul. Dadurch wird ein neues Modulfenster erstellt. Kopieren und fügen Sie den folgenden Code in das Modul ein:

VBA-Code: Alle Ordner und Unterordner auflisten

Sub FolderNames()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim xPath As String
Dim xWs As Worksheet
Dim fso As Object, j As Long, folder1 As Object
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Choose the folder"
    .Show
End With
On Error Resume Next
xPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Application.Workbooks.Add
Set xWs = Application.ActiveSheet
xWs.Cells(1, 1).Value = xPath
xWs.Cells(2, 1).Resize(1, 5).Value = Array("Path", "Dir", "Name", "Date Created", "Date Last Modified")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder1 = fso.getFolder(xPath)
getSubFolder folder1
xWs.Cells(2, 1).Resize(1, 5).Interior.Color = 65535
xWs.Cells(2, 1).Resize(1, 5).EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
Sub getSubFolder(ByRef prntfld As Object)
Dim SubFolder As Object
Dim subfld As Object
Dim xRow As Long
For Each SubFolder In prntfld.SubFolders
    xRow = Range("A1").End(xlDown).Row + 1
    Cells(xRow, 1).Resize(1, 5).Value = Array(SubFolder.Path, Left(SubFolder.Path, InStrRev(SubFolder.Path, "\")), SubFolder.Name, SubFolder.DateCreated, SubFolder.DateLastModified)
Next SubFolder
For Each subfld In prntfld.SubFolders
    getSubFolder subfld
Next subfld
End Sub

Nachdem Sie den Code eingefügt haben, drücken Sie F5 oder klicken Sie auf die Schaltfläche Ausführen im VBA-Editor, um das Makro auszuführen. Ein Dialogfeld „Ordner auswählen“ wird angezeigt, in dem Sie aufgefordert werden, das Zielverzeichnis auszuwählen, das Sie nach Ordnern und Unterordnern durchsuchen möchten.

Wählen Sie das gewünschte Verzeichnis aus und klicken Sie auf OK. Das Makro verarbeitet das Verzeichnis und generiert eine neue Arbeitsmappe, die alle Ordner und Unterordner zusammen mit ihren vollständigen Pfaden, dem übergeordneten Verzeichnis, Namen, Erstellungsdaten und Änderungsdaten auflistet, wie unten gezeigt:

Diese VBA-Lösung ist flexibel, erfordert keine zusätzlichen Add-ins oder externe Software und erstellt automatisch eine Ausgabearbeitsmappe für Ihre Bequemlichkeit. Allerdings ist sie am besten für Benutzer geeignet, die mit grundlegenden Makrooperationen vertraut sind, und könnte für spezifische Anpassungen zusätzliche Anpassungen erfordern.

Verwandter Artikel:

Wie listet man Dateien in einem Verzeichnis in einem Arbeitsblatt in Excel auf?