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

Hoe importeert u snel meerdere CSV-, tekst- of XML-bestanden batchgewijs in Excel?

AuteurSun Wijzigingsdatum

In Excel hebt u waarschijnlijk al eens een werkmap opgeslagen als CSV-bestand, tekstbestand of XML-bestand. Maar heeft u ooit geprobeerd meerdere CSV-, tekst- of XML-bestanden uit één map tegelijk te importeren in een enkele werkmap of op één werkblad? In dit artikel bespreek ik enkele methoden om dit snel en batchgewijs te doen.

Meerdere Tekstbestand uit een map importeren in afzonderlijke werkbladen van een werkmap met VBA

Om een tekstbestand uit een map te importeren in een werkmap, kunt u de onderstaande VBA-code gebruiken voor een snelle uitvoering.

1. Open een lege werkmap en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de VBA-code in het Module-venster.

VBA: Alle Tekstbestand uit een map importeren in een werkmap

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3. Druk op F5 of klik op de knop Uitvoeren om de VBA uit te voeren. Selecteer in het pop-upvenster de map waaruit u het tekstbestand wilt importeren. Zie screenshot:

een schermafbeelding van het selecteren van een map waaruit u txt-bestanden wilt importeren

4. Klik vervolgens op OK en elk tekstbestand in de geselecteerde map wordt geïmporteerd in één werkblad van het huidige werkboek. Zie screenshot:

een schermafbeelding die laat zien dat elk tekstbestand in de geselecteerde map is geïmporteerd in verschillende werkbladen van de huidige werkmapeen schermafbeelding die laat zien dat elk tekstbestand in de geselecteerde map is geïmporteerd in verschillende werkbladen van de huidige werkmap 2
een schermafbeelding van kutools for excel ai

Ontgrendel de magie van Excel met KUTOOLS AI

  • Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
  • aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
  • VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
  • Formule-uitleg: Begrijp complexe formules moeiteloos.
  • Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Breid uw Excel-mogelijkheden uit met AI-gestuurde tools.Download nuen ervaar efficiëntie zoals nooit tevoren!

Meerdere csv-bestanden uit een map importeren in één enkel blad met VBA

Om alle CSV-bestanden uit een map samen te voegen in één enkel werkblad, kunt u de onderstaande VBA-code gebruiken.

1. Open een leeg werkblad en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de onderstaande VBA-code in het nieuwe Module-venster.

VBA: Csv-bestanden uit een map importeren in één werkblad

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3. Druk op F5 of klik op de knop Uitvoeren om de VBA uit te voeren. Er verschijnt dan een dialoogvenster waarin u de map selecteert waaruit u alle CSV-bestanden wilt importeren. Zie screenshot:

een schermafbeelding van het selecteren van een map waaruit u csv-bestanden wilt importeren in één enkel werkblad

4. Klik op OK, waarna een dialoogvenster verschijnt dat vraagt of u de inhoud van het actieve werkblad wilt wissen vóór het importeren; hier klik ik op Ja. Zie screenshot:

een schermafbeelding van een meldingsvenster dat vraagt of u het bestaande werkblad wilt wissen voordat u csv-bestanden importeert

Nadat u op Ja hebt geklikt, worden alle CSV-bestanden in de geselecteerde map geïmporteerd in het huidige werkblad, waarbij de gegevens beginnen in kolom A en naar rechts worden geplaatst. Zie screenshot:

een schermafbeelding die laat zien dat alle csv-bestanden in de geselecteerde map zijn geïmporteerd in het huidige werkbladeen schermafbeelding die laat zien dat alle csv-bestanden in de geselecteerde map zijn geïmporteerd in het huidige werkblad 2

Tip: Als u CSV-bestanden horizontaal in een werkblad wilt plaatsen, kunt u de onderstaande VBA-code gebruiken.

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

een schermafbeelding van het horizontaal importeren van csv-bestanden in een werkblad

Meerdere xml-bestanden uit een map importeren in één enkel blad met VBA

Als u alle XML-bestanden uit een map in één enkel werkblad wilt importeren, kunt u de onderstaande VBA-code gebruiken.

1. Selecteer een leeg werkblad waar u de geïmporteerde gegevens wilt plaatsen en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de VBA-code in het Module-venster.

