Wie kann man mehrere Dateinamen in Zellen in Excel importieren?

Angenommen, Sie haben einen Ordner mit Hunderten von Dateien, und jetzt möchten Sie diese Dateinamen in die Zellen eines Arbeitsblatts importieren. Das Kopieren und Einfügen einer nach der anderen würde viel Zeit in Anspruch nehmen. In diesem Artikel werde ich über einige schnelle Tricks sprechen, die Ihnen helfen, mehrere Dateinamen aus einem Ordner in ein Arbeitsblatt zu importieren.

Mehrere Dateinamen mit VBA-Code in Arbeitsblattzellen importieren

Mehrere Dateinamen mit Kutools für Excel in Arbeitsblattzellen importieren

Mehrere Dateinamen mit VBA-Code in Arbeitsblattzellen importieren

Der folgende VBA-Code kann Ihnen helfen, die Dateinamen, Dateiendungen und den Ordnernamen in die Zellen des Arbeitsblatts zu importieren. Bitte gehen Sie wie folgt vor:

1. Öffnen Sie ein neues Arbeitsblatt, in das Sie die Dateinamen importieren möchten.

2. Halten Sie die Tasten ALT + F11 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 Modulfenster ein.

VBA-Code: Mehrere Dateinamen in Zellen eines Arbeitsblatts importieren

Sub GetFileList()
'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)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und wählen Sie im erscheinenden Durchsuchen-Fenster den Ordner aus, aus dem Sie die Dateinamen importieren möchten, siehe Screenshot:

5. Klicken Sie anschließend auf die Schaltfläche OK, und Sie erhalten das folgende Ergebnis:

Hinweis: Wenn sich in Ihrem spezifischen Ordner Unterordner befinden, werden die Dateinamen in den Unterordnern nicht importiert.

Mehrere Dateinamen mit Kutools für Excel in Arbeitsblattzellen importieren

Wenn Sie die Dateinamen sowohl im Ordner als auch in den Unterordnern importieren müssen, machen Sie sich keine Sorgen. Mit dem Hilfsprogramm Dateinamenliste von Kutools für Excel können Sie ganz einfach alle Dateinamen im spezifischen Ordner einschließlich der Unterordner importieren.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. 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 die Schaltfläche, um den Ordner mit den Dateien auszuwählen, die Sie importieren möchten;

(2.) Aktivieren Sie Dateien in Unterverzeichnissen einschließen, um die Dateinamen der Unterordner zu importieren;

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

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

(5.) Wenn Sie die Dateinamen und Ordner verlinken möchten, aktivieren Sie bitte die Option Hyperlinks erstellen.

3. Nachdem Sie die Einstellungen abgeschlossen haben, klicken Sie bitte auf die Schaltfläche OK, und die Dateinamen sowohl im Ordner als auch in den Unterordnern werden in ein neues Arbeitsblatt importiert, wie im folgenden Screenshot gezeigt:

Tipp: Wenn Sie nur Dateinamen eines bestimmten Typs aus einem bestimmten Ordner importieren möchten, können Sie die Option Angeben im Dialogfeld Dateinamenliste aktivieren und die Dateiendung eingeben. Dann werden nur die Dateinamen dieses spezifischen Typs sowohl aus dem Ordner als auch aus den Unterordnern importiert.

Jetzt Kutools für Excel herunterladen und kostenlos testen!

Verwandte Artikel:

Wie listet man alle Dateien in einem Ordner und Unterordnern in ein Arbeitsblatt auf?

Wie listet man alle Dateinamen in einem Ordner auf und erstellt Hyperlinks dafür in Excel?