Conas comhaid téacs iolracha a iompórtáil chuig ilbhileoga?
Ag ceapadh, tá comhaid téacs iolracha i bhfillteán de do ríomhaire, anois, ba mhaith leat na comhaid téacs seo a iompórtáil chuig leabhar oibre Excel, agus gach comhad téacs a chur i mbileoga oibre ar leithligh. Cuirfidh cóipeáil agus greamú gach comhad téacs chuig an mbileog oibre ceann ar cheann amú go leor ama, anseo, is féidir liom labhairt faoi roinnt cleasanna chun an fhadhb seo a réiteach.
Iompórtáil comhaid téacs iolracha chun bileoga oibre a scaradh le cód VBA
Roinn leabhar oibre le go leor comhaid téacs / pdf / csv / xlsx ar leithligh le Kutools for Excel
Iompórtáil comhaid téacs iolracha chun bileoga oibre a scaradh le cód VBA
D’fhéadfadh an cód VBA seo a leanas cabhrú leat gach comhad téacs a iompórtáil isteach i mbileoga ar leithligh laistigh de leabhar oibre nua ag an am céanna, déan mar a leanas:
1. Coinnigh síos an ALT + F11 eochracha in Excel chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Iompórtáil comhaid téacs iolracha chuig bileoga oibre ar leithligh:
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. Tar éis duit an cód thuas a ghreamú, brúigh F5 eochair chun an cód seo a rith, agus san fhuinneog popped out, sonraigh an fillteán ina bhfuil na comhaid téacs, téigh chuig an bhfillteán chun na comhaid téacs a theastaíonn uait a iompórtáil chuig na bileoga oibre a roghnú, féach an scáileán:
4. Ansin cliceáil Oscail cnaipe, iompórtáladh na comhaid téacs roghnaithe go léir i leabhar oibre nua agus gach comhad suite i mbileog oibre amháin ina n-aonar.
5. Faoi dheireadh, is féidir leat an leabhar oibre nua a shábháil de réir mar is gá duit.
Roinn leabhar oibre le go leor comhaid téacs / pdf / csv / xlsx ar leithligh le Kutools for Excel
Uaireanta, b’fhéidir go mbeidh ort roinnt oibríochtaí contrártha a dhéanamh leis an tasc thuas, is é sin le rá, ní mór duit leabhar oibre a roinnt chun comhaid téacs a scaradh. Kutools le haghaidh Excel'S Leabhar Oibre Scoilt is féidir le fóntais cabhrú leat an post seo a réiteach go tapa agus go héasca.
Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil :( Íoslódáil saor in aisce Kutools le haghaidh Excel Anois! )
1. Gníomhachtaigh an leabhar oibre a theastaíonn uait a roinnt ar iliomad comhad téacs.
2. Cliceáil Fiontar > Leabhar Oibre > Leabhar Oibre Scoilt, féach ar an scáileán:
3. Sa an Leabhar Oibre Scoilt bosca dialóige:
(1.) Seiceáil na bileoga oibre a theastaíonn uait a roinnt.
(2.) Seiceáil Sonraigh formáid sábháil, ansin roghnaigh an fhormáid comhaid a theastaíonn uait a shábháil, mar shampla, is féidir leat a roghnú txt, csv, pdf, XLSX or xls formáid comhaid de réir mar is gá duit.
(3.) Ansin cliceáil Scoilt cnaipe, sa bhosca pras seo a leanas sonraigh fillteán chun na comhaid ar leithligh a aschur.
4. Ansin cliceáil OK cnaipe, agus roinnfear do bhileoga oibre roghnaithe agus sábháil iad chuig an bhfillteán atá uait leis an bhformáid de réir mar is gá duit.
Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!