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.

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

🤖	Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
	Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
	Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
	Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
	Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
	Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
	Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

Läs mer... Gratis nedladdning...

---

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!

Läs mer... Gratis nedladdning...