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:
5. Und dann klick OK Klicken Sie auf die Schaltfläche, und Sie erhalten das folgende Ergebnis:
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 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 .
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:
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
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
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 ...
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!