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 Führen Sie 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 .
Note: 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
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!