Come convertire tutti i fogli di Excel in formato CSV con le macro

In Microsoft Excel , è possibile convertire facilmente una cartella di lavoro in formato CSV , scegliendo un tipo di file appropriato nella " Salva con nome" finestra di dialogo. Usando questo metodo , solo il foglio attivo verrà convertito . Questo perché i file CSV può contenere un solo foglio . Per convertire più fogli in formato CSV , è necessario esportare una per una . Questo comporta l'attivazione di ogni foglio , spostandolo a una cartella di lavoro vuota e poi salvarlo come file CSV . Per rendere questo compito più facile e più conveniente , utilizzare le macro . Istruzioni
1

Avviare Microsoft Excel e aprire la cartella di lavoro .
2

Comunicati "Alt + F8 " per aprire la finestra Macro. Tipo " ExportSheetsToCSV " nella casella Nome macro e quindi fare clic su "Crea ".
3

Inserisci il seguente codice nell'editor di VBA . Questa macro creerà i file CSV nella stessa cartella della cartella di lavoro utilizzando i nomi dei fogli per i nomi di file .

Sub ExportSheetsToCSV ( ) per

Dim wSheet come manuale

Dim csvfile come String

Per Ogni wSheet in fogli di lavoro

On Error Resume Next

wSheet.Copy

csvfile = CurDir & " \\ " & wSheet.Name & " . csv "

ActiveWorkbook.SaveAs Filename : = csvfile , _

FileFormat : = xlCSV , CreateBackup : = False

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

Avanti wSheet

End Sub
4

Chiudere il VBA di modifica per tornare alla cartella di lavoro .
5

premere "+ F8 ALT " per aprire la finestra delle macro. Selezionare " ExportSheetsToCSV " dall'elenco e fare clic su "Esegui ". Attendere Excel per completare la conversione dei fogli .