Hvordan batchkonverteres flere CSV-filer til XLS (X) -filer i Excel?

At konvertere en CSV-fil til XlS- eller XLSX-fil er meget let for dig ved at anvende funktionen Gem som. At konvertere flere CSV-filer til XLS- eller XLSX-filer fra en mappe er dog tidskrævende ved at gemme en efter en manuelt. Her introducerer jeg en makrokode til hurtig batchkonvertering af alle CSV-filer til XLS (x) -filer fra en mappe.

Batch konvertere CSV-filer til XlS (X) filer med makro kode

Batch konvertere CSV-filer til XlS (X) filer med makro kode

For at konvertere flere CSV-filer fra en mappe til XLS (X) -filer kan du gøre som nedenfor:

1. Aktivér en ny projektmappe, tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler. Se skærmbillede:

Bemærk: Sørg for, at alle CSV-filer, du vil konvertere, er lukket.

2. Indsæt derefter makrokoden under Moduler script, og tryk på F5 nøgle for at køre koden.

VBA: Konverter CSV til XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. I pop op-dialogboksen skal du vælge den angivne mappe, der indeholder de CSV-filer, du vil konvertere. Se skærmbillede:

4. klik OK, alle CSV-filer i den valgte mappe er konverteret til XLS-filer i den.

Tip: Hvis du vil konvertere CSV-filer til XLSX-filer, skal du bruge nedenstående VBA-kode.

VBA: Konverter CSV-filer til XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

hurtigt konvertere eller eksportere en række af et ark for at adskille XLS / Word / PDF eller andre formatfiler på én gang

Normalt understøtter Excel dig ikke en mulighed for hurtigt at eksportere eller gemme et interval som en CSV- eller Excel-fil. Hvis du vil gemme en række data som en CSV eller projektmappe i Excel, skal du muligvis bruge en VBA-makro til at gøre dette eller kopiere området til udklipsholderen og indsætte det i en ny projektmappe og derefter gemme projektmappen som CSV eller Arbejdsbog. Kutools til Excel udvider Excel med Eksporter rækkevidde til fil værktøj til Excel-brugere, der hurtigt vil behandle følgende operationer ：  Klik for 30-dag fuld featured gratis prøveperiode!

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelser, gratis at prøve uden begrænsning i 30 dage.

Relative artikler:

• Hvordan konverteres csv-fil til xls-fil eller importerer / åbner csv i Excel?
• Hvordan konverteres word-dokument til Excel-regneark?

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...