Wie liste ich alle Dateien in Ordnern und Unterordnern in einem Arbeitsblatt auf?
Haben Sie jemals versucht, alle Dateinamen aus einem Ordner in einem Arbeitsblatt aufzulisten, einschließlich der Dateien in den Unterordnern? Tatsächlich gibt es für uns keine direkte Möglichkeit, die Dateinamen eines Ordners und seines Unterordners in Excel aufzulisten. Heute werde ich jedoch einige schnelle Tricks vorstellen, um diesen Job zu lösen.
Listen Sie alle Dateinamen in Ordner und Unterordner mit VBA-Code auf
Listen Sie mit Kutools for Excel alle Dateinamen in Ordner und Unterordner schnell und einfach auf
Listen Sie alle Dateinamen in Ordner und Unterordner mit VBA-Code auf
Normalerweise verfügt Excel über keine integrierte Funktion, um diese Aufgabe zu lösen. Sie können jedoch den folgenden VBA-Code anwenden, um dieses Problem zu beheben.
1. Aktivieren Sie ein neues Arbeitsblatt, in dem die Dateinamen aufgelistet sind.
2. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Listet alle Dateinamen in Ordner und Unterordner auf
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. Drücken Sie nach dem Einfügen des Codes in das Modul F5 Schlüssel zum Ausführen dieses Codes und a Makros Das Dialogfeld wird angezeigt. Wählen Sie die Option aus Hauptliste Makroname, und klicken Sie dann auf Run Schaltfläche, siehe Screenshot:
5. Und in der Entdecken Wählen Sie im Fenster den Ordner aus, in dem alle Dateinamen einschließlich der Unterordner aufgelistet werden sollen. Siehe Screenshot:
6. Nachdem Sie den Ordner angegeben haben, klicken Sie auf OK Klicken Sie auf die Schaltfläche, und alle Dateinamen im Ordner und seinen Unterordnern wurden im aktuellen Arbeitsblatt aus Zelle A2 aufgelistet. Siehe Screenshots:
 |
 |
 |
Listen Sie mit Kutools for Excel alle Dateinamen in Ordner und Unterordner schnell und einfach auf
Mit dem obigen Code können Sie nur die Dateinamen auflisten. Manchmal müssen Sie andere Attribute auflisten, z. B. Dateigröße, Dateityp, Erstellungszeit, Ordner usw. Kutools for Excel enthält eine nützliche Funktion - DateinamenlisteMit dieser Funktion können Sie schnell alle oder bestimmte Arten von Dateinamen in einem Ordner und seinen Unterordnern auflisten.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte machen Sie folgende Schritte:
1. Klicken Sie Unternehmen > Import Export > Dateinamenliste, siehe Screenshot:
2. In dem Dateinamenliste Führen Sie im Dialogfeld die folgenden Vorgänge aus:
A: Klicken Sie auf 
Klicken Sie auf die Schaltfläche, um den Ordner auszuwählen, in dem Sie die Dateinamen auflisten möchten.
B: Geben Sie den Dateityp an, den Sie in der Liste auflisten möchten Dateityp Sektion;
C: Wählen Sie eine Dateigrößeneinheit aus, die Sie anzeigen möchten Dateigrößeneinheit Abschnitt.
Hinweis: Um die Dateinamen aus dem Unterordner aufzulisten, überprüfen Sie bitte Dateien in Unterverzeichnisse aufnehmenkönnen Sie auch die überprüfen Schließen Sie versteckte Dateien und Ordner ein wie du es brauchst. Wenn Sie überprüfen Erstellen Sie Hyperlinks Mit dieser Option werden Hyperlinks für jeden Dateinamen und Ordner erstellt.
3. Dann klick OK Auf der Schaltfläche werden alle im ausgewählten Ordner und seinen Unterordnern enthaltenen Dateien mit den folgenden Attributen in einem neuen Arbeitsblatt angezeigt. Siehe Screenshot:
Klicken Sie hier, um weitere Informationen zu diesem Dienstprogramm zur Dateinamenliste zu erhalten.
Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!
Demo: Listen Sie alle Dateinamen in Ordner und Unterordner mit Kutools for Excel auf
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
