Vai al contenuto principale

Come salvare o esportare ogni foglio come file CSV / PDF in Excel?

Ad esempio, hai una cartella di lavoro di grandi dimensioni con più fogli e desideri salvare o esportare ogni foglio come singolo file .csv o file PDF, come farlo facilmente e rapidamente? In questo articolo, introdurrò diversi metodi per risolverlo.


Salva o esporta ogni foglio come file CSV / PDF con la funzione Salva con nome

Come sai, Microsoft Excel può salvare il foglio di lavoro corrente come singolo file .csv o file PDF. Pertanto, è possibile salvare o esportare manualmente ogni foglio come file .csv o PDF uno per uno.

1. Passare al foglio che si salverà o esportare come singolo file .csv e fare clic su Compila il (o Pulsante di ufficio)> Salva con nome.

2. Nella finestra di dialogo di apertura, specificare la cartella di destinazione in cui salvare il file .csv, fare clic su Salva come tipo casella e selezionare CSV (delimitato da virgole) (* .csv) or PDF (* .pdf) dall'elenco a discesa e fare clic su Risparmi pulsante.

3. Verranno visualizzate due finestre di dialogo di avviso in successione. Fare clic su OK > .

Nota: Se salvi il foglio di lavoro attivo come file PDF, queste finestre di dialogo non verranno visualizzate. Vai al passaggio successivo.

4. Ripetere i passaggi 1-3 precedenti per salvare gli altri fogli come singoli file .csv uno per uno.


Batch salva o esporta ogni foglio come file CSV con VBA

Se sono presenti più fogli che desideri salvare o esportare come file .csv, il primo metodo richiederà molto tempo e sarà noioso. Questo VBA può semplificare il lavoro e semplificare il salvataggio o l'esportazione di ogni foglio come file .csv.

1. Stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic for Application.

2. Clic inserire > Moduli, quindi incolla il codice VBA seguente nella finestra del nuovo modulo.

VBA: salva ogni foglio come singolo file 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. Fare clic sul Correre pulsante o premere F5 chiave per eseguire questo VBA.

4. Nella finestra di dialogo Sfoglia di apertura, specificare la cartella di destinazione in cui salvare tutti i file .csv e fare clic su OK pulsante.

Quindi vedrai ogni foglio salvato / esportato come un singolo file .csv nella cartella di destinazione specificata.


Salva o esporta in batch ogni foglio come file CSV/PDF con Kutools per Excel

Alcuni utenti di Excel potrebbero rifiutare il codice VBA per alcuni motivi. Non preoccuparti! Il terzo metodo può anche salvare in batch o esportare ogni foglio come file .csv o file PDF facilmente dal Cartella di lavoro divisa utilità di Kutools per Excel.

Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now

1. Fare clic sul Impresa > Cartella di lavoro > Cartella di lavoro divisa.

doc ogni foglio in csv 2

2. Nella finestra di dialogo di apertura della cartella di lavoro divisa,

doc ogni foglio in csv 8

(1) Continua a selezionare tutti i fogli. In caso contrario, puoi selezionare la casella di controllo prima Nome del foglio di lavoro per selezionare tutti i fogli;

(2) Controllare il file Specifica il formato di salvataggio opzione;

(3) Fare clic sulla casella sottostante Specifica il formato di salvataggio opzione e selezionare CSV (Macintosh) (*. Csv) or PDF (* .pdf) dall'elenco a discesa.

(4) Fare clic su Diviso pulsante.

 

Note:: Se nella cartella di lavoro sono presenti fogli di lavoro nascosti e vuoti, selezionare il file Salta i fogli di lavoro nascosti scatola e il Salta foglio di lavoro vuoto box ignorerà tutti i fogli vuoti o nascosti durante l'esportazione.

Kutools for Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi una prova GRATUITA di 30 giorni con tutte le funzionalità senza carta di credito richiesta! Get It Now

3. Nella finestra di dialogo Sfoglia per cartelle di apertura, specificare la cartella di destinazione in cui salvare tutti i file .csv o PDF e fare clic sul OK pulsante.

Ora vedrai ogni foglio esportato e salvato come singolo file .csv nella cartella specificata.


Demo: salva o esporta ogni foglio come file CSV / PDF in Excel


Kutools for Excel: Oltre 300 strumenti utili a portata di mano! Inizia oggi la tua prova gratuita di 30 giorni senza limitazioni di funzionalità. Scarica ora!

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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