Note: The other languages of the website are Google-translated. Back to English

Sut i fewnforio ffeiliau testun lluosog i ddalenni lluosog?

Gan dybio, mae yna nifer o ffeiliau testun mewn ffolder o'ch cyfrifiadur, nawr, rydych chi am fewnforio'r ffeiliau testun hyn i lyfr gwaith Excel, a gosod pob ffeil testun mewn taflenni gwaith ar wahân. Bydd copïo a gludo pob ffeil testun i'r daflen waith fesul un yn gwastraffu llawer o amser, yma, gallaf siarad am rai triciau i chi ddatrys y broblem hon.

Mewngludo ffeiliau testun lluosog i wahanu taflenni gwaith gyda chod VBA

Rhannwch lyfr gwaith i sawl ffeil testun / pdf / csv / xlsx ar wahân gyda Kutools ar gyfer Excel


swigen dde glas saeth Mewngludo ffeiliau testun lluosog i wahanu taflenni gwaith gyda chod VBA

Efallai y bydd y cod VBA canlynol yn eich helpu i fewnforio pob ffeil testun i daflenni ar wahân mewn llyfr gwaith newydd ar unwaith, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi yn Excel i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnforio ffeiliau testun lluosog i daflenni gwaith ar wahân:

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. Ar ôl pasio'r cod uchod, pwyswch F5 allwedd i redeg y cod hwn, ac yn y ffenestr popped out, nodwch y ffolder sy'n cynnwys y ffeiliau testun, ewch i'r ffolder i ddewis y ffeiliau testun rydych chi am eu mewnforio i'r taflenni gwaith, gweler y screenshot:

mewnforio ffeiliau testun lluosog 1

4. Yna cliciwch agored botwm, mae'r holl ffeiliau testun a ddewiswyd wedi'u mewnforio i lyfr gwaith newydd a phob ffeil wedi'i lleoli mewn un daflen waith yn unigol.

5. O'r diwedd, gallwch arbed y llyfr gwaith newydd yn ôl yr angen.


swigen dde glas saeth Rhannwch lyfr gwaith i sawl ffeil testun / pdf / csv / xlsx ar wahân gyda Kutools ar gyfer Excel

Weithiau, efallai y bydd angen i chi wneud rhai gweithrediadau cyferbyniol â'r dasg uchod, hynny yw, mae angen i chi rannu llyfr gwaith i wahanu ffeiliau testun. Kutools ar gyfer Excel'S Llyfr Gwaith Hollti gall cyfleustodau eich helpu chi i ddatrys y swydd hon yn gyflym ac yn hawdd.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr! )

1. Gweithredwch y llyfr gwaith rydych chi am ei rannu i ffeiliau testun lluosog.

2. Cliciwch Menter > Llyfr Gwaith > Llyfr Gwaith Hollti, gweler y screenshot:

3. Yn y Llyfr Gwaith Hollti blwch deialog:

(1.) Gwiriwch y taflenni gwaith rydych chi am eu rhannu.

(2.) Gwiriwch Nodwch fformat arbed, yna dewiswch y fformat ffeil rydych chi am ei arbed, er enghraifft, gallwch chi ddewis txt, csv, pdf, xlsx or xls fformat ffeil yn ôl yr angen.

(3.) Yna cliciwch Hollti botwm, yn y blwch prydlon canlynol nodwch ffolder i allbwn y ffeiliau ar wahân.

rhagori ar flwch deialog llyfr gwaith rhaniad ychwanegion 2 rhagori ar leoliad dewis ychwanegiad

4. Yna cliciwch OK botwm, a bydd y taflenni gwaith a ddewiswyd gennych yn cael eu rhannu a'u cadw i'ch ffolder a ddymunir gyda'r fformat yn ôl yr angen.

rhagori ar ffeiliau ychwanegu ar wahân

Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y côd Dilyn Ond Nid oedd Gofod yn Amffinio. Turned Tab:=Gwir, Gofod:=Gwir, ond ni weithiodd. Fformat ffeil fy Txt yw- ALUMINI16MAYFUT 09-05-2016 10:00:00 106.0000 106.0000 105.2000 105.3500 104 Unrhyw Ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod ar gyfer "Mewnforio ffeiliau testun lluosog i daflenni gwaith ar wahân gyda chod VBA" yn gweithio i mi, OND yn torri i ffwrdd data pob cell ar 255 nod. Rwy'n meddwl ei fod yn rhagosodedig i ddata celloedd GeneralFormat, ond mae angen i mi fod yn TextFormat. Yn anffodus ni allaf ddarganfod sut i addasu'r cod i drwsio hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl agor ffeiliau txt Sequencially lluosog mewn un ddalen ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod defnyddiol iawn hwn. Mae gen i gwestiwn serch hynny. Yr hyn y gallaf ei newid i drosi'r datatype o Gyffredinol i Destun gan mai dim ond i fformat Cyffredinol y mae'n mewnforio data ar hyn o bryd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae newid y macros hwn i arddangos ffeil testun sydd wedi'i chadw fel UTF-8 neu mewn geiriau eraill gan ddefnyddio Platform = 65001, Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod hwn mae hyn yn gweithio'n wych ... rydw i eisiau uno'r holl ddalen a ddewiswyd yn un ddalen os yw hynny'n bosibl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch , ffeiliau testun lluosog i wahanol daflenni gwaith cod wedi gweithio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpodd y cod hwn fi yn union i ddatrys fy mhroblem, diolch am y cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth fyddai angen i mi ei newid yn y cod i wneud iddo beidio â'u hagor mewn llyfr gwaith newydd?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir