Excel: Speichern oder Exportieren aller Blätter in separate CSV- oder Textdateien (2 einfache Methoden)

Das Arbeiten mit Excel-Arbeitsmappen, die mehrere Arbeitsblätter enthalten, ist in der Datenanalyse und bei Geschäftsberichten üblich. Oft müssen Sie jedes Blatt als einzelne CSV-Datei (Comma-Separated Values) oder Textdatei für den Datenaustausch, die Integration in andere Systeme oder zu Archivierungszwecken exportieren. Während Excel keine integrierte Funktion zum „Exportieren aller Blätter“ bietet, gibt es mehrere effiziente Methoden, um diese Aufgabe zu erledigen.

Speichern oder Exportieren aller Blätter als CSV- oder Textdateien mit VBA-Code
Speichern oder Exportieren aller / bestimmter Blätter als CSV- oder Textdateien mit Kutools für Excel

Speichern oder Exportieren aller Blätter als CSV- oder Textdateien mit VBA-Code

Mit dem folgenden VBA-Code können Sie alle Arbeitsblätter in einer Arbeitsmappe in getrennte CSV- oder Textdateien speichern. Bitte gehen Sie wie folgt vor.

Exportieren oder konvertieren Sie alle Blätter in separate CSV-Dateien

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Microsoft Visual Basic Application-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic Application-Fenster auf Einfügen > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Modul-Fenster ein.

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Sie werden sehen, dass alle exportierten CSV-Dateien sich im Ordner Dokumente befinden. Jedes Arbeitsblatt wird als separate .csv-Datei mit demselben Namen wie das Blatt gespeichert. Siehe Screenshot:

Exportieren oder konvertieren Sie alle Blätter in separate Textdateien

Der folgende Code kann Ihnen helfen, alle Blätter in der Arbeitsmappe in getrennte Textdateien zu exportieren oder zu konvertieren.

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Die exportierten Textdateien befinden sich ebenfalls im Ordner Dokumente. Siehe Screenshot:

Speichern oder Exportieren aller / bestimmter Blätter als CSV- oder Textdateien mit Kutools für Excel

Kutools für Excel bietet eine leistungsstarke und benutzerfreundliche Funktion, um alle oder ausgewählte Arbeitsblätter mit nur wenigen Klicks in individuelle CSV- oder Textdateien zu exportieren.

1. Klicken Sie auf Kutools Plus > Arbeitsmappe > Arbeitsmappe trennen. Siehe Screenshot:

2. Im Dialogfeld Arbeitsmappe trennen:

• 1). Wenn Sie alle Blätter in CSV- oder Textdateien konvertieren möchten, belassen Sie einfach alle Blattnamen im Feld Arbeitsblattname aktiviert; Wenn Sie nur mehrere Blätter konvertieren möchten, behalten Sie sie aktiviert und deaktivieren Sie die anderen Blätter, die Sie nicht konvertieren möchten.
• 2). Aktivieren Sie im Abschnitt Optionen das Feld Speichern im Format und wählen Sie dann Unicode-Text(*.txt) oder CSV (Macintosh)(*.csv) aus der Dropdown-Liste.
• 3). Klicken Sie auf die Schaltfläche Trennen.

3. Wählen Sie im Dialogfeld Ordner durchsuchen einen Ordner aus, um die exportierten Dateien zu speichern, und klicken Sie dann auf die Schaltfläche OK.

Jetzt sind alle Blätter oder angegebenen Blätter in separate CSV- oder Textdateien konvertiert und befinden sich im oben angegebenen Ordner.

Demo: Speichern, Exportieren oder Konvertieren Sie mehrere/alle Blätter in CSV- oder Textdateien mit Kutools für Excel