Hoe converteer ik meerdere CSV-bestanden batchgewijs naar XLS (X) -bestanden in Excel?

Het converteren van een CSV-bestand naar XlS- of XLSX-bestand is heel eenvoudig voor u door de functie Opslaan als toe te passen. Het is echter tijdrovend om meerdere CSV-bestanden vanuit een map naar XLS- of XLSX-bestanden te converteren door ze een voor een handmatig op te slaan. Hier introduceer ik een macrocode om snel alle CSV-bestanden vanuit een map naar XLS (x) -bestanden te converteren.

Batch converteer CSV-bestanden naar XlS (X) -bestanden met macrocode

Batch converteer CSV-bestanden naar XlS (X) -bestanden met macrocode

Om meerdere CSV-bestanden van één map naar XLS (X) -bestanden te converteren, kunt u de onderstaande stappen uitvoeren:

1. Activeer een nieuwe werkmap, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster en klik Invoegen > Module. Zie screenshot:

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

2. Plak vervolgens onderstaande macrocode in het Module script en druk op F5 sleutel 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 pop-outvenster de opgegeven map met de CSV-bestanden die u wilt converteren. Zie screenshot:

4. klikken OK, zijn alle CSV-bestanden in de geselecteerde map geconverteerd naar XLS-bestanden erin.

Tip: Als u CSV-bestanden naar XLSX-bestanden wilt converteren, gebruikt u 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 snel een reeks van een blad om XLS / Word / PDF- of andere formaatbestanden in één keer te scheiden

Normaal gesproken ondersteunt Excel u niet met een optie om snel een bereik te exporteren of op te slaan als een CSV- of Excel-bestand. Als u een gegevensbereik als CSV of werkmap in Excel wilt opslaan, moet u mogelijk een VBA-macro gebruiken om dit te doen of om het bereik naar het klembord te kopiëren en in een nieuwe werkmap te plakken en vervolgens de werkmap op te slaan als CSV of Werkboek. Kutools for Excel vergroot Excel met Bereik exporteren naar bestand hulpprogramma voor Excel-gebruikers die de volgende bewerkingen snel willen verwerken:  Klik voor 30 -dag volledige gratis proefversie!

Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis te proberen zonder enige beperking 30 dagen.

Relatieve artikelen:

• Hoe csv-bestand naar xls-bestand te converteren of csv in Excel te importeren / openen?
• Hoe Word-document naar Excel-werkblad te converteren?

---

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...