Excel: Salva o Esporta Tutti i Fogli in File CSV o di Testo Separati (2 metodi facili)

Lavorare con cartelle di lavoro Excel contenenti più fogli di lavoro è comune nell'analisi dei dati e nella creazione di report aziendali. Spesso, avrai bisogno di esportare ogni foglio come file CSV (valori separati da virgole) o file di testo individuale per la condivisione dei dati, l'integrazione con altri sistemi o scopi di archiviazione. Sebbene Excel non offra una funzionalità integrata "esporta tutti i fogli", ci sono diversi metodi efficienti per eseguire questa operazione.

Salva o Esporta tutti i fogli in file CSV o di testo con codice VBA
Salva o Esporta tutti / fogli specifici in file CSV o di testo con Kutools per Excel

Salva o Esporta tutti i fogli in file CSV o di testo con codice VBA

Con il seguente codice VBA, puoi salvare tutti i fogli di lavoro in una cartella di lavoro in file CSV o di testo separati. Procedi come segue.

Esporta o converti tutti i fogli in file CSV separati

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic Application.

2. Nella finestra di Microsoft Visual Basic Application, clicca su Inserisci > Modulo. Poi copia e incolla il seguente codice nella finestra del Modulo.

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Premi il tasto F5 per eseguire il codice. Vedrai che tutti i file CSV esportati si trovano nella cartella Documenti. Ogni foglio di lavoro viene salvato come un file .csv separato con lo stesso nome del foglio. Vedi screenshot:

Esporta o converti tutti i fogli in file di testo separati

Il seguente codice può aiutarti a esportare o convertire tutti i fogli della cartella di lavoro in file di testo separati.

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

I file di testo esportati si trovano anche nella cartella Documenti. Vedi screenshot:

Salva o Esporta tutti / fogli specifici in file CSV o di testo con Kutools per Excel

Kutools per Excel offre una funzionalità potente e facile da usare per esportare rapidamente tutti o solo i fogli di lavoro selezionati in file CSV o di testo individuali con pochi clic.

1. Clicca su Kutools Plus > Cartella di lavoro > Dividi documento. Vedi screenshot:

2. Nella finestra di dialogo Dividi documento:

• 1). Se vuoi convertire tutti i fogli in file CSV o di testo, mantieni semplicemente selezionati tutti i nomi dei fogli nella casella Nome Foglio di lavoro; se vuoi convertire solo più fogli, mantieni selezionati quelli desiderati e vai a deselezionare gli altri fogli che non vuoi convertire.
• 2). Nella sezione Opzioni, seleziona la casella Specifica formato di salvataggio e poi scegli Testo Unicode(*.txt) o CSV (Macintosh)(*.csv) dall'elenco a discesa.
• 3). Clicca sul pulsante Dividi.

3. Nella finestra di dialogo Sfoglia Cartella, specifica una cartella per salvare i file esportati, e poi clicca sul pulsante OK.

Ora tutti i fogli o i fogli specificati sono stati convertiti in file CSV o di testo separati e si trovano nella cartella che hai specificato sopra.

Demo: Salva, esporta o converti più/tutti i fogli in file CSV o di testo con Kutools per Excel