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 Sub

3. 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: