Nwlapcug.com


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

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


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.