Preskoči na glavno vsebino

Kako shraniti ali izvoziti vsak list kot datoteko CSV / PDF v Excelu?

Na primer imate velik delovni zvezek z več listi in želite vsak list shraniti ali izvoziti kot posamezno datoteko .csv ali datoteko PDF, kako to storiti enostavno in hitro? V tem članku bom predstavil več metod za njegovo rešitev.


Shranite ali izvozite vsak list kot datoteko CSV / PDF s funkcijo Shrani kot

Kot veste, lahko Microsoft Excel shrani trenutni delovni list kot posamezno datoteko .csv ali datoteko PDF. Zato lahko vsak list posamično shranite ali izvozite kot datoteko .csv ali datoteko PDF.

1. Preklopite na list, ki ga boste shranili ali izvozili kot posamezno datoteko .csv, in kliknite file (ali Gumb »Pisarna«)> Shrani kot.

2. V začetnem pogovornem oknu določite ciljno mapo, v katero boste shranili datoteko .csv, kliknite Shrani kot vrsto in izberite CSV (ločeno z vejico) (* .csv) or PDF (* .pdf) na spustnem seznamu in kliknite Shrani gumb.

3. Za zaporedoma se bosta odprli dve opozorilni pogovorni okni. Prosim kliknite OK > Da.

Opomba: Če aktivni delovni list shranite kot datoteko PDF, se ta pogovorna okna ne bodo pojavila. Samo pojdite na naslednji korak.

4. Ponovite zgornji korak 1-3, da shranite druge liste kot posamezne datoteke .csv eno za drugo.


Skupinsko shranite ali izvozite vsak list kot datoteko CSV z VBA

Če želite več listov shraniti ali izvoziti kot .csv datoteke, bo prva metoda precej zamudna in dolgočasna. Ta VBA lahko poenostavi delo in olajša shranjevanje ali izvoz vsakega lista kot .csv datoteko.

1. Pritisnite druga + F11 tipke hkrati, da odprete okno Microsoft Visual Basic for Application.

2. klik Vstavi > Moduliin nato prilepite naslednjo kodo VBA v novo okno modula.

VBA: Shranite vsak list kot posamezno datoteko 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. Kliknite Run ali pritisnite F5 ključ za zagon tega VBA.

4. V začetnem pogovornem oknu Brskaj določite ciljno mapo, v katero boste shranili vse datoteke .csv, in kliknite OK gumb.

Nato boste videli, da je vsak list shranjen / izvožen kot posamezna datoteka .csv v določeni ciljni mapi.


Skupinsko shranite ali izvozite vsak list kot datoteko CSV / PDF s programom Kutools za Excel

Nekateri uporabniki Excela lahko iz nekaterih razlogov zavrnejo kodo VBA. Ne skrbi! Tretja metoda lahko tudi paketno shrani ali izvozi vsak list kot .csv datoteko ali datoteko PDF z lahkoto Razdeljeni delovni zvezek pripomoček Kutools za Excel.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

1. Kliknite Podjetje > Delovni zvezek > Razdeljeni delovni zvezek.

doc vsak list na csv 2

2. V začetnem pogovornem oknu Razdeli delovni zvezek

doc vsak list na csv 8

(1) Nadaljujte z izbiro vseh listov. V nasprotnem primeru lahko potrdite polje prej Ime delovnega lista izbrati vse liste;

(2) Preverite Določite obliko shranjevanja možnost;

(3) Kliknite spodnje polje Določite obliko shranjevanja in izberite CSV (Macintosh) (*. Csv) or PDF (* .pdf) s spustnega seznama.

(4) Kliknite Split gumb.

 

Opombe: Če v vašem delovnem zvezku obstajajo skriti in prazni delovni listi, preverite Preskočite skrite delovne liste polje in Preskočite prazen delovni list polje bo med izvozom prezrlo vse prazne ali skrite liste.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

3. V začetnem pogovornem oknu Brskaj za mapo določite ciljno mapo, v katero boste shranili vso datoteko .csv ali datoteko PDF, in kliknite OK gumb.

Zdaj boste videli, da je vsak list izvožen in shranjen kot posamezna datoteka .csv v navedeni mapi.


Predstavitev: shranite ali izvozite vsak list kot datoteko CSV / PDF v Excelu


Kutools za Excel: Več kot 300 priročnih orodij na dosegu roke! Začnite 30-dnevno brezplačno preskusno obdobje brez omejitev funkcij še danes. Download Now!

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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