Wie kann man alle Dateien in einem Ordner und Unterordnern in ein Arbeitsblatt auflisten?

Haben Sie jemals versucht, alle Dateinamen aus einem Ordner in ein Arbeitsblatt aufzulisten, einschließlich der Dateien, die sich in seinen Unterordnern befinden? Tatsächlich gibt es keinen direkten Weg, um die Dateinamen aus einem Ordner und dessen Unterordnern in Excel aufzulisten. Heute werde ich Ihnen jedoch einige schnelle Tricks vorstellen, um diese Aufgabe zu lösen.

Alle Dateinamen im Ordner und Unterordner mit VBA-Code auflisten

Alle Dateinamen im Ordner und Unterordner schnell und einfach mit Kutools für Excel auflisten

Alle Dateinamen im Ordner und Unterordner mit VBA-Code auflisten

Normalerweise hat Excel keine integrierte Funktion, um diese Aufgabe zu bewältigen, aber Sie können den folgenden VBA-Code anwenden, um dieses Problem zu lösen.

1. Aktivieren Sie ein neues Arbeitsblatt, in dem die Dateinamen aufgelistet werden sollen.

2. Halten Sie in Excel die Tasten ALT + F11 gedrückt, und das Fenster Microsoft Visual Basic for Applications öffnet sich.

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

VBA-Code: Alle Dateinamen im Ordner und Unterordner auflisten

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

4. Nachdem Sie den Code in das Modul eingefügt haben, drücken Sie die Taste F5, um diesen Code auszuführen, und ein Makros-Dialogfeld erscheint. Wählen Sie den Makronamen MainList aus, und klicken Sie dann auf die Schaltfläche Ausführen, siehe Screenshot:

5. Und im Durchsuchen-Fenster wählen Sie bitte den Ordner aus, aus dem Sie alle Dateinamen einschließlich der Unterordner auflisten möchten, siehe Screenshot:

6. Nachdem Sie den Ordner angegeben haben, klicken Sie auf die Schaltfläche OK, und alle Dateinamen im Ordner und dessen Unterordnern werden ab Zelle A2 im aktuellen Arbeitsblatt aufgelistet, siehe Screenshots:

Alle Dateinamen im Ordner und Unterordner schnell und einfach mit Kutools für Excel auflisten

Mit dem obigen Code können Sie nur die Dateinamen auflisten. Manchmal müssen Sie jedoch andere Attribute auflisten, wie Dateigröße, Dateityp, Erstellungsdatum, enthaltender Ordner usw. Kutools für Excel enthält eine nützliche Funktion – Dateinamenliste. Mit dieser Funktion können Sie schnell alle oder bestimmte Arten von Dateinamen in einem Ordner und dessen Unterordnern auflisten.

Nach dem Herunterladen und Installieren von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Enterprise > Import & Export > Dateinamenliste, siehe Screenshot:

2. Führen Sie im Dialogfeld Dateinamenliste die folgenden Aktionen aus:

A: Klicken Sie auf die Schaltfläche, um den Ordner auszuwählen, aus dem Sie die Dateinamen auflisten möchten;

B: Geben Sie den Dateityp an, den Sie im Abschnitt Dateityp auflisten möchten;

C: Wählen Sie eine Dateigrößeneinheit aus, die Sie im Abschnitt Einheit der Dateigröße anzeigen möchten.

Hinweis: Um die Dateinamen aus dem Unterordner aufzulisten, aktivieren Sie bitte die Option Dateien in Unterverzeichnissen einschließen. Sie können auch die Option Versteckte Dateien und Ordner einschließen aktivieren, falls nötig. Wenn Sie die Option Hyperlinks erstellen aktivieren, werden für jeden Dateinamen und Ordner Hyperlinks erstellt.

3. Klicken Sie dann auf die Schaltfläche OK, und alle im ausgewählten Ordner und dessen Unterordnern enthaltenen Dateien werden mit den folgenden Attributen in einem neuen Arbeitsblatt angezeigt. Siehe Screenshot:

Klicken Sie hier, um weitere Details über dieses Dateinamenlisten-Dienstprogramm zu erfahren.

Jetzt Kutools für Excel herunterladen und kostenlos testen!