Wie importiert man mehrere Dateinamen in Excel-Zellen?
Angenommen, Sie haben einen Ordner mit Hunderten von Dateien und möchten die Dateinamen direkt in die Zellen eines Arbeitsblatts importieren. Das manuelle Kopieren und Einfügen jeder einzelnen Datei ist zeitaufwendig. In diesem Artikel stelle ich Ihnen einige schnelle Methoden vor, mit denen Sie mehrere Dateinamen aus einem Ordner problemlos in ein Arbeitsblatt übertragen können.
Importieren mehrerer Dateinamen in Arbeitsblattzellen mithilfe von VBA-Code
Importieren mehrerer Dateinamen in Arbeitsblattzellen mit Kutools für Excel
Importieren mehrerer Dateinamen in Arbeitsblattzellen mithilfe von VBA-Code
Der folgende VBA-Code unterstützt Sie dabei, Dateinamen, Dateierweiterungen und Ordnernamen direkt in die Zellen Ihres Arbeitsblatts zu importieren. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie ein neues Arbeitsblatt, in das Sie die Dateinamen importieren möchten.
2. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Importieren mehrerer Dateinamen in Zellen eines 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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Wählen Sie im erscheinenden Dialogfenster „Durchsuchen“ den Ordner aus, aus dem Sie die Dateinamen importieren möchten. Siehe Screenshot:
5. Klicken Sie danach auf die Schaltfläche OK, und Sie erhalten das folgende Ergebnis:
Hinweis: Befinden sich in Ihrem angegebenen Ordner Unterordner, werden die Dateinamen aus diesen Unterordnern nicht importiert.
Importieren mehrerer Dateinamen in Arbeitsblattzellen mit Kutools für Excel
Möchten Sie die Dateinamen nicht nur aus dem Ordner, sondern auch aus allen Unterordnern importieren? Kein Problem! Mit dem Kutools für Excel-Dateinamenliste-Tool importieren Sie mühelos alle Dateinamen aus dem angegebenen Ordner – inklusive aller Unterordner.
Nach der Installation von Kutools für Excelgehen 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 Schritte aus:
(1.) Klicken Sie auf die Schaltfläche 
, um den Ordner mit den gewünschten Dateien auszuwählen;
(2.) Aktivieren Sie das Kontrollkästchen Dateien in Unterverzeichnissen einschließen, um die Dateinamen aus den Unterordnern ebenfalls zu importieren;
(3.) Geben Sie unter dem Abschnitt Dateitypan, welche Dateityp Sie importieren möchten;
(4.) Wählen Sie im Abschnitt Einheit der Dateigrößeeine Einheit der Dateigröße aus, die angezeigt werden soll;
(5.) Wenn Sie Datei- und Ordnernamen mit Hyperlinks versehen möchten, aktivieren Sie bitte die Option Hyperlink erstellen.
3. Nachdem Sie die Einstellungen abgeschlossen haben, klicken Sie auf die Schaltfläche OK, und die Dateinamen aus dem Ordner sowie aus den Unterordnern werden in ein neues Arbeitsblatt importiert – wie im folgenden Screenshot dargestellt:
Tipps Tipp: Möchten Sie nur Dateinamen eines bestimmten Dateityps aus einem bestimmten Ordner importieren, aktivieren Sie im Dialogfeld Angeben die entsprechende Option und geben Sie die gewünschte Dateierweiterung ein. Dadurch werden ausschließlich die Dateinamen des angegebenen Typs aus dem Ordner und dessen Unterordnern importiert.Dateinamenliste Tipp: Möchten Sie nur Dateinamen eines bestimmten Dateityps aus einem bestimmten Ordner importieren, aktivieren Sie im Dialogfeld AngebenWählen Sie die entsprechende Option und geben Sie die gewünschte Dateierweiterung ein, um ausschließlich Dateinamen dieses Typs aus dem Ordner und allen Unterordnern zu importieren.
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Verwandte Artikel:
Wie listet man alle Dateien in einem Ordner und dessen Unterordnern in einem Arbeitsblatt auf?
Wie listet man alle Dateinamen in einem Ordner auf und erstellt Hyperlink erstellen dafür in Excel?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins