Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie schnell Batch-Import mehrerer CSV / Text / XML-Dateien in Excel?

In Excel haben Sie möglicherweise gebunden, um eine Arbeitsmappe als CSV-Datei, Textdatei oder XML-Datei zu speichern, aber haben Sie schon einmal versucht, mehrere CSV / Text / XML-Dateien aus einem Ordner in eine Arbeitsmappe oder ein Arbeitsblatt zu importieren? In diesem Artikel stelle ich einige Methoden vor, um sie schnell im Stapel zu importieren.

Importieren Sie mehrere Textdateien aus einem Ordner in die einzelnen Arbeitsblätter einer Arbeitsmappe mit VBA

Importieren Sie mehrere CSV-Dateien aus einem Ordner in ein einzelnes Blatt mit VBA

Importieren Sie mehrere XML-Dateien aus einem Ordner in ein einzelnes Blatt mit VBA

Importieren oder kombinieren Sie mehrere XML / CSV-Dateien in ein Arbeitsblatt oder eine Arbeitsmappe mit Kutools für Excel gute Idee3

Exportieren Sie jedes Blatt als csv / text / pdf in einen Ordner mit Kutools for Excelgute Idee3


Einfaches Kombinieren mehrerer Blätter / Arbeitsmappe zu einem Einzelblatt oder Arbeitsmappe

Mehrere Blätter oder Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe zu kombinieren, kann in Excel edel sein, aber mit dem Kombinieren Mit der Funktion in Kutools für Excel können Sie Dutzende von Arbeitsblättern / Arbeitsmappen zu einem Arbeitsblatt oder einer Arbeitsmappe zusammenführen. Sie können die Arbeitsblätter auch nur mit wenigen Klicks zu einem einzigen zusammenfügen. stark>Klicken Sie hier für eine kostenlose 30-Testversion mit vollem Funktionsumfang!
Blätter kombinieren
Kutools für Excel: Mit mehr als 300 handlichen Excel-Add-Ins, die Sie in 30-Tagen uneingeschränkt testen können.
Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahiere die Zahl aus der Zeichenkette. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen.
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.


Um Textdateien aus einem Ordner in eine Arbeitsmappe zu importieren, können Sie sie unter VBA verwenden, um sie schnell zu verarbeiten.

1. Aktivieren Sie eine leere Arbeitsmappe, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Einsatz > Modul, und fügen Sie die VBA in die Modul Fenster.

VBA: Importieren Sie alle Textdateien aus einem Ordner in eine Arbeitsmappe

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. Drücken Sie F5 Schlüssel oder Run Klicken Sie auf die Schaltfläche, um den VBA auszuführen, und wählen Sie im Popup-Dialogfeld einen Ordner aus, in den Sie die Textdateien importieren möchten. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 1

4. Und klick OKund jede Textdatei im ausgewählten Ordner wurde in ein Arbeitsblatt der aktiven Arbeitsmappe importiert. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 2doc importieren mehrere CSV-Text Xml 3

Um alle CSV-Dateien aus einem Ordner in ein einzelnes Blatt zu importieren, können Sie den folgenden VBA-Code verwenden.

1. Aktivieren Sie ein leeres Arbeitsblatt und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Einsatz > Modul, und fügen Sie unter VBA in das neue ein Modul Fenster.

VBA: Importieren Sie CSV-Dateien aus einem Ordner in ein Arbeitsblatt

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. Drücken Sie F5 Taste oder klicken Run Taste, um den VBA auszuführen, und ein Dialogfeld erscheint, um einen Ordner auszuwählen, aus dem alle CSV-Dateien importiert werden sollen. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 4

4 Klicken OK, und ein Dialogfeld erscheint, um Sie daran zu erinnern, wenn Sie den Inhalt des aktiven Arbeitsblatts vor dem Importieren löschen, klicken Sie hier Ja. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 5

Nach einem Klick JaAlle CSV-Dateien im ausgewählten Ordner werden in das aktuelle Blatt importiert und Daten von Spalte A nach rechts verschoben. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 6doc importieren mehrere CSV-Text Xml 7

Tip: Wenn Sie csv-Dateien horizontal in einem Arbeitsblatt platzieren möchten, können Sie unter VBA verwenden.

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub 

doc importieren mehrere CSV-Text Xml 8


Wenn Sie alle XML-Dateien aus einem Ordner in ein einzelnes Blatt importieren möchten, können Sie den folgenden VBA-Code verwenden.

1. Wählen Sie ein leeres Blatt aus, in das Sie die importierten Daten einfügen möchten, und drücken Sie Alt + F11 Schlüssel zu aktivieren Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Einsatz > ModulFügen Sie den VBA - Code in die Modul Fenster.

VBA: Importieren Sie XML-Dateien aus einem Ordner in ein Arbeitsblatt.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3 Klicken Run Knopf oder F5 um den VBA auszuführen, und wählen Sie einen Ordner im Popup-Dialog, siehe Screenshot:

doc importieren mehrere CSV-Text Xml 9

4 Klicken OKund alle XML-Dateien im ausgewählten Ordner werden in das aktive Blatt importiert.


Wenn Sie mit VBA nicht vertraut sind, machen Sie sich Sorgen, hier stelle ich ein praktisches Tool vor - Kutools for Excel für dich. Mit seiner Kraft Kombinieren Dienstprogramm können Sie mehrere XML-Dateien oder CSV-Dateien in einer Arbeitsmappe oder einem Excel-Arbeitsblatt schnell kombinieren.

Kutools for Excel, mit mehr als 300 praktische Funktionen, die Ihre Arbeit erleichtern.

Nach der Installation Kutools für Excel, gehen Sie bitte wie folgt vor:(Kutools für Excel jetzt kostenlos herunterladen!)

1. Active Excel, und klicken Sie auf Unternehmen > Kombinieren. Siehe Screenshot:
doc kombinieren 1

2. Und in der Schritt 1 von Kombinieren Dialog, wählen Sie eine Trennungsoption, wie Sie benötigen. Siehe Screenshot:
doc kombinieren 2

3 Klicken Weiter um zu gehen Schritt 2 des Kombinats, klicken Add um Dateien aus verschiedenen Ordnern oder Dateien aus einem Ordner hinzuzufügen Workbook Liste, und Sie können auch die Blätter angeben, aus denen Sie kombinieren möchten Arbeitsblatt Liste des rechten Abschnitts. Siehe Screenshot:
doc kombinieren 3

4 Klicken Weiter zum letzten Schritt von Kombinierenund Sie können die Optionen angeben.

1) Geben Sie die Nummer der Titelzeile an

2) Entscheiden Sie, ob Arbeitsblattinformationen eingefügt werden sollen

3) Überspringe den leeren Bereich oder nicht

4) Anfügeoption angeben
doc kombinieren 4

5 Klicken Fertigstellungerscheint ein Dialogfeld, das Sie daran erinnert, einen Speicherort für das neue kombinierte Ergebnis auszuwählen. Siehe Screenshot:
doc kombinieren 5

6 Klicken Angebot. Alle hinzugefügten Blätter wurden zu einem neuen Einzelblatt kombiniert.
doc kombinieren 6

Tip: Mit  KombinierenSie können auch mehrere kombinieren CSV-Dateien Bilden Sie mehrere Ordner oder einen Ordner in einem Arbeitsblatt oder in einer Arbeitsmappe.


Wenn Sie jedes Blatt als CSV / Text / PDF-Datei in einen Ordner exportieren möchten, Kutools for Excel Arbeitsmappe teilen Dienstprogramm kann einen Gefallen für Sie tun.

Nach kostenlose Installation Kutools für Excel, gehen Sie bitte wie folgt vor:

1. Aktivieren Sie die Arbeitsmappe, deren Arbeitsblätter Sie exportieren möchten, und klicken Sie auf Unternehmen > Workbook > Arbeitsmappe teilen. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 10

2. In dem Arbeitsmappe teilen In diesem Dialog können Sie die zu exportierenden Blattnamen überprüfen, standardmäßig werden alle Blätter geprüft und geprüft Geben Sie das Speicherformat an und wählen Sie das zu speichernde Dateiformat aus der unteren Dropdown-Liste aus. Siehe Screenshot:

doc importieren mehrere CSV-Text Xml 11

3 Klicken Split und wählen Sie einen Ordner, in dem die geteilten Dateien gespeichert werden sollen Suche nach Ordner Dialog, siehe Screenshot:

doc importieren mehrere CSV-Text Xml 12

4 Klicken OKJetzt werden alle geprüften Blätter als neues Dateiformat im ausgewählten Ordner exportiert.


schnell mehrere XLSX konvertieren. Dateien zu XLS oder PDF. Dateien in einmal

In vielen Fällen möchten Sie möglicherweise zwischen XLSX und XLS konvertieren oder eine Arbeitsmappe in eine PDF-Datei umwandeln. In Excel können Sie jedoch nur einmal eine Arbeitsmappe konvertieren. Haben Sie schon einmal Bilder erstellt, um mehrere Arbeitsmappen gleichzeitig zu konvertieren? Mit Kutools for Excel's File Format Converter, können Sie mehrere Arbeitsmappen gleichzeitig in eine PDF / 97-2003 Arbeitsmappe / 2007 oder eine höhere Arbeitsmappe konvertieren und gleichzeitig in einem Ordner speichern, während gleichzeitig ein konvertierter Bericht generiert wird! Klicken Sie für 60 Tage kostenlose Testversion!
doc-Dateikonverter
Kutools for Excel: mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos testen können.

Relative Artikel:


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

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); 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 der Zellen teilen; 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; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung 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. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.