Ga naar hoofdinhoud

Hoe kan ik elk blad opslaan of exporteren als CSV / PDF-bestand in Excel?

Auteur: Kelly Laatst gewijzigd: 2020-04-30

U hebt bijvoorbeeld een grote werkmap met meerdere bladen en u wilt elk blad opslaan of exporteren als een afzonderlijk .csv-bestand of pdf-bestand, hoe kunt u dat dan gemakkelijk en snel doen? In dit artikel zal ik verschillende methoden introduceren om het op te lossen.


Bewaar of exporteer elk blad als CSV / PDF-bestand met de functie Opslaan als

Zoals u weet, kan Microsoft Excel het huidige werkblad opslaan als een afzonderlijk .csv-bestand of pdf-bestand. Daarom kunt u elk blad een voor een handmatig opslaan of exporteren als .csv-bestand of pdf-bestand.

1. Schakel over naar het blad dat u wilt opslaan of exporteren als een afzonderlijk .csv-bestand en klik op Dien in (of Office-knop)> Opslaan als.

2. Geef in het openingsdialoogvenster de doelmap op waarin u het .csv-bestand wilt opslaan, klik op de Opslaan als type vak en selecteer CSV (door komma's gescheiden) (* .csv) or Pdf (* .pdf) uit de vervolgkeuzelijst en klik op het Bespaar knop.

3. Er zullen achtereenvolgens twee waarschuwingsdialoogvensters verschijnen. Klik alstublieft OK > Ja.

Opmerking: Als u een actief werkblad opslaat als PDF-bestand, verschijnen deze dialoogvensters niet. Ga gewoon door naar de volgende stap.

4. Herhaal bovenstaande stap 1-3 om andere bladen een voor een op te slaan als afzonderlijke .csv-bestanden.


Batch bewaar of exporteer elk blad als CSV-bestand met VBA

Als er een aantal bladen zijn die u als .csv-bestanden wilt opslaan of exporteren, zal de eerste methode behoorlijk tijdrovend en vervelend zijn. Deze VBA kan het werken vereenvoudigen en het gemakkelijk maken om elk blad als .csv-bestand op te slaan of te exporteren.

1. druk op anders + F11 toetsen tegelijk om het venster Microsoft Visual Basic for Application te openen.

2. klikken Invoegen > Moduleen plak vervolgens de volgende VBA-code in het nieuwe modulevenster.

VBA: sla elk blad op als een afzonderlijk CSV-bestand

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. Klik op het lopen knop of druk op F5 sleutel om deze VBA uit te voeren.

4. Geef in het geopende dialoogvenster Bladeren de doelmap op waarin u alle .csv-bestanden wilt opslaan en klik op de OK knop.

Vervolgens zult u zien dat elk blad wordt opgeslagen / geëxporteerd als een afzonderlijk .csv-bestand in de opgegeven doelmap.


Batch bewaar of exporteer elk blad als CSV / PDF-bestand met Kutools voor Excel

Sommige Excel-gebruikers kunnen om een ​​of andere reden VBA-code weigeren. Maak je geen zorgen! De derde methode kan ook batchgewijs elk blad opslaan of exporteren als .csv-bestand of PDF-bestand eenvoudig door de Werkmap splitsen nut van Kutools voor Excel.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

1. Klik op het Enterprise > werkboek > Werkmap splitsen.

doc elk blad naar csv 2

2. In het geopende dialoogvenster Werkmap splitsen,

doc elk blad naar csv 8

(1) Blijf alle bladen selecteren. Als dit niet het geval is, kunt u het selectievakje eerder aanvinken Werkbladnaam om alle bladen te selecteren;

(2) Controleer het Geef het opslagformaat op keuze;

(3) Klik op het onderstaande vak Geef het opslagformaat op optie en selecteer CSV (Macintosh) (*. Csv) or Pdf (* .pdf) uit de keuzelijst.

(4) Klik op het Split knop.

 

Note: Als er verborgen en lege werkbladen in uw werkmap staan, vinkt u het Sla verborgen werkbladen over doos en de Sla een leeg werkblad over box negeert alle blanco of verborgen bladen tijdens het exporteren.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

3. Geef in het openingsdialoogvenster Bladeren naar map de doelmap op waarin u alle CSV-bestanden of PDF-bestanden wilt opslaan en klik op de knop OK knop.

Nu zult u zien dat elk blad wordt geëxporteerd en opgeslagen als een afzonderlijk .csv-bestand in de opgegeven map.


Demo: bewaar of exporteer elk blad als CSV / PDF-bestand in Excel


Kutools for Excel: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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