VBA: XML-bestanden uit een map importeren naar een werkblad.

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3. Klik op de knop Uitvoeren of druk op F5 om de VBA uit te voeren en selecteer ‘Selecteer een map’ in het pop-upvenster. Zie screenshot:

een schermafbeelding van het selecteren van een map waaruit u xml-bestanden wilt importeren in één enkel werkblad

4. Klik op OK en alle XML-bestanden in de geselecteerde map worden geïmporteerd in het huidige werkblad.

Meerdere xml-/csv-bestanden importeren of combineren in één blad of werkmap met Kutools voor Excel

Bent u niet bekend met VBA? Maak u dan geen zorgen! Hier stel ik u een handige tool voor: Kutools voor Excel. Met het krachtige hulpprogramma Combineren combineert u in een handomdraai meerdere XML- of CSV-bestanden tot één werkmap of één Excel-blad.

Na installatie van Kutools voor Excel, gaat u als volgt te werk:（Gratis downloaden Kutools voor Excel nu!)

1. Activeer Excel en klik op KUTOOLS PLUS > Combineren. Zie screenshot:
een schermafbeelding van het inschakelen van de Combineer-functie van Kutools for Excel

2. In stap 1 van het Combineren-dialoogvenster kiest u een scheidingsoptie naar behoefte. Zie screenshot:
een schermafbeelding van het selecteren van een bewerking die u nodig hebt in de Combineer werkbladen-wizard

3. Klik op Volgende om naar stap 2 van het Combineren-dialoogvenster te gaan, klik op Toevoegen om bestanden uit verschillende mappen of meerdere bestanden uit één map toe te voegen aan de lijst Werkmap, en geef in het rechtergedeelte via de lijst Werkblad op welke werkbladen u wilt combineren. Zie screenshot:
een schermafbeelding van het toevoegen van bestanden of mappen en het opgeven van de werkbladen die u wilt combineren

4. Klik op Volgendeom naar de Laatste stap van het Combineren-dialoogvensterte gaan, en u kunt de combinatie-opties opgeven.
een schermafbeelding van het opgeven van de combineeropties

5. Klik op Voltooien. Vervolgens verschijnt een dialoogvenster waarin u wordt gevraagd een locatie te selecteren om het nieuwe gecombineerde bestand op te slaan. Zie screenshot:
een schermafbeelding van het selecteren van een locatie om het nieuwe gecombineerde bestand op te slaan

6. Klik op Opslaan. Alle toegevoegde werkbladen zijn samengevoegd in één nieuw werkblad.
een schermafbeelding die laat zien dat alle toegevoegde werkbladen zijn gecombineerd in één nieuw werkblad

Tip: Met Combineren kunt u ook meerdere CSV-bestanden uit meerdere mappen of één map samenvoegen in één blad of werkmap.

Elk blad exporteren als csv/tekst/pdf naar een map met Kutools voor Excel

Als u elk blad als CSV-, tekst- of PDF-bestanden naar een map wilt exporteren, helpt het hulpprogramma Kutools voor Excel’s Werkboek splitsen u daarbij.

Na gratis downloaden en installerenvan Kutools voor Excel, gaat u als volgt te werk:

1. Open de werkmap waarvan u de werkbladen wilt exporteren en klik op KUTOOLS PLUS > Werkmap > Werkboek splitsen. Zie screenshot:

een schermafbeelding van het inschakelen van de Splits werkmap-functie

2. In het Werkboek splitsen-dialoogvenster selecteert u de namen van de werkbladen die u wilt exporteren; standaard zijn alle werkbladen geselecteerd. Vink Specificeer opslagformaat aan en kies het gewenste bestandstype in de keuzelijst hieronder. Zie screenshot:

een schermafbeelding van het aanvinken van de werkbladnamen die u wilt exporteren en het opgeven van een opslagformaat

3. Klik op Splitsen en geef in het Bladeren naar map-dialoogvenster de map op waarin u de gesplitste bestanden wilt opslaan. Zie screenshot:

een schermafbeelding van het selecteren van een doelmap om de geëxporteerde bestanden op te slaan

4. Klik op OK, en alle geselecteerde werkbladen zijn nu geëxporteerd als nieuw bestandstype in de geselecteerde map.

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