Hur batchkonverterar man flera Excel-filer till CSV-filer i Excel?
I Excel kan vi konvertera arbetsboken till CSV-fil med funktionen Spara som, men kan du veta hur du ska konvertera flera Excel-filer till separata CSV-filer? I den här artikeln introducerar jag en VBA-kod för att konvertera alla Excel-filer i en mapp till CSV-filer i Excel.
Batchkonvertera Excel-filer i en mapp till CSV-filer med VBA
Konvertera arbetsbok till separata CSV-filer med Kutools för Excel
Batchkonvertera Excel-filer i en mapp till CSV-filer med VBA
I Excel finns det ingen inbyggd funktion som snabbt kan lösa detta jobb förutom VBA.
1. Aktivera Excel och tryck på Alt + F11 nycklarna öppna Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulerna för att skapa en ny modul.
3. Kopiera nedanstående kod och klistra in dem i det nya modulfönstret.
VBA: Batchkonvertera Excel-filer till 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. Tryck F5 välj mappen som innehåller de Excel-filer som du vill konvertera till CSV-filer i den första poppdialogen.
5. klick OK, sedan i den andra poppande dialogrutan, välj mappen för att placera CSV-filer.
6. klick OK, nu har Excel-filerna i mappen konverterats till CSV-filer och sparats i en annan mapp.
Konvertera arbetsbok till separata CSV-filer med Kutools för Excel
Som vi visste kan vi bara konvertera hela arbetsboken till en CSV-fil i Excel med funktionen Spara som. Men ibland vill du konvertera det ena arket till CSV-fil, i det här fallet Dela arbetsbok nytta av Kutools för Excel kan hjälpa dig.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
När du har installerat Kutools för Excel, gör så här:(Gratis nedladdning Kutools för Excel nu!)
1. Aktivera arbetsbok du vill konvertera dess ark som separata CSV-filer, klicka på Kutools Plus > Arbetsbok > Dela arbetsbok.
2. I Dela arbetsbok dialogrutan, kolla arkenamnet du vill dela (alla ark är markerade som standard), kontrollera Spara som typ, välj CSV (Macintosh) (* .CSV) från rullgardinsmenyn.
3. klick Split att poppa ut a Bläddra för mapp välj eller skapa en mapp för att placera CSV-filerna.
4. klick OK, nu har arbetsboken delats upp som separata CSV-filer.
Dela arbetsbok
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!