Note: The other languages of the website are Google-translated. Back to English

Wie kombiniere / importiere ich mehrere CSV-Dateien in mehrere Arbeitsblätter?

Wie können Sie mit diesem Job in Excel umgehen, wenn Sie mehrere CSV-Dateien aus einem Ordner als separate Arbeitsblätter in einer Arbeitsmappe importieren möchten?

Importieren Sie mehrere CSV-Dateien in separate Arbeitsblätter mit VBA-Code

Importieren Sie mit Kutools for Excel mehrere CSV-Dateien in separate Arbeitsblätter

Teilen Sie eine Arbeitsmappe in mehrere separate csv / pdf / txt / excel-Dateien auf


Um schnell mehrere CSV-Dateien in eine Arbeitsmappe zu importieren, kann der folgende VBA-Code Ihnen einen Gefallen tun. Gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten in Excel, um die zu öffnen Microsoft Visual Basic für Applikationen Fenster.

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

VBA-Code: Importieren Sie mehrere Textdateien in separate Arbeitsblätter:

Sub CombineCsvFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Fenster geöffnet. Wechseln Sie in den entsprechenden Ordner und wählen Sie die CSV-Dateien aus, die Sie in Excel importieren möchten.

doc import csv in Arbeitsblatt 1

4. Und dann klick Offen Schaltfläche, wurden die ausgewählten CSV-Dateien als separate Arbeitsblätter in eine neue Arbeitsmappe importiert.

5. Schließlich können Sie die neue Arbeitsmappe nach Bedarf speichern.


Wenn Sie Kutools for Excel, mit seinem mächtigen Werkzeug-KombinierenSie können bei Bedarf schnell mehrere CSV-Dateien in einem einzigen Arbeitsblatt oder in mehreren getrennten Arbeitsblättern kombinieren oder importieren.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. bitte klicken Kutoolen Plus > Kombinieren, siehe Screenshot:

2. In den Arbeitsblätter kombinieren Dialogfeld bitte auswählen Kombinieren Sie mehrere Arbeitsblätter aus Arbeitsmappen zu einer Arbeitsmappe, siehe Screenshot:

doc import csv in Arbeitsblatt 6

3. In dem Schritte 2 Klicken Sie im Assistenten auf Verwenden Sie > Reichen Sie das Informationen zum Auswählen der CSV-Dateien, die Sie kombinieren möchten, finden Sie im Screenshot:

doc import csv in Arbeitsblatt 7

4. In der herausgesprungen Offen Dialog auswählen (* .csv) Geben Sie in der Dropdown-Liste die CSV-Dateien an, die Sie zusammenführen möchten.

doc import csv in Arbeitsblatt 8

5. Dann klick Offen Klicken Sie auf die Schaltfläche, und Ihre ausgewählten CSV-Dateien wurden in das Dialogfeld importiert. Siehe Screenshot:

doc import csv in Arbeitsblatt 9

6. In dem Schritte 3Bitte führen Sie die folgenden Vorgänge aus:

(1.) Überprüfen Erste Zeile jedes Arbeitsblatts (Kommentare) von dem Arbeitsblattinformationen einfügen In diesem Abschnitt werden alle Informationen zu CSV-Dateien als Kommentare in die kombinierten Blätter eingefügt.

(2.) Sie können die CSV-Dateien nach Bedarf umbenennen.

(3.) Sie können die leeren CSV-Dateien überspringen, wenn Sie auf eine leere CSV-Datei stoßen.

doc import csv in Arbeitsblatt 10

7. Dann klick Beschichtung Klicken Sie auf die Schaltfläche, und nach Abschluss der Kombination können Sie einen Dateinamen und einen Speicherort für Ihre neue kombinierte Arbeitsmappe angeben. Siehe Screenshot:

doc import csv in Arbeitsblatt 11

8. Dann klick Speichern Klicken Sie auf die Schaltfläche im ausgeblendeten Eingabeaufforderungsfeld, um den Klick auf die neue Datei zu öffnen Jaund schließen Sie es durch Klicken Nein, siehe Screenshot:

doc import csv in Arbeitsblatt 12

9. Und dann können Sie dieses Szenario speichern oder nicht, wie Sie möchten. Siehe Screenshot:

doc import csv in Arbeitsblatt 13

10. Zuletzt wurden Ihre ausgewählten CSV-Dateien in eine neue Arbeitsmappe mit getrenntem Arbeitsblatt importiert, siehe Screenshot:

doc import csv in Arbeitsblatt 14

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


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 bestimmten Fällen möchten Sie möglicherweise eine Arbeitsmappe in separate CSV-Dateien aufteilen. Das Dienstprogramm "Arbeitsmappe teilen" von Kutools for Excel kann diesen Auftrag schnell und einfach beenden.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen Plus > Workbook > Arbeitsmappe teilen, siehe Screenshot:

2. In den Arbeitsmappe teilen Dialogbox:

(1.) Überprüfen Sie die Arbeitsblätter, die Sie teilen möchten.

(2.) Und überprüfen Geben Sie save anFormatWählen Sie dann das Dateiformat aus, das Sie speichern möchten.

(3.) Klicken Sie dann auf Split Klicken Sie auf die Schaltfläche, und geben Sie einen Ordner an, in dem die getrennten Dateien abgelegt werden sollen.

doc import csv in Arbeitsblatt 3

3. Und dann klick OK Um mit dem Teilen zu beginnen, wird die Arbeitsmappe in separate CSV-Dateien aufgeteilt, die Sie benötigen.

doc import csv in Arbeitsblatt 4

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


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!

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

Kutools für 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-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (6)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für den Code zum Kombinieren von Dateien. Ich möchte jedoch die mehreren Dateien in der Arbeitsmappe haben, mit der ich gerade arbeite, nicht für den Code zum Erstellen einer neuen Arbeitsmappe. Wie gehe ich vor, um das zu erreichen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das Teilen dieses Codes. Es ist genau das, wonach ich gesucht habe. Leider funktioniert es nicht so wie ich es mir erhofft hatte. Ich erhalte jedes Mal eine Fehlermeldung, wenn der Code ausgeführt wird. FEHLER: "Der Name ist bereits vergeben. Versuchen Sie es mit einem anderen." Hinweise: - Ich versuche, vier CSV-Dateien zu kombinieren - Alle CSV-Dateien haben denselben Namen "Dateiname.csv, Dateiname (1).csv usw. ..." Der Code kombiniert die ersten beiden CSV-Dateien in einer Arbeitsmappe und die dritte Datei in eine eigene Arbeitsmappe. Die vierte Datei hatte wegen des Fehlers nie eine Chance. Wenn jemand eine Idee hat, wie man dieses Problem beheben kann, würde ich mich sehr über Ihr Feedback freuen. Ich danke Ihnen allen im Voraus für Ihre Zeit. Beste Grüße, Andreas
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke! Der Code war sehr nützlich
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke . Sehr praktisch
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke. Der Code funktioniert gut
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, dieses VBA-Makro ist großartig, aber ich möchte, dass es durch einen Klick auf eine Schaltfläche in einer anderen Arbeitsmappe gestartet wird. Wie kann ich das tun?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte