Direkt zum Inhalt

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. Im 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 Schritt 2 Klicken Sie im Assistenten auf Speichern > 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 Schritt 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 Endziel 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. Im 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!

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
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 ...

Beschreibung


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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi!
I've been using this code to combine evaluation forms into one excel sheet. However, it reads the dates in the US format of MM/DD/YYYY instead of the European format which I use, which is DD/MM/YYYY. The results is a column that looks like this:

11-4-2021 17:13
22/10/2021 09:41:32 (This is october 22nd, but it's not recognized)
7-12-2022 14:55 (This is mistakenly read as December 7th, when it should be July 12th.)
27/10/2021 16:53:19
29/10/2021 09:44:26
11-1-2021 11:36
11-2-2021 14:11
17/08/2022 16:46:06
11-1-2021 10:49
8-10-2022 12:19
22/10/2021 14:54:58
17/11/2021 13:48:54
26/10/2021 20:13:37
22/10/2021 16:26:13

How can I prevent this from happening? I saw a comment on another post that suggested putting 'Local=True' somewhere, but I've not been able to figure out where to put that so that the CSV files load correctly. Any help is appreciated!
This comment was minimized by the moderator on the site
Hello this vba macro is great, but i want it to be launched by a button click on another workbook, how can i do that ?
This comment was minimized by the moderator on the site
Thank you. The code works well
This comment was minimized by the moderator on the site
Thank you . Very handy
This comment was minimized by the moderator on the site
Thank you! The code was very useful
This comment was minimized by the moderator on the site
Thank you for sharing this code. It is exactly what I was looking for. Sadly it is not working as well as I hoped it would. I am receiving an error message every time the code is run. ERROR: "The name is already taken. Try a different one." Notes: - I am trying to combine four csv files - All of the csv files have the same name "file_name.csv, file_name(1).csv, etc..." The code combines the first two csv files into one workbook and the the third file into its own workbook. The fourth file never had a chance because of the error. If anyone has some thoughts as how to go about fixing this issue I would greatly appreciate your feedback. Thank you all in advanced for you time. Best regards, Andrew
This comment was minimized by the moderator on the site
Thank you for the code on combining files. I however want to have the multiple files in the workbook I am currently working with, not for the code to create a new workbook. How do I go about achieving that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations