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

or

Wie importiere ich mehrere Textdateien in mehrere Blätter?

Angenommen, in einem Ordner Ihres Computers befinden sich mehrere Textdateien. Sie möchten diese Textdateien jetzt in eine Excel-Arbeitsmappe importieren und jede Textdatei in separaten Arbeitsblättern speichern. Das Kopieren und Einfügen jeder Textdatei in das Arbeitsblatt wird nach und nach viel Zeit verschwenden. Hier kann ich über einige Tricks sprechen, um dieses Problem zu lösen.

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

Teilen Sie eine Arbeitsmappe mit Kutools für Excel in mehrere separate text / pdf / csv / xlsx-Dateien auf


Kombinieren / Importieren mehrerer Arbeitsblätter in ein Arbeitsblatt oder eine Arbeitsmappe:
In Ihrer täglichen Arbeit kann das Kombinieren mehrerer Arbeitsblätter oder Arbeitsmappen zu einem einzigen Arbeitsblatt oder einer Arbeitsmappe eine riesige und hochkarätige Arbeit sein. Aber wenn du es getan hast Kutools for Excelmit seinem mächtigen Nutzen - Kombinierenkönnen Sie mehrere Arbeitsblätter und Arbeitsmappen schnell zu einem Arbeitsblatt oder einer Arbeitsmappe kombinieren.
doc kombinieren mehrere Arbeitsblätter

Pfeil blaue rechte Blase Importieren Sie mehrere Textdateien in separate Arbeitsblätter mit VBA-Code


Der folgende VBA-Code kann Ihnen helfen, jede Textdatei auf einmal in separate Arbeitsblätter in einer neuen Arbeitsmappe zu importieren. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel in Excel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

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

Sub CombineTextFiles()
'updateby Extendoffice 20151015
    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 (*.txt), *.txt", , "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
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    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. Nachdem Sie den obigen Code eingefügt haben, drücken Sie F5 Schlüssel, um diesen Code auszuführen, und in dem ausgeblendeten Fenster, geben Sie bitte den Ordner an, der die Textdateien enthält, gehen Sie zu dem Ordner, um die Textdateien auszuwählen, die Sie in die Arbeitsblätter importieren möchten, siehe Screenshot:

doc Import mehrerer Textdateien 1

4. Dann klick Anmeldung möglich Mit dieser Schaltfläche wurden alle ausgewählten Textdateien in eine neue Arbeitsmappe importiert, und jede Datei wurde einzeln in einem Arbeitsblatt gespeichert.

5. Zuletzt können Sie die neue Arbeitsmappe speichern, wie Sie benötigen.


Pfeil blaue rechte Blase Teilen Sie eine Arbeitsmappe mit Kutools für Excel in mehrere separate text / pdf / csv / xlsx-Dateien auf

Manchmal müssen Sie möglicherweise einige der oben genannten Vorgänge ausführen, dh Sie müssen eine Arbeitsmappe in separate Textdateien aufteilen. Kutools for Excel Arbeitsmappe teilen Dienstprogramm kann Ihnen helfen, diesen Job schnell und einfach zu lösen.

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Excel, machen Sie bitte wie folgt :( Kostenloser Download Kutools für Excel jetzt! )

1. Aktivieren Sie die Arbeitsmappe, die Sie in mehrere Textdateien aufteilen möchten.

2. Klicken Sie Unternehmen > Workbook > Arbeitsmappe teilen, siehe Screenshot:

Excel-Add-Ins Arbeitsmappen-Feature

3. In dem Arbeitsmappe teilen Dialogbox:

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

(2.) Überprüfen Geben Sie das Speicherformat anWählen Sie dann das Dateiformat, das Sie speichern möchten, z. B. können Sie wählen txt, csv, pdf, XLSX or xls Dateiformat wie Sie benötigen.

(3.) Klicken Sie dann auf Split In der folgenden Eingabeaufforderung geben Sie einen Ordner für die Ausgabe der einzelnen Dateien an.

Excel-Add-Ins Arbeitsmappen-Dialogfeld trennen  2 Excel-Add-Ins Standort auswählen

4. Dann klick OK Schaltfläche, und Ihre ausgewählten Arbeitsblätter werden aufgeteilt und in dem von Ihnen gewünschten Format gespeichert.

Excel-Add-Ins separate Dateien

Kostenloser Download Kutools für Excel jetzt!


Kutools for Excel - Das beste Office-Produktivitäts-Tool Steigern Sie 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 60-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.
  • To post as a guest, your comment is unpublished.
    Thuva · 2 years ago
    thank you , multiple text files to different worksheets code worked!
  • To post as a guest, your comment is unpublished.
    pinky · 2 years ago
    Thanks for this code this is working great.. i want to merge all the selected sheet into a single sheet is that possible..
  • To post as a guest, your comment is unpublished.
    Raul · 2 years ago
    How do I change this macros to display text file saved as UTF-8 or in other words using Platform = 65001, Thanks
  • To post as a guest, your comment is unpublished.
    Vaibhav · 2 years ago
    Thanks for this very useful code. I have a question though. What I can change to convert the datatype from General to Text as currently it only imports data into General format.
  • To post as a guest, your comment is unpublished.
    G · 2 years ago
    Is it possible to open Sequencially multiple txt files in a single sheet ?
  • To post as a guest, your comment is unpublished.
    A · 2 years ago
    The code for "Import multiple text files to separate worksheets with VBA code" works for me, BUT cuts off the data of each cell at 255 characters. I think it is defaulting to GeneralFormat cell data, but I need it to be TextFormat. Unfortunately I cannot figure out how to adjust the code to fix this.
  • To post as a guest, your comment is unpublished.
    Pradip · 3 years ago
    I used Following code But Space Didn't Delimit.
    Turned Tab:=True, Space:=True, but it didn't work.
    My Txt file format is-
    ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104

    Any Solution?