KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe converteert u meerdere CSV-bestanden tegelijk naar XLS(X)-bestanden in Excel?

AuteurSun Wijzigingsdatum

Het converteren van een CSV-bestand naar een XLS- of XLSX-bestand is kinderlijk eenvoudig met de functie ‘Opslaan als’. Maar wanneer u meerdere CSV-bestanden uit één map handmatig, één voor één, moet opslaan als XLS(X), kost dat flink wat tijd. Daarom deel ik hieronder een macrocode waarmee u in één keer alle CSV-bestanden uit een map razendsnel kunt omzetten naar XLS(X)-bestanden.

Converteer CSV-bestanden in batch naar XLS(X)-bestanden met macrocode

Converteer CSV-bestanden in batch naar XLS(X)-bestanden met macrocode

Om meerdere CSV-bestanden uit één map naar XLS(X)-bestanden te converteren, volgt u onderstaande stappen:

1. Schakel een nieuw werkblad in en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen. Klik vervolgens op Invoegen > Module. Zie screenshot:
Microsoft Visual Basic for Applications-venster

Opmerking: Zorg ervoor dat alle CSV-bestanden die u wilt converteren, gesloten zijn.

2. Plak daarna de onderstaande macrocode in het Module-script en druk op F5 om de code uit te voeren.

VBA: Converteer CSV naar 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. Selecteer in het dialoogvenster dat verschijnt de map met de CSV-bestanden die u wilt converteren. Zie de screenshot:
Dialoogvenster voor het selecteren van de opgegeven map met de CSV-bestanden die u wilt converteren

4. Klik op OK en alle CSV-bestanden in de geselecteerde map worden direct geconverteerd naar XLS-bestanden in dezelfde map.
Alle CSV-bestanden in de geselecteerde map zijn geconverteerd naar XLS-bestanden

Tip: Wilt u CSV-bestanden converteren naar XLSX? Gebruik dan de onderstaande VBA-code.

VBA: Converteer CSV-bestanden naar 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

Converteer of exporteer een bereik naar afzonderlijke XLS-, Word-, PDF-bestanden en meer

Standaard biedt Excel geen snelle optie om een geselecteerd bereik direct op te slaan als CSV, Excel of een ander bestandstype. Om dit alsnog voor elkaar te krijgen, moet u een VBA-macro gebruiken of het bereik handmatig kopiëren naar een nieuw werkblad voordat u het bestand opslaat.Kutools voor Excel vereenvoudigt dit proces met de Bereik exporteren naar bestand-functie, zodat u deze bewerking in slechts een paar klikken snel en eenvoudig kunt uitvoeren.

Exporteer bereik naar bestand-interface

Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële tools, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmer gegevensverwerking en hogere productiviteit.Bestel nu

Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins