Hogyan importálhat több szövegfájlt több lapra?

Tegyük fel, hogy a számítógép mappájában több szövegfájl található, most ezeket a szöveges fájlokat importálni szeretné egy Excel munkafüzetbe, és mindegyik szövegfájlt külön munkalapokra kell helyezni. Az egyes szöveges fájlok egyesével történő másolása és beillesztése a munkalapra sok időt pazarol, itt néhány trükköt tudok mondani Önnek a probléma megoldására.

Több szöveges fájlt importálhat a VBA kóddal ellátott munkalapokra

Osszon fel egy munkafüzetet több különálló szöveges / pdf / csv / xlsx fájlra a Kutools for Excel segítségével

Több szöveges fájlt importálhat a VBA kóddal ellátott munkalapokra

A következő VBA-kód segíthet az egyes szövegfájlok külön lapokba történő importálásában egy új munkafüzetben egyszerre, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excel programban a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Több szövegfájl importálása külön munkalapokra:

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. A fenti kód beillesztése után nyomja meg a gombot F5 gombot a kód futtatásához, és a felbukkanó ablakban adja meg a szöveges fájlokat tartalmazó mappát, és lépjen a mappába, hogy kiválassza a munkalapokra importálni kívánt szöveges fájlokat, lásd a képernyőképet:

4. Ezután kattintson Nyisd ki gombra kattintva az összes kijelölt szövegfájlt importálta egy új munkafüzetbe, és mindegyik fájl külön-külön egy munkalapon található.

5. Végül szükség szerint mentheti az új munkafüzetet.

Osszon fel egy munkafüzetet több különálló szöveges / pdf / csv / xlsx fájlra a Kutools for Excel segítségével

Előfordulhat, hogy a fenti feladattal ellentétes műveleteket kell végrehajtania, vagyis fel kell osztania egy munkafüzetet a szövegfájlok elválasztására. Kutools az Excel számára'S Felosztott munkafüzet segédprogram segítségével gyorsan és egyszerűen megoldhatja ezt a munkát.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket :( Ingyenesen töltse le a Kutools for Excel programot most! )

1. Aktiválja a több szövegfájlra bontani kívánt munkafüzetet.

2. Kattints Vállalkozás > Munkafüzet > Felosztott munkafüzet, lásd a képernyőképet:

3. Az Felosztott munkafüzet párbeszédablak:

(1.) Jelölje be a felosztani kívánt munkalapokat.

(2.) Ellenőrizze Adja meg a mentési formátumot, majd válassza ki a menteni kívánt fájlformátumot, például kiválaszthatja txt, csv, pdf, xlsx or xls fájlformátum, amire szüksége van.

(3.) Ezután kattintson Hasított gombra, a következő prompt mezőben adjon meg egy mappát a külön fájlok kiadásához.

4. Ezután kattintson OK gombot, és a kiválasztott munkalapok fel lesznek osztva, és a kívánt mappába kerülnek a kívánt formátumban.

Ingyenesen töltse le a Kutools for Excel programot most!