Přejít k hlavnímu obsahu

Jak uložit nebo exportovat každý list jako soubor CSV / PDF v aplikaci Excel?

Například máte velký sešit s více listy a chcete uložit nebo exportovat každý list jako samostatný soubor .csv nebo soubor PDF, jak to snadno a rychle udělat? V tomto článku představím několik metod, jak to vyřešit.


Uložte nebo exportujte každý list jako soubor CSV / PDF pomocí funkce Uložit jako

Jak víte, Microsoft Excel může uložit aktuální list jako samostatný soubor .csv nebo soubor PDF. Proto můžete ručně ukládat nebo exportovat každý list jako soubor CSV nebo PDF.

1. Přepněte na list, který uložíte nebo exportujete jako samostatný soubor .csv, a klepněte na Soubor (nebo Tlačítko Office)> Uložit jako.

2. V úvodním dialogovém okně určete cílovou složku, do které soubor CSV uložíte, klepněte na Uložit jako typ pole a vyberte CSV (oddělené čárkami) (* .csv) or PDF (* .pdf) z rozevíracího seznamu a klikněte na Uložit .

3. Postupně budou vycházet dvě varovná dialogová okna. prosím klikněte OK > Ano.

Poznámka: Pokud uložíte aktivní list jako soubor PDF, tato dialogová okna se neobjeví. Pokračujte dalším krokem.

4. Opakováním výše uvedených kroků 1-3 uložte další listy jako jednotlivé soubory CSV jeden po druhém.


Dávkové uložení nebo export každého listu jako souboru CSV pomocí VBA

Pokud existuje několik listů, které chcete uložit nebo exportovat jako soubory CSV, bude první metoda časově náročná a zdlouhavá. Tento VBA může zjednodušit práci a usnadnit uložení nebo export každého listu jako souboru CSV.

1. lis Další + F11 současně otevřete okno Microsoft Visual Basic for Application.

2. cvaknutí Vložit > Modula poté vložte následující kód VBA do nového okna modulu.

VBA: Uložte každý list jako samostatný soubor CSV

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. Klepněte na tlačítko Běh nebo stiskněte tlačítko F5 klíč ke spuštění tohoto VBA.

4. V úvodním dialogovém okně Procházet zadejte cílovou složku, do které uložíte všechny soubory .csv, a klepněte na OK .

Pak uvidíte, že každý list je uložen / exportován jako samostatný soubor CSV do určené cílové složky.


Dávkové uložení nebo export každého listu jako souboru CSV / PDF pomocí programu Kutools pro Excel

Někteří uživatelé aplikace Excel mohou kód VBA z nějakých důvodů odmítnout. Neboj se! Třetí metoda může také hromadně uložit nebo exportovat každý list jako soubor .csv nebo soubor PDF snadno pomocí Rozdělit sešit užitečnost Kutools pro Excel.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

1. Klepněte na tlačítko Enterprise > Cvičebnice > Rozdělit sešit.

dokumentovat každý list do CSV 2

2. V úvodním dialogovém okně Rozdělit sešit

dokumentovat každý list do CSV 8

(1) Pokračujte ve výběru všech listů. Pokud ne, můžete zaškrtnout políčko dříve Název listu vybrat všechny listy;

(2) Zkontrolujte Určete formát uložení volba;

(3) Klikněte na pole níže Určete formát uložení vyberte možnost CSV (Macintosh) (*. Csv) or PDF (* .pdf) z rozbalovacího seznamu.

(4) Klikněte na Rozdělit .

 

Poznámka: Pokud v sešitu existují skryté a prázdné listy, zkontrolujte Přeskočit skryté listy a Přeskočit prázdný list pole bude při exportu ignorovat všechny prázdné nebo skryté listy.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

3. V úvodním dialogovém okně Procházet složku zadejte cílovou složku, do které uložíte všechny soubory .csv nebo PDF, a klikněte na OK .

Nyní uvidíte, že každý list je exportován a uložen jako samostatný soubor CSV do určené složky.


Ukázka: každý list uložte nebo exportujte jako soubor CSV / PDF v aplikaci Excel


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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