Hvordan batchkonverteres flere Excel-filer til CSV-filer i Excel?
I Excel kan vi konvertere projektmappen til CSV-fil med funktionen Gem som, men kunne du vide, hvordan du batchkonverterer flere Excel-filer til separate CSV-filer? I denne artikel introducerer jeg en VBA-kode til batchkonvertering af alle Excel-filer i en mappe til CSV-filer i Excel.
Batchkonverter Excel-filer i en mappe til CSV-filer med VBA
Konverter ark med projektmappe til separate CSV-filer med Kutools til Excel
Batchkonverter Excel-filer i en mappe til CSV-filer med VBA
I Excel er der ingen indbygget funktion, der kan løse dette job hurtigt undtagen VBA.
1. Aktivér Excel, og tryk på Alt + F11 tasterne åbnes Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler for at oprette et nyt modul.
3. Kopier nedenstående kode og indsæt dem i det nye modulvindue.
VBA: Batchkonvertere Excel-filer til 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. Trykke F5 nøgle, vælg mappen, der indeholder de Excel-filer, du vil konvertere til CSV-filer i den første poppende dialog.
5. klik OK, vælg derefter i den anden poppedialog den mappe, der skal placere CSV-filerne.
6. klik OK, nu er Excel-filerne i mappen konverteret til CSV-filer og gemt i en anden mappe.
Konverter ark med projektmappe til separate CSV-filer med Kutools til Excel
Som vi vidste, kan vi kun konvertere hele projektmappen til en CSV-fil i Excel med dens Gem som-funktion. Men i nogle gange vil du konvertere det enkelte ark til CSV-fil, i dette tilfælde den Opdelt arbejdsbog nytte af Kutools til Excel kan hjælpe dig.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)
1. Aktivér projektmappe, du vil konvertere dens ark som separate CSV-filer, klik på Kutools Plus > Workbook > Opdelt arbejdsbog.
2. i Opdelt arbejdsbog dialog, skal du kontrollere det arknavn, du vil opdele (alle ark er markeret som standard), skal du kontrollere Gem som skriv, vælg CSV (Macintosh) (* .CSV) fra rullelisten.
3. klik Dele at poppe ud a Gennemse for mappe dialog, skal du vælge eller oprette en mappe for at placere CSV-filerne.
4. klik OK, nu er projektmappen opdelt som separate CSV-filer.
Opdelt arbejdsbog
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!