Direkt zum Inhalt

Wie importiere ich mehrere Dateinamen in Zellen in Excel?

Angenommen, Sie haben einen Ordner mit Hunderten von Dateien, und jetzt möchten Sie diese Dateinamen in Zellen eines Arbeitsblatts importieren. Das Kopieren und Einfügen nacheinander wird viel Zeit in Anspruch nehmen. In diesem Artikel werde ich einige schnelle Tricks erläutern, mit denen Sie mehrere Dateinamen aus einem Ordner in ein Arbeitsblatt importieren können.

Importieren Sie mehrere Dateinamen in Arbeitsblattzellen mit VBA-Code

Importieren Sie mit Kutools for Excel mehrere Dateinamen in Arbeitsblattzellen


Importieren Sie mehrere Dateinamen in Arbeitsblattzellen mit VBA-Code

Der folgende VBA-Code kann Ihnen beim Importieren der Dateinamen, Dateierweiterungen und Ordnernamen in die Arbeitsblattzellen helfen. Führen Sie die folgenden Schritte aus:

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

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Importieren Sie mehrere Dateinamen in Zellen des Arbeitsblatts

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. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und wählen Sie im ausgeblendeten Durchsuchen-Fenster den Ordner aus, in den Sie das Dateinamenformular importieren möchten. Siehe Screenshot:

doc importieren Dateinamen 1

5. Und dann klick OK Klicken Sie auf die Schaltfläche, und Sie erhalten das folgende Ergebnis:

doc importieren Dateinamen 2

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


Importieren Sie mit Kutools for Excel mehrere Dateinamen in Arbeitsblattzellen

Wenn Sie die Dateinamen sowohl in den Ordner als auch in die Unterordner importieren müssen, machen Sie sich bitte keine Sorgen mit Kutools for Excel Dateinamenliste Dienstprogramm, können Sie einfach alle Dateinamen in den bestimmten Ordner einschließlich der Unterordner importieren.

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 gehen Sie wie folgt vor:

1. Klicken Sie Kutoolen Plus> Import Export > Dateinamenliste, siehe Screenshot:

2. In dem Dateinamenliste Führen Sie im Dialogfeld die folgenden Vorgänge aus:

(1.) Klicken Sie auf doc importieren Dateinamen 5 Schaltfläche, um den Ordner mit den Dateien auszuwählen, die Sie importieren möchten;

(2.) Überprüfen Dateien in Unterverzeichnisse aufnehmen die Dateinamen der Unterordner zu importieren;

(3.) Geben Sie den Dateityp an, den Sie importieren möchten Dateityp Sektion;

(4.) Wählen Sie eine Dateigrößeneinheit aus, die Sie anzeigen möchten Dateigrößeneinheit Sektion;

(5.) Wenn Sie die Dateinamen und Ordner per Hyperlink verknüpfen möchten, überprüfen Sie dies bitte Erstellen Sie Hyperlinks .

doc importieren Dateinamen 4

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

doc importieren Dateinamen 6

Tips: Wenn Sie nur Dateinamen eines bestimmten Typs aus einem bestimmten Ordner importieren möchten, können Sie dies überprüfen Angeben Option in der Dateinamenliste Dialogfeld, und geben Sie die Dateierweiterung ein. Anschließend werden nur die angegebenen Dateinamen aus Ordnern und Unterordnern importiert.

Klicken Sie hier, um mehr über diese Funktion für die Dateinamenliste zu erfahren.

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Demo: Importieren Sie mit Kutools for Excel mehrere Dateinamen in Arbeitsblattzellen

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehende Artikel:

Wie liste ich alle Dateien in Ordnern und Unterordnern in einem Arbeitsblatt auf?

Wie liste ich alle Dateinamen in einem Ordner auf und erstelle Hyperlinks für sie in Excel?

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

kte tab 201905


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!
Comments (14)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
very helpful. Tnx much
Rated 5 out of 5
This comment was minimized by the moderator on the site
Another easy method is there. Just copy the directory path where you have saved the documents, and paste that link in browser (chrome/mozilla). You will get the name list and just copy paste into excel. Cheers!
This comment was minimized by the moderator on the site
i want to add table,only folder name,and data modified as well?
This comment was minimized by the moderator on the site
Hello,
Do you want to list all folder names from a specific main folder? Please give your problem more detailed.
This comment was minimized by the moderator on the site
i want to mention only folder name.what is vba code for that.
This comment was minimized by the moderator on the site
is there a way to put the folder path already in the code?
This comment was minimized by the moderator on the site
For the VBA code, how would you pull in the date modified as well?
This comment was minimized by the moderator on the site
Hello,
Add the date modified column for the imported filenames, please apply the following VBA code, please try it, hope it can help you!

Sub GetFileList()
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"
ActiveSheet.Cells(1, 4) = "Date last modified"
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)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Next
End Sub
This comment was minimized by the moderator on the site
Thanks. It was awesome
This comment was minimized by the moderator on the site
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah run time 26 path not found bisa bantu kenapa itu bisa terjadi?
This comment was minimized by the moderator on the site
Apakah bisa merename file dengan excel?
terimakasih sangat membantu perkerjaan saya,
This comment was minimized by the moderator on the site
Very helpful, thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations