In Microsoft Excel, è possibile convertire facilmente una cartella di lavoro in formato CSV scegliendo un tipo di file appropriato nella finestra di dialogo "Salva con nome". Utilizzando questo metodo, verrà convertito solo il foglio attivo. Questo è perché i file CSV possono contenere solo un foglio. Per convertire più fogli in CSV, sarà necessario esportare uno per uno. Si tratta di attivare ogni foglio, spostarlo in una cartella di lavoro vuoto e quindi salvarlo come un file CSV. Per rendere questo compito più facile e conveniente, è necessario utilizzare le macro.
Istruzioni
1
Avviare Microsoft Excel e aprire la cartella di lavoro.
2
Premere "ALT + F8" per aprire la finestra della macro. Digitare "ExportSheetsToCSV" nella casella Nome Macro e quindi fare clic su "Crea".
3
Immettere il seguente codice nell'editor di VBA. Questa macro verrà creato i file CSV nella stessa cartella come cartella di lavoro utilizzando i nomi dei fogli per nomi di file.
Sub ExportSheetsToCSV()
Dim wSheet As Worksheet
Dim csvFile As 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
Prossimo wSheet
End Sub
4
Chiudere la modifica VBA per tornare alla cartella di lavoro.
5
Premere "ALT + F8" per aprire la finestra delle macro. Selezionare "ExportSheetsToCSV" dall'elenco e quindi fare clic su "Esegui". Attendere per terminare la conversione i fogli di Excel.
Consigli & Avvertenze
- Se si desidera salvare i file CSV in una cartella diversa, sostituire "CurDir" in linea 9 con il percorso alla cartella preferito. È anche possibile spostare la cartella di lavoro alla cartella preferita prima di eseguire la macro.
- Per impostazione predefinita, le macro sono disattivate per Microsoft Excel. Per attivarli, fare clic sul pulsante Microsoft Office, andare in "Opzioni di Excel" e quindi assicurarsi che sia selezionata la "Scheda Visualizza sviluppo sulla barra multifunzione". Fare clic su "OK". In alcuni casi, potrebbe essere necessario riavviare MS Excel per le modifiche abbiano effetto.