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
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:
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.
Rhannwch lyfr gwaith i ffeiliau testun / pdf / csv / xlsx lluosog 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 :( Am ddim Lawrlwythwch 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.
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.
Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!