Wie importiert man mehrere Textdateien in separate Arbeitsblätter?
Angenommen, mehrere Textdateien befinden sich in einem Ordner auf Ihrem Computer. Sie möchten diese Dateien nun in eine Excel-Arbeitsmappe importieren – und jede Textdatei dabei in ein eigenes Arbeitsblatt einfügen. Das manuelle Kopieren und Einfügen jeder Datei einzeln ist jedoch zeitaufwendig. Daher stelle ich Ihnen im Folgenden einige effiziente Methoden vor, um dieses Problem zu lösen.
Importieren mehrerer Textdatei in separate Arbeitsblätter mithilfe von VBA-Code
Teilen einer Arbeitsmappe in mehrere separate Text-/PDF-/CSV-/XLSX-Dateien mit Kutools für Excel
Mehrere Textdatei in separate Arbeitsblätter mit VBA-Code importieren
Der folgende VBA-Code hilft Ihnen, jede Textdatei gleichzeitig in separate Arbeitsblätter innerhalb einer neuen Arbeitsmappe zu importieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie in Excel die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Mehrere Textdatei in separate Arbeitsblätter importieren:
Sub CombineTextFiles()
'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 (*.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. Drücken Sie nach dem Einfügen des obigen Codes die F5-Taste, um den Code auszuführen. Wählen Sie im daraufhin erscheinenden Fenster den Ordner mit der Textdatei aus, navigieren Sie dorthin und markieren Sie die Textdatei, die Sie in die Arbeitsblätter importieren möchten (siehe Screenshot):
4. Klicken Sie anschließend auf die Schaltfläche Öffnen. Alle ausgewählten Textdateien wurden in ein neues Arbeitsblatt importiert, wobei jede Datei einzeln in einem eigenen Arbeitsblatt abgelegt wurde.
5. Abschließend können Sie das neue Arbeitsblatt nach Bedarf speichern.
Teilen einer Arbeitsmappe in mehrere separate Text-/PDF-/CSV-/XLSX-Dateien mit Kutools für Excel
Gelegentlich müssen Sie möglicherweise das Gegenteil der oben beschriebenen Aufgabe durchführen – nämlich eine Arbeitsmappe in separate Textdateien aufteilen. Die Kutools für Excel-Funktion Arbeitsmappe trennen unterstützt Sie dabei, diese Aufgabe schnell und problemlos zu erledigen.
Nach der Installation von Kutools für Excelführen Sie bitte die folgenden Schritte aus:
1. Aktivieren Sie die Arbeitsmappe, die Sie in mehrere Textdateien aufteilen möchten.
2. Klicken Sie auf Unternehmen > Arbeitsmappe > Arbeitsmappe trennen (siehe Screenshot):
3. Im Dialogfeld Arbeitsmappe trennen:
(1.) Markieren Sie die Arbeitsblätter, die Sie aufteilen möchten.
(2.) Aktivieren Sie das Kontrollkästchen Speicherformat festlegen und wählen Sie anschließend den gewünschten Dateityp zum Speichern aus. Beispielsweise können Sie txt, csv, pdf, xlsx oder xls als Dateityp auswählen.
(3.) Klicken Sie anschließend auf die Schaltfläche Teilen und geben Sie im folgenden Dialogfeld einen Ordner für die Ausgabe der separaten Dateien an.
 |  |  |
4. Klicken Sie danach auf die Schaltfläche OK, und Ihre ausgewählten Arbeitsblätter werden entsprechend dem gewählten Format in den von Ihnen angegebenen Ordner aufgeteilt und gespeichert.
Kutools für Excel – Ausgestattet mit über 300 unverzichtbaren Werkzeugen für Excel. Erledigen Sie Ihre Excel-Aufgaben schneller, einfacher und effizienter.Jetzt herunterladen!
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins