Come salvare, esportare più / tutti i fogli in file CSV o di testo separati in Excel?
Quando si utilizza Excel, è possibile salvare manualmente un foglio di lavoro come file CSV o di testo utilizzando la funzione Salva con nome. Tuttavia, per convertire più o tutti i fogli di lavoro in una cartella di lavoro in file CSV o di testo separati, come puoi fare? In questo articolo, ti mostreremo i metodi per salvare o convertire più o tutti i fogli in file CSV o di testo separati.
Salva, esporta o converti tutti i fogli in CSV o file di testo con codice VBA
Salva, esporta o converti più/tutti i fogli in CSV o file di testo con Kutools per Excel
Salva, esporta o converti tutti i fogli in CSV o file di testo con codice VBA
Con i seguenti codici VBA, puoi salvare tutti i fogli di lavoro in una cartella di lavoro in file CSV o di testo separati. Si prega di fare quanto segue.
Esporta o converti tutti i fogli in file CSV
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Applicazione Microsoft Visual Basic finestra.
2. Nel Applicazione Microsoft Visual Basic finestra, fare clic inserire > Moduli. Quindi copia e incolla il seguente codice nel file Moduli finestra.
Codice VBA: esporta tutti i fogli in file CSV separati
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 F5 chiave per eseguire il codice. Vedrai che tutti i file CSV esportati si trovano nel file Documenti cartella. Vedi screenshot:
Esporta o converti tutti i fogli in file di testo
Il codice seguente può aiutarti a esportare o convertire tutti i fogli nella cartella di lavoro in file di testo separati.
Codice VBA: esporta tutti i fogli 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 nel file Documenti cartella. Vedi screenshot:
Salva, esporta o converti più/tutti i fogli in CSV o file di testo con Kutools per Excel
YPuoi esportare o convertire rapidamente più o tutti i fogli in singoli file CSV, file di testo o file in formato xls in Excel con il Cartella di lavoro divisa utilità di Kutools for Excel.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Clic Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa. Vedi screenshot:
2. Nel Cartella di lavoro divisa la finestra di dialogo:
- 1). Se vuoi convertire tutti i fogli in file CSV o di testo, mantieni tutti i nomi dei fogli selezionati nel file Nome del foglio di lavoro scatola; Se vuoi solo convertire più fogli, continua a controllarli e deseleziona gli altri fogli che non desideri convertire.
- 2). Nel Opzioni sezione, controlla il Salva come tipo casella e quindi selezionare Testo Unicode (*. Txt) or CSV (Macintosh) (*. Csv) dall'elenco a discesa.
- 3). Clicca il Diviso pulsante.
3. Nel Sfoglia per cartella finestra di dialogo, specificare una cartella in cui salvare i file esportati, quindi fare clic su OK pulsante.
Ora tutti i fogli o fogli specificati vengono convertiti in file CSV o di testo separati e individuati nella cartella come specificato sopra.
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Salva, esporta o converti più/tutti i fogli in CSV o file di testo con Kutools per Excel
I migliori strumenti per la produttività in ufficio
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...
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!