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

Wenn Sie eine Liste von Dateinamen aus einem Verzeichnis in ein Excel-Arbeitsblatt generieren müssen, helfen Ihnen die folgenden Methoden dabei, dies schnell und effizient zu tun. Wählen Sie den Ansatz, der am besten zu Ihren Bedürfnissen passt.

• Alle Dateinamen aus einem Ordner mithilfe eines Webbrowsers in ein Arbeitsblatt auflisten
• Alle Dateinamen aus einem Ordner mithilfe einer Formel in ein Arbeitsblatt auflisten
• Alle Dateinamen aus einem Ordner mithilfe von VBA-Code in ein Arbeitsblatt auflisten
• Alle Dateinamen aus einem Ordner und Unterordnern mithilfe von Kutools in ein Arbeitsblatt auflisten

Alle Dateinamen aus einem Ordner mithilfe eines Webbrowsers in ein Arbeitsblatt auflisten

Wenn Sie Dateien in einem Ordner mithilfe des Webbrowsers auflisten möchten, sollten Sie sicherstellen, dass Sie einen der Webbrowser (Firefox, Opera und Google Chrome) auf Ihrem Computer installiert haben. Angenommen, Sie müssen die Dateien des folgenden Ordners im Arbeitsblatt auflisten, siehe Screenshot:

1. Gehen Sie zum Kopieren des Pfads des Ordners ("Ordner Test") im Explorer. Zum Beispiel ist der Pfad dieses Ordners: "C:\Users\AddinTestWin10\Desktop\Ordner Test".

2. Öffnen Sie einen der Webbrowser (FireFox, Opera und Google Chrome) und fügen Sie den Ordnerpfad in die Adressleiste ein und drücken Sie die Eingabetaste. Siehe Screenshot:

3. Klicken Sie auf "Strg+A", um alle Inhalte im Webbrowser auszuwählen, und drücken Sie "Strg+C", um sie zu kopieren.

4. Öffnen Sie Excel und fügen Sie sie direkt ein (verwenden Sie die Tastenkombination "Strg+V" zum Einfügen) in ein Arbeitsblatt. Siehe Screenshot:

Alle Dateinamen aus einem Ordner mithilfe einer Formel in ein Arbeitsblatt auflisten

In Excel können Sie auch eine Formel verwenden, um die Liste aller Dateinamen oder spezifischer Dateitypen aus einem Ordner zu erhalten. Bitte gehen Sie wie folgt vor:

1. Kopieren und fügen Sie den Dateipfad in eine Zelle ein, und geben Sie dann \* nach dem Dateipfad ein, wie im folgenden Screenshot gezeigt:

2. Klicken Sie dann auf "Formel" > "Namen verwalten", siehe Screenshot:

3. Klicken Sie im Dialogfeld "Namen verwalten" auf die Schaltfläche "Neu", siehe Screenshot:

4. Geben Sie im erscheinenden Dialogfeld "Neuer Name" einen Namen in das Textfeld "Name" ein, und geben Sie dann die folgende Formel in das Textfeld "Bezieht sich auf" ein, siehe Screenshot:

Hinweis: In dieser Formel ist "Arbeitsblatt1!$A$1" die Zelle des Arbeitsblatts, die den Dateipfad enthält, den Sie in Schritt 1 eingegeben haben.

5. Klicken Sie anschließend auf "OK" > "Schließen", um die Dialoge zu schließen, und geben Sie dann die folgende Formel in eine leere Zelle ein, wo Sie die Dateinamen auflisten möchten, und ziehen Sie den Ausfüllknauf nach unten, bis leere Zellen angezeigt werden. Nun wurden alle Dateinamen im angegebenen Ordner wie im folgenden Screenshot gezeigt aufgelistet:

Hinweis: In dieser Formel ist "Dateinamen" der Bereichsname, den Sie in Schritt 4 erstellt haben, und "A1" ist die Zelle, die den Dateipfad enthält.

Alle Dateinamen aus einem Ordner mithilfe von VBA-Code in ein Arbeitsblatt auflisten

Verwenden Sie den folgenden VBA-Code, um Dateien in einem Ordner in einem Arbeitsblatt aufzulisten:

1. Öffnen Sie ein Arbeitsblatt und klicken Sie auf eine Zelle, in der Sie die Dateinamen einfügen möchten.

2. Halten Sie die Tasten "ALT + F11" in Excel gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

3. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Fenster "Modul" ein.

VBA-Code: Alle Dateinamen aus einem Ordner in ein Arbeitsblatt auflisten

Sub listfiles()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
    Next
End Sub

4. Drücken Sie dann die F5-Taste, um den Code auszuführen. Ein neues Fenster "Durchsuchen" wird angezeigt. Wählen Sie den Ordner aus, dessen Dateinamen Sie auflisten möchten.

5. Klicken Sie dann auf OK, die Dateien im spezifischen Ordner wurden mit Hyperlinks in das Arbeitsblatt aufgelistet. Siehe Screenshot:

Alle Dateinamen aus einem Ordner und Unterordnern mithilfe von Kutools in ein Arbeitsblatt auflisten

Die Funktion "Dateinamenliste" von "Kutools für Excel" kann ganz einfach eine Liste von Dateien aus einem Verzeichnis in einem Arbeitsblatt generieren.

1. Öffnen Sie Excel, klicken Sie auf "Kutools Plus" > "Import / Export" > "Dateinamenliste…", siehe Screenshot:

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

(1) Klicken Sie auf , um den Ordner anzugeben, der die Dateien enthält, die Sie auflisten möchten;

(2) Aktivieren Sie die Option "Dateien in Unterverzeichnissen einschließen", um alle Dateinamen in Unterordnern aufzulisten, oder aktivieren Sie die Option "Ausgeblendete Dateien und Ordner einschließen", um alle Namen der ausgeblendeten Dateien sowie Dateinamen in ausgeblendeten Ordnern aufzulisten;

(3) Geben Sie unter dem Abschnitt "Dateityp" den Dateityp an, den Sie auflisten möchten;

(4) Wählen Sie eine Dateigrößeneinheit aus, die Sie im Abschnitt "Dateigrößeneinheit" anzeigen möchten.

(5) Aktivieren Sie bei Bedarf die Option "Hyperlinks erstellen".

3. Klicken Sie auf OK. Es wird eine Liste der Dateien im Verzeichnis oder Unterverzeichnis in einem neuen Arbeitsblatt generiert. Siehe Screenshot:

Weitere verwandte Artikel: