Note: The other languages of the website are Google-translated. Back to English
English English

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 > Modulo, 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.


Batch salva o esporta 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 - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna 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 - Include più di 300 strumenti utili per Excel. 30 giorni di prova gratuita delle funzionalità complete, nessuna 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 include più di 300 utili strumenti per Excel, da provare gratuitamente senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (6)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Grazie per i tuoi consigli molto utili. Ho usato il codice vba per convertire un file excel con più fogli in singoli file csv. Mi chiedo, come posso specificare che vorrei che quei file CSV fossero utf-8? C'è un'aggiunta al codice qui sotto che aggiungerà quella funzione? 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 .Fogli di lavoro xWs.SaveAs xDir & "\" & xWs.Name, xlCSV Next End Sub
Questo commento è stato fatto dal moderatore sul sito
ActiveWorkbook.SaveAs Filename:=Replace(Replace(xSPath & xCSVFile & xWs.Name, ".xlsx", "", vbTextCompare), ".xls", "", vbTextCompare) & ".csv", FileFormat:=xlCSVUTF8, CreateBackup:=Falso
Questo commento è stato fatto dal moderatore sul sito
Come mantenere e mantenere i valori decimali durante l'esportazione di fogli Excel in CSV? i dati finanziari richiedono l'accuratezza dei dati fino a 3 decimali quando vengono esportati in CSV? si prega di avvisare
Questo commento è stato fatto dal moderatore sul sito
Ciao prashan9810,
Prima di esportare i fogli da Excel a CSV, è meglio modificare la formattazione dei numeri di valuta e correggere le loro posizioni decimali su 3.
È possibile modificare le posizioni decimali come segue:
1. In Excel, seleziona le celle della valuta, fai clic con il pulsante destro del mouse e seleziona formato celle dal menu di scelta rapida.
2. Nella finestra di dialogo Formato celle, selezionare Valuta or Contabilità nel Categoria casella di riepilogo, immettere 3 nel Decimali casella e fare clic OK.
Questo commento è stato fatto dal moderatore sul sito
Ciao, grazie per questi suggerimenti! Ho provato a utilizzare il codice VBA ma ricevo un codice di errore di runtime 91 per la seguente sintassi:

Se folder.Show <> -1 Quindi esci da Sub

Potete aiutarmi a risolvere i problemi? Sono nuovo di VBA. :)
Questo commento è stato fatto dal moderatore sul sito
Hi there,

Assicurati che nella finestra del modulo sia presente solo il codice VBA di questo tutorial. Se sono presenti altri codici, eliminali o spostali in un nuovo modulo.

Dopodiché, esegui il codice. Se continua a non funzionare, utilizzare il codice seguente:
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
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite