Gå til hovedindhold

Hvordan gemmes eller eksporteres hvert ark som CSV / PDF-fil i Excel?

For eksempel har du en stor projektmappe med flere ark, og du vil gemme eller eksportere hvert ark som en individuel .csv-fil eller PDF-fil, hvordan får du det gjort nemt og hurtigt? I denne artikel vil jeg introducere flere metoder til at løse det.


Gem eller eksporter hvert ark som CSV / PDF-fil med funktionen Gem som

Som du ved, kan Microsoft Excel gemme det aktuelle regneark som en individuel .csv-fil eller PDF-fil. Derfor kan du gemme eller eksportere hvert ark som .csv-fil eller PDF-fil en efter en manuelt.

1. Skift til det ark, du vil gemme eller eksportere som en individuel .csv-fil, og klik på filet (eller Kontorknap)> Gem som.

2. I åbningsdialogboksen skal du angive den destinationsmappe, som du vil gemme .csv-filen i, klikke på Filtype boks og vælg CSV (kommasepareret) (* .csv) or PDF (* .pdf) på rullelisten, og klik på Gem .

3. Der vises to advarselsdialogbokse successivt. Klik venligst OK > Ja.

Bemærk: Hvis du gemmer aktivt regneark som PDF-fil, vises disse dialogbokse ikke. Bare gå videre til næste trin.

4. Gentag ovenstående trin 1-3 for at gemme andre ark som individuelle .csv-filer en efter en.


Batch gemme eller eksportere hvert ark som CSV-fil med VBA

Hvis der er et antal ark, som du vil gemme eller eksportere som .csv-filer, vil den første metode være ret tidskrævende og kedelig. Denne VBA kan forenkle arbejdet og gøre det let at gemme eller eksportere hvert ark som .csv-fil.

1. Trykke andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikation.

2. klik indsatte > Moduler, og indsæt derefter følgende VBA-kode i det nye modulvindue.

VBA: Gem hvert ark som en individuel CSV-fil

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 på Kør knappen eller tryk på F5 nøgle til at køre denne VBA.

4. I den åbne dialogboks Gennemse skal du angive den destinationsmappe, som alle CSV-filer skal gemmes i, og klikke på OK .

Derefter vil du se, at hvert ark gemmes / eksporteres som en individuel .csv-fil i den angivne destinationsmappe.


Batch gemme eller eksportere hvert ark som CSV / PDF-fil med Kutools til Excel

Nogle Excel-brugere kan afvise VBA-kode af nogle grunde. Vær ikke urolig! Den tredje metode kan også batch-gemme eller eksportere hvert ark som .csv-fil eller PDF-fil let ved hjælp af Opdelt arbejdsbog nytte af Kutools til Excel.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

1. Klik på Enterprise > Workbook > Opdelt arbejdsbog.

dok hvert ark til csv 2

2. I dialogboksen Split arbejdsbog åbnes,

dok hvert ark til csv 8

(1) Bliv ved med at vælge alle ark. Hvis ikke, kan du markere afkrydsningsfeltet før Navn på regneark at vælge alle ark

(2) Kontroller Angiv gemme format mulighed;

(3) Klik på feltet nedenfor Angiv gemme format valg og vælg CSV (Macintosh) (*. Csv) or PDF (* .pdf) fra drop down listen.

(4) Klik på Dele .

 

Bemærk: Hvis der findes skjulte og tomme regneark i din projektmappe, skal du kontrollere Spring skjulte regneark over boks og Spring over tomt regneark feltet ignorerer alle blanke eller skjulte ark under eksport.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

3. I den åbne dialogboks Gennemse mappe skal du angive den destinationsmappe, som du vil gemme alle .csv-filer eller PDF-filer i, og klikke på OK .

Nu vil du se hvert ark eksporteres og gemmes som en individuel .csv-fil i den angivne mappe.


Demo: Gem eller eksporter hvert ark som CSV / PDF-fil i Excel


Kutools til Excel: Over 300 praktiske værktøjer lige ved hånden! Start din 30-dages gratis prøveperiode uden funktionsbegrænsninger i dag. Hent nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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