Direkt zum Inhalt

Wie speichere oder exportiere ich jedes Blatt als CSV / PDF-Datei in Excel?

Sie haben beispielsweise eine große Arbeitsmappe mit mehreren Blättern und möchten jedes Blatt als einzelne CSV- oder PDF-Datei speichern oder exportieren. Wie geht das einfach und schnell? In diesem Artikel werde ich verschiedene Methoden zur Lösung vorstellen.


Speichern oder exportieren Sie jedes Blatt als CSV / PDF-Datei mit der Funktion Speichern unter

Wie Sie wissen, kann Microsoft Excel das aktuelle Arbeitsblatt als einzelne CSV- oder PDF-Datei speichern. Daher können Sie jedes Blatt einzeln manuell als CSV- oder PDF-Datei speichern oder exportieren.

1. Wechseln Sie zu dem Blatt, das Sie als einzelne CSV-Datei speichern oder exportieren möchten, und klicken Sie auf Reichen Sie das (oder Office-Schaltfläche)> Speichern unter.

2. Geben Sie im Eröffnungsdialogfeld den Zielordner an, in dem Sie die CSV-Datei speichern möchten, und klicken Sie auf Speichern als Typ Box und wählen Sie CSV (durch Kommas getrennt) (* .csv) or PDF (* .pdf) Klicken Sie in der Dropdown-Liste auf Speichern .

3. Es werden nacheinander zwei Warndialogfelder angezeigt. bitte klicken OK > Ja.

Hinweis: Wenn Sie ein aktives Arbeitsblatt als PDF-Datei speichern, werden diese Dialogfelder nicht angezeigt. Fahren Sie einfach mit dem nächsten Schritt fort.

4. Wiederholen Sie den obigen Schritt 1-3, um andere Blätter einzeln als einzelne CSV-Dateien zu speichern.


Speichern oder exportieren Sie jedes Blatt als CSV-Datei mit VBA

Wenn Sie eine Reihe von Blättern als CSV-Dateien speichern oder exportieren möchten, ist die erste Methode recht zeitaufwändig und langwierig. Dieser VBA kann die Arbeit vereinfachen und das Speichern oder Exportieren jedes Blattes als CSV-Datei vereinfachen.

1. Drücken Sie Andere + F11 Tasten gleichzeitig, um das Fenster Microsoft Visual Basic für Anwendung zu öffnen.

2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Speichern Sie jedes Blatt als einzelne CSV-Datei

Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub
3. Klicken Sie auf die Führen Sie Taste oder drücken F5 Schlüssel zum Ausführen dieses VBA.

4. Geben Sie im sich öffnenden Dialogfeld Durchsuchen den Zielordner an, in dem Sie alle CSV-Dateien speichern möchten, und klicken Sie auf OK .

Dann sehen Sie, dass jedes Blatt als einzelne CSV-Datei im angegebenen Zielordner gespeichert / exportiert wird.


Speichern oder exportieren Sie jedes Blatt als CSV / PDF-Datei mit Kutools for Excel

Einige Excel-Benutzer lehnen VBA-Code aus bestimmten Gründen möglicherweise ab. Keine Sorge! Die dritte Methode kann auch jedes Blatt als CSV-Datei oder PDF-Datei stapelweise speichern oder exportieren Arbeitsmappe teilen Dienstprogramm von Kutools für Excel.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

1. Klicken Sie auf die Unternehmen > Workbook > Arbeitsmappe teilen.

Dokumentieren Sie jedes Blatt zu CSV 2

2. Klicken Sie im sich öffnenden Dialogfeld Arbeitsmappe teilen auf

Dokumentieren Sie jedes Blatt zu CSV 8

(1) Wählen Sie weiterhin alle Blätter aus. Wenn nicht, können Sie das Kontrollkästchen vorher aktivieren Name des Arbeitsblatts alle Blätter auswählen;

(2) Überprüfen Sie die Geben Sie das Sicherungsformat an Option;

(3) Klicken Sie auf das Feld unten Geben Sie das Sicherungsformat an Option, und wählen Sie CSV (Macintosh) (*. CSV) or PDF (* .pdf) aus der Dropdown-Liste.

(4) Klicken Sie auf Split .

 

Note: Wenn in Ihrer Arbeitsmappe versteckte und leere Arbeitsblätter vorhanden sind, überprüfen Sie die Übersprungene Arbeitsblätter überspringen Box und die Leeres Arbeitsblatt überspringen Das Feld ignoriert beim Exportieren alle leeren oder versteckten Blätter.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

3. Geben Sie im sich öffnenden Dialogfeld Nach Ordner suchen den Zielordner an, in dem Sie alle CSV- oder PDF-Dateien speichern möchten, und klicken Sie auf OK .

Jetzt sehen Sie, dass jedes Blatt exportiert und als einzelne CSV-Datei im angegebenen Ordner gespeichert wird.


Demo: Speichern oder exportieren Sie jedes Blatt als CSV / PDF-Datei in Excel


Kutools for Excel: Über 300 praktische Werkzeuge immer zur Hand! Starten Sie noch heute Ihre 30-tägige kostenlose Testversion ohne Funktionseinschränkungen. Jetzt herunterladen!

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

Beschreibung


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you so much - the VBA soultion worked great and saved me a ton of time!
This comment was minimized by the moderator on the site
Hello, thank you for these tips! I tried using the VBA code but I'm getting a run-time error code 91 for the following syntax:

If folder.Show <> -1 Then Exit Sub

Can you help me troubleshoot? I'm new to VBA. :)
This comment was minimized by the moderator on the site
Hi there,

Please make sure that there is only the VBA code from this tutorial in your Module window. If there are other codes, please delete or move them to a new module.

After that, please run the code. If it's still not working, please use the code below:
Public Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
On Error Resume Next
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.SaveAs xDir & "\" & xWs.Name, xlCSV
Next
End Sub


Amanda
This comment was minimized by the moderator on the site
How to keep and maintain decimals values when exporting excel sheets to CSV? financial data requires accuracy of data till 3 decimals when export to CSV? please advise
This comment was minimized by the moderator on the site
Hi prashan9810,
Before exporting the sheets from Excel to CSV, you’d better change the formatting of currency numbers, and fix their decimal places to 3.
You can change the decimal places as follows:
1. In Excel, select the currency cells, right click, and select Format Cells from the context menu.
2. In the Format Cells dialog, select Currency or Accounting in the Category list box, enter 3 in the Decimal places box, and click OK.
This comment was minimized by the moderator on the site
Thank you for your very helpful tips. I used the vba code to convert an excel file with multiple sheets into individual csv files. I'm wondering, how can I specify that i'd like those csv files to be utf-8? Is there an addition to the code below that will add that feature? Public Sub SaveWorksheetsAsCsv() Dim xWs As Worksheet Dim xDir As String Dim folder As FileDialog Set folder = Application.FileDialog(msoFileDialogFolderPicker) If folder.Show -1 Then Exit Sub xDir = folder.SelectedItems(1) For Each xWs In Application.ActiveWorkbook.Worksheets xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
This comment was minimized by the moderator on the site
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=False
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations