Hoe importeer je meerdere tekstbestanden uit een map naar één werkblad?
Stel dat je een map hebt met meerdere tekstbestanden, en je wilt deze bestanden importeren in een enkel werkblad zoals te zien is in de onderstaande schermafbeelding. In plaats van de tekstbestanden één voor één te kopiëren, zijn er trucs om snel de tekstbestanden uit één map in één werkblad te importeren?
Importeer meerdere tekstbestanden uit één map naar een enkel werkblad met VBA
Importeer een tekstbestand naar de actieve cel met Kutools voor Excel 
Importeer meerdere tekstbestanden uit één map naar een enkel werkblad met VBA
Hier is een VBA-code die je kan helpen alle tekstbestanden uit een specifieke map te importeren naar een nieuw werkblad.
1. Open het werkboek waarin je de tekstbestanden wilt importeren en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, kopieer en plak de onderstaande VBA-code in het Module-venster.
VBA: Importeer meerdere tekstbestanden uit één map naar één werkblad
Sub Test()
'UpdatebyExtendoffice6/7/2016
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 om een dialoogvenster weer te geven, en selecteer een map die de tekstbestanden bevat die je wilt importeren. Zie screenshot:
4. Klik op OK. Vervolgens worden de tekstbestanden geïmporteerd in het actieve werkboek als afzonderlijke nieuwe werkbladen.
Importeer een tekstbestand naar de actieve cel met Kutools voor Excel
Als je één tekstbestand wilt importeren naar een specifieke cel of bereik, kun je de functie Bestand invoegen op cursorpositie van Kutools voor Excel gebruiken.
Na het gratis installeren van Kutools voor Excel, doe het volgende:
1. Selecteer een cel waar je het tekstbestand wilt importeren, en klik op Kutools Plus > Import/ Export > Bestand invoegen op cursorpositie. Zie screenshot:
2. Er verschijnt een dialoogvenster, klik op Bladeren om het Selecteer een bestand dat op de cursorpositie moet worden ingevoegd venster weer te geven, selecteer vervolgens Tekstbestanden uit de vervolgkeuzelijst, en kies vervolgens het tekstbestand dat je wilt importeren. Zie screenshot:
3. Klik op Openen > Ok, en het opgegeven tekstbestand wordt ingevoegd op de cursorpositie, zie screenshot:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen