Cum se convertesc în lot mai multe fișiere Excel în fișiere CSV în Excel?
În Excel, putem converti registrul de lucru în fișier CSV cu funcția Salvare ca, dar ați putea ști cum să convertiți mai multe fișiere Excel în fișiere CSV separate? În acest articol, introduc un cod VBA pentru a converti în lot toate fișierele Excel dintr-un folder în fișiere CSV în Excel.
Convertiți în lot fișierele Excel ale unui folder în fișiere CSV cu VBA
Convertiți foi de registru de lucru în fișiere CSV separate cu Kutools pentru Excel
Convertiți în lot fișierele Excel ale unui folder în fișiere CSV cu VBA
În Excel, nu există nicio funcție încorporată care poate rezolva rapid acest job, cu excepția VBA.
1. Activați Excel și apăsați Alt + F11 tastele deschise Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module pentru a crea un nou modul.
3. Copiați codul de mai jos și lipiți-le în noua fereastră a modulului.
VBA: convertiți în lot fișiere Excel în 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. presa F5 tasta, selectați folderul conține fișierele Excel pe care doriți să le convertiți în fișiere CSV în prima fereastră de dialog.
5. clic OK, apoi în al doilea dialog popping, selectați folderul pentru plasarea fișierelor CSV.
6. clic OK, acum fișierele Excel din folder au fost convertite în fișiere CSV și salvate într-un alt folder.
Convertiți foi de registru de lucru în fișiere CSV separate cu Kutools pentru Excel
După cum știam, putem converti întregul registru de lucru într-un singur fișier CSV în Excel cu funcția sa Salvare ca. Dar, în unele momente, doriți să convertiți o singură foaie în fișier CSV, în acest caz, fișierul Carnet de lucru divizat utilitatea Kutools pentru Excel te poate ajuta.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare Kutools pentru Excel, faceți următoarele:(Descărcați gratuit Kutools pentru Excel acum!)
1. Activați registrul de lucru pe care doriți să-l convertiți ca fișiere CSV separate, faceți clic pe Kutools Plus > Workbook > Carnet de lucru divizat.
2. În Carnet de lucru divizat caseta de dialog, verificați numele foii pe care doriți să o împărțiți (toate foile sunt verificate implicit), verificați Salvează ca tip, alege CSV (Macintosh) (* .CSV) din lista drop-down.
3. clic Despică a ieși afară a Căutați dosarul , alegeți sau creați un folder pentru a plasa fișierele CSV.
4. clic OK, acum registrul de lucru a fost împărțit ca fișiere CSV separate.
Carnet de lucru divizat
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!