Come convertire in batch più file Excel in file CSV in Excel?
In Excel, possiamo convertire la cartella di lavoro in file CSV con la funzione Salva con nome, ma potresti sapere come convertire in batch più file Excel in file CSV separati? In questo articolo, introduco un codice VBA per convertire in batch tutti i file Excel in una cartella in file CSV in Excel.
Batch converte i file Excel di una cartella in file CSV con VBA
Converti fogli di cartella di lavoro in file CSV separati con Kutools per Excel
Batch converte i file Excel di una cartella in file CSV con VBA
In Excel, non esiste alcuna funzione incorporata in grado di risolvere rapidamente questo lavoro tranne VBA.
1. Abilitare Excel e premere Alt + F11 chiavi aperte Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli per creare un nuovo modulo.
3. Copia il codice sottostante e incollalo nella nuova finestra del modulo.
VBA: converte in batch i file Excel in CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4. Stampa F5 chiave, seleziona la cartella contenente i file Excel che desideri convertire in file CSV nella prima finestra di dialogo.
5. Clic OK, quindi nella seconda finestra di dialogo popping, seleziona la cartella in cui posizionare i file CSV.
6. Clic OK, ora i file Excel nella cartella sono stati convertiti in file CSV e salvati in un'altra cartella.
Converti fogli di cartella di lavoro in file CSV separati con Kutools per Excel
Come sappiamo, possiamo solo convertire l'intera cartella di lavoro in un file CSV in Excel con la sua funzione Salva con nome. Ma a volte, vuoi convertire il singolo foglio in file CSV, in questo caso, il Cartella di lavoro divisa utilità di Kutools for Excel posso aiutarti.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
Dopo l'installazione Kutools per Excel, per favore fai come di seguito:(Scarica subito Kutools per Excel!)
1. Abilitare la cartella di lavoro che si desidera convertire i suoi fogli come file CSV separati, fare clic su Kutools Plus > Cartella di lavoro > Cartella di lavoro divisa.
2. Nel Cartella di lavoro divisa finestra di dialogo, seleziona il nome del foglio che desideri dividere (tutti i fogli sono selezionati per impostazione predefinita), seleziona Salva con nome digita, scegli CSV (Macintosh) (* .CSV) dall'elenco a discesa.
3. Clic Diviso per far apparire un file Sfoglia per cartella finestra di dialogo, scegli o crea una cartella in cui posizionare i file CSV.
4. Clic OK, ora la cartella di lavoro è stata suddivisa in file CSV separati.
Cartella di lavoro divisa
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!