Hoe importeert u meerdere tekstbestanden uit een map in één werkblad?
Stel dat u gegevens moet consolideren voor rapportage of analyse en meerdere tekstbestanden ontvangt, alle opgeslagen in één map. Het handmatig kopiëren en plakken van de inhoud van elk tekstbestand naar één werkblad is dan extreem tijdrovend en foutgevoelig – zeker wanneer u met veel bestanden werkt of deze regelmatig worden bijgewerkt. Gelukkig zijn er efficiënte manieren om al deze tekstbestanden automatisch te importeren en samen te voegen in één werkblad in Excel. Dit artikel biedt praktische methoden om deze taak nauwkeurig en met aanzienlijke tijdwinst uit te voeren. De beschreven aanpak is direct toepasbaar in veel praktijkscenario’s, zoals het consolideren van enquêteresultaten, het importeren van loggegevens of het samenvoegen van gefragmenteerde tekstexports uit verschillende bronnen tot één consistente dataset.
Hieronder vindt u verschillende methoden om snel meerdere tekstbestanden uit een map in Excel te importeren. Elke methode bevat duidelijke, stapsgewijze instructies, praktische tips en nuttige opmerkingen om veelvoorkomende valkuilen te omzeilen.
Importeer meerdere Tekstbestand uit één map in één werkblad met VBA
Importeer Tekstbestand naar de actieve cel met Kutools voor Excel 
Importeer meerdere Tekstbestand uit één map in één werkblad met VBA
Een efficiënte manier om alle tekstbestanden uit een specifieke map in Excel te importeren, is het gebruik van een VBA-macro. Deze oplossing is ideaal als u deze bewerking regelmatig uitvoert of herhalende taken wilt automatiseren zonder afhankelijk te zijn van extra invoegtoepassingen. Zo verwerkt u snel grote aantallen bestanden en houdt u handmatige tussenkomst tot een minimum beperkt. Let op: het gebruik van VBA vereist dat u macro’s inschakelt – wat in sommige omgevingen beperkt kan zijn – en basiskennis van de Visual Basic for Applications-editor.
Voordat u begint, wordt aanbevolen om uw werkmap te back-uppen, aangezien macro-acties niet eenvoudig ongedaan kunnen worden gemaakt. Zorg ervoor dat uw Tekstbestand consistent zijn opgemaakt, aangezien onvoorspelbare structuren mogelijk handmatige opschoning na import vereisen.
1. Open de werkmap waarin u een tekstbestand wilt importeren en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in de VBA-editor op Invoegen > Module en plak vervolgens de volgende VBA-code in het modulevenster:
VBA: Importeer meerdere Tekstbestand uit één map naar één werkblad
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
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
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. Druk op F5 terwijl de cursor zich in de code bevindt om deze uit te voeren. Vervolgens verschijnt een dialoogvenster waarin u de map met uw doelbestanden (tekstbestanden) kunt selecteren. Zie schermafbeelding:
4. Klik op OK. De macro importeert elk tekstbestand als een nieuw werkblad in uw huidige werkboek. Opmerking: als de bestanden groot of talrijk zijn, kan dit proces enige tijd duren. Controleer het resultaat:
Tip: Als uw tekstbestand headers of specifieke scheidingstekens bevat, moet u de VBA-code mogelijk aanpassen aan uw gegevensstructuur. Mocht er een fout optreden, controleer dan of het bestandspad en bestandstype correct zijn en of het tekstbestand niet elders op uw systeem openstaat. Bestaan er al bestanden met identieke namen, dan kan dit leiden tot conflicten bij het benoemen van werkbladen.
Importeer Tekstbestand naar de actieve cel met Kutools voor Excel
Als u alleen de inhoud van één tekstbestand op een specifieke locatie in uw werkblad wilt invoegen, biedt Kutools voor Excel een intuïtieve oplossing via het hulpprogramma Bestand invoegen op cursorpositie. Dit is vooral handig bij het samenvoegen van geselecteerde gegevensfragmenten of het importeren van referentienotities in vooraf gedefinieerde cellen of bereiken. In tegenstelling tot VBA-oplossingen vereist Kutools geen codering en biedt het een gebruiksvriendelijke interface om een tekstbestand naar elke doelcel te importeren.
Na gratis installerenvan Kutools voor Excel, volgt u deze stappen:
1. Selecteer de cel waarin u de inhoud van het tekstbestand wilt importeren en klik vervolgens op KUTOOLS PLUS > Importeren/Exporteren > Bestand invoegen op cursorpositie. Zie schermafbeelding:
2. Er verschijnt een dialoogvenster. Klik op Bladeren om het bestandsselectiedialoogvenster te openen. Selecteer in de vervolgkeuzelijst Bestandstype de optie Tekstbestand en zoek het tekstbestand dat u wilt invoegen. Zie schermafbeelding:
3. Klik op Openen, gevolgd door OK. De inhoud van uw gekozen tekstbestand wordt ingevoegd in de geselecteerde cel. Zie schermafbeelding:
Opmerkingen: De tekstinvoer wordt geïmporteerd in de geselecteerde cel en behoudt zoveel mogelijk de oorspronkelijke opmaak. Zorg voor optimale resultaten dat de doelcel voldoende ruimte biedt om de geïmporteerde gegevens weer te geven of uit te breiden. Voor meerdere gelijktijdige imports dient u deze functie herhaaldelijk te gebruiken of te combineren met de batchtools van Kutools.
Samenvatting: Voor eenvoudige of eenmalige imports van afzonderlijke bestanden biedt Kutools gebruiksvriendelijke opties direct in het werkblad, terwijl VBA de beste keuze is voor gebruikers die meer aanpassingsmogelijkheden of batchverwerking nodig hebben, zonder afhankelijkheid van invoegtoepassingen.
Beste Office-productiviteitshulpmiddelen
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.
- 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