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:

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

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:

Tipps: 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?

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...