Hur importerar jag flera textfiler till flera ark?

Om du antar att det finns flera textfiler i en mapp på din dator, nu vill du importera dessa textfiler till en Excel-arbetsbok och placera varje textfil i separata kalkylblad. Att kopiera och klistra in varje textfil till ett kalkylblad en efter en slösar mycket tid; här ska jag diskutera några knep för att lösa det här problemet.

Importera flera textfiler till separata kalkylblad med VBA-kod

Dela en arbetsbok till flera separata text-/pdf-/csv-/xlsx-filer med Kutools for Excel

Importera flera textfiler till separata kalkylblad med VBA-kod

Följande VBA-kod kan hjälpa dig att importera varje textfil till separata ark i en ny arbetsbok samtidigt, gör så här:

1. Håll ner ALT + F11 tangenter i Excel för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Importera flera textfiler till separata kalkylblad:

Sub CombineTextFiles()
'updateby Extendoffice
    Dim xFilesToOpen As Variant
    Dim I As Integer
    Dim xWb As Workbook
    Dim xTempWb As Workbook
    Dim xDelimiter As String
    Dim xScreen As Boolean
    On Error GoTo ErrHandler
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xDelimiter = "|"
    xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
    If TypeName(xFilesToOpen) = "Boolean" Then
        MsgBox "No files were selected", , "Kutools for Excel"
        GoTo ExitHandler
    End If
    I = 1
    Set xTempWb = Workbooks.Open(xFilesToOpen(I))
    xTempWb.Sheets(1).Copy
    Set xWb = Application.ActiveWorkbook
    xTempWb.Close False
    xWb.Worksheets(I).Columns("A:A").TextToColumns _
      Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, _
      Tab:=False, Semicolon:=False, _
      Comma:=False, Space:=False, _
      Other:=True, OtherChar:="|"
    Do While I < UBound(xFilesToOpen)
        I = I + 1
        Set xTempWb = Workbooks.Open(xFilesToOpen(I))
        With xWb
            xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
            .Worksheets(I).Columns("A:A").TextToColumns _
              Destination:=Range("A1"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, _
              ConsecutiveDelimiter:=False, _
              Tab:=False, Semicolon:=False, _
              Comma:=False, Space:=False, _
              Other:=True, OtherChar:=xDelimiter
        End With
    Loop
ExitHandler:
    Application.ScreenUpdating = xScreen
    Set xWb = Nothing
    Set xTempWb = Nothing
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "Kutools for Excel"
    Resume ExitHandler
End Sub

3. Efter att ha klistrat in ovanstående kod, tryck på F5 nyckel för att köra den här koden, och i det poppade fönstret, ange mappen som innehåller textfilerna, gå till mappen för att välja textfilerna du vill importera till kalkylbladet, se skärmdump:

4. Klicka sedan Öppet knappen har alla markerade textfiler importerats till en ny arbetsbok och varje fil finns i ett kalkylblad individuellt.

5. Äntligen kan du spara den nya arbetsboken efter behov.

Dela en arbetsbok till flera separata text-/pdf-/csv-/xlsx-filer med Kutools for Excel

Ibland kan du behöva göra några motsatta operationer av ovanstående uppgift, det vill säga du måste dela en arbetsbok för att separera textfiler. Kutools for ExcelÄr Dela arbetsbok verktyget kan hjälpa dig att lösa detta jobb snabbt och enkelt.

När du har installerat Kutools for Excel, gör så här:

1. Aktivera arbetsboken som du vill dela till flera textfiler.

2. Klicka Företag > Arbetsbok > Dela arbetsbok, se skärmdump:

3. I Dela arbetsbok dialog ruta:

(1.) Kontrollera kalkylblad som du vill dela upp.

(2.) Kontrollera Ange spara format, välj sedan filformatet som du vill spara, till exempel kan du välja Text, csv, pdf, xlsx or XLS filformat som du behöver.

(3.) Klicka sedan på Split , i följande rutan anger du en mapp för att mata ut de separata filerna.

4. Klicka sedan OK knappen och dina valda kalkylblad delas upp och sparas i önskad mapp med det format som du behöver.