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
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
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 <> ""
Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile)
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
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.
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 Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.
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 în fiecare zi!
