Wie kann man alle Ordner und Unterordner in Excel auflisten?

Hatten Sie jemals das Problem, alle Ordner und Unterordner aus einem bestimmten Verzeichnis in ein Arbeitsblatt aufzulisten? In Excel gibt es keine schnelle und einfache Möglichkeit, die Namen aller Ordner in einem bestimmten Verzeichnis auf einmal zu erhalten. Um diese Aufgabe zu bewältigen, kann Ihnen dieser Artikel helfen.

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

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

Wenn Sie alle Ordnernamen aus einem bestimmten Verzeichnis abrufen möchten, kann Ihnen der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten "ALT + F11" gedrückt, und es öffnet sich das Fenster "Microsoft Visual Basic for Applications".

2. Klicken Sie auf "Einfügen" > "Modul", und fügen Sie den folgenden Code in das "Modulfenster" ein.

VBA-Code: Liste aller Ordner und Unterordnernamen

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

3. Drücken Sie dann die Taste "F5", um diesen Code auszuführen, und ein Fenster mit der Bezeichnung "Ordner auswählen" wird angezeigt. Wählen Sie das Verzeichnis aus, aus dem Sie die Ordnernamen und Unterordnernamen auflisten möchten, siehe Screenshot:

4. Klicken Sie auf "OK", und Sie erhalten den Pfad, das Verzeichnis, den Namen, das Erstellungsdatum und das letzte Änderungsdatum der Ordner und Unterordner in einer neuen Arbeitsmappe, siehe Screenshot:

Verwandter Artikel:

Wie kann man Dateien in einem Verzeichnis in ein Arbeitsblatt in Excel auflisten?