Hur importerar jag flera textfiler från en mapp till ett kalkylblad?

För tillfällen har du här en mapp med flera textfiler. Vad du vill göra är att importera dessa textfiler till ett enda kalkylblad som nedan visas på skärmdumpen. Istället för att kopiera textfilerna en efter en, finns det några knep för att snabbt importera textfilerna från en mapp till ett ark?

Importera flera textfiler från en mapp till ett ark med VBA

Importera textfil till den aktiva cellen med Kutools för Excel

Importera flera textfiler från en mapp till ett ark med VBA

Här är en VBA-kod som kan hjälpa dig att importera alla textfiler från en specifik mapp till ett nytt ark.

1. Aktivera en arbetsbok som du vill importera textfiler och tryck på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, kopiera och klistra in nedanför VBA-koden till Modulerna fönster.

VBA: Importera flera textfiler från en mapp till ett ark

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. Tryck F5 för att visa en dialogruta och välj en mapp som innehåller textfiler du vill importera. Se skärmdump:

4. klick OK. Sedan har textfilerna importerats till den aktiva arbetsboken som ett nytt ark separat.

Importera textfil till den aktiva cellen med Kutools för Excel

Om du vill importera en textfil till en viss cell eller ett visst område kan du ansöka Kutools för ExcelÄr Infoga fil på markören verktyg.

Efter gratis installation Kutools för Excel, gör så här:

1. Välj en cell som du vill importera textfilen och klicka på Kutools Plus > Import Export > Infoga fil på markören. Se skärmdump:

2. Sedan öppnas en dialogruta, klicka Bläddra för att visa Välj en fil för att infogas i cellmarkörens positionsdialog, välj sedan Textfiler från listrutan och välj sedan textfilen du vill importera. Se skärmdump:

3. klick Öppen > Ok, och den angivna textfilen har infogats vid markörens position, se skärmdump: