Wie kann man alle Dateinamen in einem Ordner auflisten und dafür Hyperlinks in Excel erstellen?

Für Ihre tägliche Arbeit müssen Sie möglicherweise mehrere Dateinamen aus einem Ordner in ein Arbeitsblatt importieren und für jede Datei Hyperlinks erstellen, damit Sie die Dateien schnell und einfach öffnen können. Vielleicht könnten Sie die Dateinamen kopieren und einfügen und dann manuell einen Hyperlink für jeden davon erstellen, aber das würde viel Zeit kosten, wenn es Hunderte von Dateien im Ordner gibt. Heute werde ich über einige schnelle und interessante Methoden sprechen, um diese Aufgabe zu bewältigen.

Alle Dateinamen in einem Ordner auflisten und mit VBA-Code Hyperlinks erstellen

Alle Dateinamen in einem Ordner auflisten und mit Kutools für Excel Hyperlinks erstellen

Alle Dateinamen in einem Ordner auflisten und mit VBA-Code Hyperlinks erstellen

Um eine Liste zu erstellen und Hyperlinks für Dateien aus einem Ordner zu erstellen, kann der folgende VBA-Code Ihnen helfen.

1. Aktivieren Sie ein neues Arbeitsblatt, um das Ergebnis einzufügen.

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

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

VBA: Alle Dateinamen in einem Ordner auflisten und Hyperlinks erstellen

Sub Example1()
'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 diesen Code auszuführen, und wählen Sie den Ordner aus, aus dem Sie die Dateien auflisten möchten, aus dem Durchsuchen-Fenster, siehe Screenshot:

5. Nachdem Sie den Ordner angegeben haben, klicken Sie auf die Schaltfläche OK, und alle Dateien im spezifischen Ordner werden mit Hyperlinks im aktiven Arbeitsblatt aufgelistet, siehe Screenshot:

Hinweis: Wenn es Unterverzeichnisse in Ihrem spezifischen Ordner gibt, werden die Dateien in den Unterverzeichnissen nicht aufgelistet.

Alle Dateinamen in einem Ordner auflisten und mit Kutools für Excel Hyperlinks erstellen

Um alle Dateien sowohl in einem Ordner als auch in dessen Unterverzeichnissen aufzulisten und für jede Datei Hyperlinks zu erstellen, kann Kutools für Excel’s Dateinamenliste helfen. Mit dieser Funktion werden alle Dateien im Ordner und in den Unterverzeichnissen auf einmal mit einigen Attributen wie Dateiname, Dateigröße, Erstellungsdatum, enthaltendem Ordner usw. aufgelistet.

Wenn Sie Kutools für Excel installiert haben, führen Sie bitte die folgenden Schritte aus:

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

2. Im Dialogfeld „Dateinamenliste“ führen Sie bitte die folgenden Aktionen aus:

(1.) Klicken Sie auf die Schaltfläche, um den Ordner auszuwählen, aus dem Sie die Dateinamen auflisten möchten;

(2.) Aktivieren Sie „Dateien in Unterverzeichnissen einschließen“, wenn Sie Dateinamen innerhalb von Unterordnern auflisten möchten, aktivieren Sie „Versteckte Dateien und Ordner einschließen“, wenn Sie versteckte Dateien auflisten möchten;

(3.) Geben Sie die Dateitypen an, die Sie finden und auflisten möchten, im Abschnitt „Dateityp“;

(4.) Wählen Sie die Einheit der Dateigröße aus, die Sie anzeigen möchten;

(5.) Aktivieren Sie „Hyperlinks erstellen“ am linken unteren Rand des Dialogfelds.

Jetzt Kutools für Excel herunterladen!

3. Klicken Sie dann auf die Schaltfläche OK, und alle Dateien im Ordner und in den Unterverzeichnissen werden in einem neuen Arbeitsblatt mit den benötigten Hyperlinks aufgelistet, siehe Screenshot:

Klicken Sie hier, um weitere Details über das Hilfsprogramm „Dateinamenliste“ zu erfahren…

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Demo: Alle Dateinamen in einem Ordner auflisten und mit Kutools für Excel Hyperlinks erstellen

Verwandter Artikel:

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