Salt la conținutul principal

Cum se salvează sau se exportă fiecare foaie ca fișier CSV / PDF în Excel?

De exemplu, aveți un registru de lucru mare cu mai multe coli și doriți să salvați sau să exportați fiecare coală ca fișier .csv individual sau fișier PDF, cum să faceți acest lucru ușor și rapid? În acest articol, voi introduce mai multe metode de rezolvare.


Salvați sau exportați fiecare foaie ca fișier CSV / PDF cu funcția Salvare ca

După cum știți, Microsoft Excel poate salva foaia de lucru curentă ca fișier .csv individual sau fișier PDF. Prin urmare, puteți salva sau exporta fiecare foaie ca fișier .csv sau fișier PDF unul câte unul manual.

1. Treceți la foaia pe care o veți salva sau exporta ca fișier .csv individual și faceți clic pe Fișier (Sau Butonul Office)> Salvare ca.

2. În caseta de dialog de deschidere, specificați folderul de destinație în care veți salva fișierul .csv, faceți clic pe Salvați ca tip caseta și selectați CSV (delimitat prin virgulă) (* .csv) or PDF (* .pdf) din lista derulantă și faceți clic pe Economisiți butonul.

3. Vor exista două casete de dialog de avertizare care vor apărea succesiv. Vă rugăm să faceți clic pe OK > Da.

Notă: Dacă salvați foaia de lucru activă ca fișier PDF, aceste casete de dialog nu vor apărea. Treceți la pasul următor.

4. Repetați pasul 1-3 de mai sus pentru a salva alte foi ca fișiere .csv individuale una câte una.


Salvați în lot sau exportați fiecare foaie ca fișier CSV cu VBA

Dacă există un număr de foi pe care doriți să le salvați sau să le exportați ca fișiere .csv, prima metodă va fi destul de consumatoare de timp și de obositoare. Acest VBA poate simplifica funcționarea și face mai ușor să salvați sau să exportați fiecare foaie ca fișier .csv.

1. presa Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicație.

2. clic Insera > Moduleși apoi lipiți următorul cod VBA în fereastra noului modul.

VBA: Salvați fiecare foaie ca fișier CSV individual

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. Faceți clic pe Alerga sau apăsați F5 tasta pentru a rula acest VBA.

4. În caseta de dialog Răsfoire de deschidere, specificați folderul de destinație în care veți salva toate fișierele .csv și faceți clic pe OK butonul.

Apoi veți vedea că fiecare foaie este salvată / exportată ca fișier .csv individual în folderul de destinație specificat.


Salvați sau exportați fiecare foaie ca fișier CSV / PDF cu Kutools pentru Excel

Unii utilizatori Excel pot refuza codul VBA din anumite motive. Nu iti face griji! Cea de-a treia metodă poate salva sau exporta în serie fiecare foaie ca fișier .csv sau fișier PDF cu ușurință de către Carnet de lucru divizat utilitate Kutools pentru Excel.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

1. Faceți clic pe Afacere > Workbook > Carnet de lucru divizat.

doc fiecare foaie la CSV 2

2. În caseta de dialog Split Workbook de deschidere,

doc fiecare foaie la CSV 8

(1) Continuați să selectați toate foile. Dacă nu, puteți bifa caseta de selectare înainte Numele foii de lucru pentru a selecta toate foile;

(2) Verificați Specificați formatul de salvare opțiune;

(3) Faceți clic pe caseta de mai jos Specificați formatul de salvare și selectați CSV (Macintosh) (*. Csv) or PDF (* .pdf) din lista derulantă.

(4) Faceți clic pe Despică butonul.

 

notițe: Dacă există foi de lucru ascunse și goale în registrul dvs. de lucru, verificați Omiteți foile de lucru ascunse și caseta Omiteți foaia de lucru necompletată caseta va ignora toate foile goale sau ascunse în timpul exportului.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

3. În caseta de dialog Răsfoiți folderul de deschidere, specificați folderul de destinație în care veți salva tot fișierul .csv sau fișierul PDF și faceți clic pe OK butonul.

Acum veți vedea că fiecare foaie este exportată și salvată ca fișier .csv individual în folderul specificat.


Demo: salvați sau exportați fiecare foaie ca fișier CSV / PDF în Excel


Kutools pentru Excel: Peste 300 de instrumente la îndemână la îndemână! Începeți astăzi perioada de încercare gratuită de 30 de zile, fără limitări ale funcțiilor. Descarcă acum!

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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