The følgende VBA-kode kan hjelpe deg med å importere hver tekstfil i separate ark i en ny arbeidsbok på en gang, kan du gjøre som følger:?
1. Hold nede ALT + F11-tastene i Excel for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Import flere tekstfiler for å skille regneark:
Sub CombineTextFiles () 'updateby Extendoffice 20151015 Dim xFilesToOpen As Variant Dim Jeg As Integer Dim XWB Som arbeidsbok Dim xTempWb Som arbeidsbok Dim xDelimiter As String Dim xScreen Som boolsk On Error GoTo ErrHandler xScreen = Application.ScreenUpdating Application.ScreenUpdating = False xDelimiter = "|" xFilesToOpen = Application.GetOpenFilename ("Tekstfiler (* .txt), * .txt", "Kutools for Excel", eller sann) Hvis Typename (xFilesToOpen) = "boolsk" Så MsgBox "Ingen filer ble valgt", " 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 Falske xWb.Worksheets (I) .Columns ( "A: A".) TextToColumns _ Destinasjon: = Range ("A1"), datatype: = xlDelimited, _ TextQualifier: = xlDoubleQuote, _ ConsecutiveDelimiter: = False, _ Tab: = False, Semicolon: = False, _ Comma: = False, Space: = False, _ Annet: = True, OtherChar: = "|" Gjør Mens jeg < UBound (xFilesToOpen) I = I + 1 Set xTempWb = Workbooks.Open (xFilesToOpen (I)) Med XWB xTempWb.Sheets (1) .Kjør etter: = Sheets (.Sheets.Count) .Worksheets (I) .Columns (. "A: A".) TextToColumns _ Destinasjon: = Range ("A1"), datatype: = xlDelimited, _ TextQualifier: = xlDoubleQuote, _ ConsecutiveDelimiter: = False, _ Tab: = False, Semicolon: = False, _ Comma: = False, Space: = False, _ Annet: = True, OtherChar: = xDelimiter End Med LoopExitHandler: Application.ScreenUpdating = xScreen Set XWB = Ingenting Set xTempWb = Nothing Exit SubErrHandler: MsgBox Err.Description, "Kutools for Excel" Resume ExitHandlerEnd Sub3. Når du har limt koden ovenfor, trykk F5-tasten kjøre denne koden, og i den spratt ut vinduet, spesifiser mappen som inneholder tekstfiler, gå til mappen for å velge tekstfilene du vil importere til regneark, se skjermbilde :
4. Klikk deretter på Åpne-knappen, har alle de valgte tekstfiler er importert til en ny arbeidsbok og hver fil som ligger i et regneark individuelt.
5. Endelig kan du lagre den nye arbeidsboken som du trenger. Anmeldelser