Wie speichere, exportiere ich mehrere / alle Blätter in separate CSV- oder Textdateien in Excel?
Wenn Sie Excel verwenden, können Sie ein Arbeitsblatt manuell als CSV- oder Textdatei speichern, indem Sie die Funktion Speichern unter verwenden. Wie können Sie jedoch mehrere oder alle Arbeitsblätter in einer Arbeitsmappe in getrennte CSV- oder Textdateien konvertieren? In diesem Artikel zeigen wir Ihnen Methoden zum Speichern oder Konvertieren mehrerer oder aller Blätter in getrennte CSV- oder Textdateien.
Speichern, exportieren oder konvertieren Sie alle Blätter in eine CSV- oder Textdatei mit VBA-Code
Speichern, exportieren oder konvertieren Sie mehrere / alle Blätter mit Kutools for Excel in eine CSV- oder Textdatei
Speichern, exportieren oder konvertieren Sie alle Blätter in eine CSV- oder Textdatei mit VBA-Code
Mit den folgenden VBA-Codes können Sie alle Arbeitsblätter in einer Arbeitsmappe in getrennten CSV- oder Textdateien speichern. Bitte gehen Sie wie folgt vor.
Exportieren oder konvertieren Sie alle Blätter in CSV-Dateien
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic-Anwendung Fenster.
2. In dem Microsoft Visual Basic-Anwendung Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das ein Modul Fenster.
VBA-Code: Exportieren Sie alle Blätter in getrennte CSV-Dateien
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 Schlüssel zum Ausführen des Codes. Sie sehen, dass sich alle exportierten CSV-Dateien auf der befinden Dokumente Mappe. Siehe Screenshot:
Exportieren oder konvertieren Sie alle Blätter in Textdateien
Der folgende Code kann Ihnen beim Exportieren oder Konvertieren aller Blätter in der Arbeitsmappe in getrennte Textdateien helfen.
VBA-Code: Exportieren Sie alle Blätter in getrennte Textdateien
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 auf der Dokumente Mappe. Siehe Screenshot:
Speichern, exportieren oder konvertieren Sie mehrere / alle Blätter mit Kutools for Excel in eine CSV- oder Textdatei
YMit dem können Sie schnell mehrere oder alle Blätter in einzelne CSV-Dateien, Textdateien oder XLS-Dateien in Excel exportieren oder konvertieren Arbeitsmappe teilen Nutzen von Kutools for Excel.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1 Klicken Kutoolen Plus > Workbook > Arbeitsmappe teilen. Siehe Screenshot:
2. In dem Arbeitsmappe teilen Dialogbox:
- 1). Wenn Sie alle Blätter in CSV- oder Textdateien konvertieren möchten, lassen Sie einfach alle Blattnamen im Feld aktiviert Name des Arbeitsblatts Box; Wenn Sie nur mehrere Blätter konvertieren möchten, überprüfen Sie sie weiter und deaktivieren Sie andere Blätter, die Sie nicht konvertieren möchten.
- 2). In dem Optionen Abschnitt, überprüfen Sie die Speichern als Typ Feld und wählen Sie dann Unicode-Text (*. Txt) or CSV (Macintosh) (*. CSV) aus der Dropdown-Liste.
- 3). Drücke den Split .
3. In dem Suche nach Ordner Geben Sie im Dialogfeld einen Ordner zum Speichern der exportierten Dateien an und klicken Sie dann auf OK .
Jetzt werden alle Blätter oder angegebenen Blätter in getrennte CSV- oder Textdateien konvertiert und befinden sich wie oben angegeben im Ordner.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
Speichern, exportieren oder konvertieren Sie mehrere / alle Blätter mit Kutools for Excel in eine CSV- oder Textdatei
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!