Conas baisc a allmhairiú comhaid iolracha csv / text / xml in Excel?
In Excel, b’fhéidir go raibh tú ceangailte le leabhar oibre a shábháil mar chomhad csv, comhad téacs nó comhad xml, ach an ndearna tú iarracht riamh ilchomhaid csv / text / xml a iompórtáil ó fhillteán isteach i leabhar oibre nó i mbileog oibre? San Airteagal seo, tugaim isteach roinnt modhanna chun iad a bhaisc go tapa.
Iompórtáil comhaid téacs iolracha ó fhillteán i ngach bileog oibre de leabhar oibre le VBA
Iompórtáil ilchomhaid csv ó fhillteán i mbileog amháin le VBA
Iompórtáil ilchomhaid xml ó fhillteán i mbileog amháin le VBA
Iompórtáil nó comhcheangail ilchomhaid xml / csv i mbileog nó i leabhar oibre le Kutools for Excel 
Easpórtáil gach bileog mar csv / text / pdf chuig fillteán le Kutools for Excel
Iompórtáil comhaid téacs iolracha ó fhillteán i ngach bileog oibre de leabhar oibre le VBA
Chun comhaid téacs a iompórtáil ó fhillteán go leabhar oibre, is féidir leat thíos VBA a úsáid chun é a láimhseáil go tapa.
1. Cumasaigh leabhar oibre bán, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh an VBA chuig an Modúil fhuinneog.
VBA: Iompórtáil gach comhad téacs ó fhillteán i leabhar oibre
Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\*.txt")
Do While xFile <> ""
xCount = xCount + 1
Sheets(xCount).Select
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& xStrPath & "\" & xFile, Destination:=Range("A1"))
.Name = "a" & xCount
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
xFile = Dir
End With
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files txt", , "Kutools for Excel"
End Sub3. Brúigh F5 eochair nó Rith cnaipe chun an VBA a rith, agus roghnaigh fillteán ar mhaith leat na comhaid téacs a iompórtáil uaidh sa dialóg popping. Féach an pictiúr:
4. Agus cliceáil OK, agus iompórtáladh gach comhad téacs san fhillteán roghnaithe i mbileog oibre amháin den leabhar oibre gníomhach. Féach an pictiúr:
Comhcheangail go héasca bileoga iolracha / Leabhar Oibre in aon bhileog amháin nó Leabhar Oibre
|
| D’fhéadfadh go mbeadh bileoga nó leabhair oibre le chéile in aon bhileog amháin nó leabhar oibre in Excel, ach leis an Chomhcheangail feidhm i Kutools le haghaidh Excel, is féidir leat an iliomad bileoga / leabhar oibre a chumasc i mbileog amháin nó i leabhar oibre, freisin, is féidir leat na bileoga a chomhdhlúthú i gceann amháin le cúpla cad a tharlaíonn. Cliceáil le haghaidh lán-feiceáil 30 lá triail saor in aisce! |
 |
| Kutools le haghaidh Excel: le níos mó ná 300 breiseán handy Excel, saor in aisce chun iarracht a dhéanamh gan aon teorainn i 30 lá. |
Iompórtáil ilchomhaid csv ó fhillteán i mbileog amháin le VBA
Chun na comhaid csv uile a iompórtáil, cruthaítear fillteán i mbileog amháin, is féidir leat úsáid a bhaint as cód VBA thíos.
1. Cumasaigh bileog oibre bán, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh faoi bhun VBA isteach sa nua Modúil fhuinneog.
VBA: Iompórtáil comhaid csv ó fhillteán i mbileog oibre amháin
Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Columns(1).Insert xlShiftToRight
Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
xWb.Close False
xFile = Dir
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub3. Brúigh F5 eochair nó cliceáil Rith cnaipe chun an VBA a fhorghníomhú, agus tagann dialóg amach chun fillteán a roghnú ar mhaith leat gach comhad csv a iompórtáil uaidh. Féach an pictiúr:
4. cliceáil OK, agus tagann dialóg amach le cur i gcuimhne duit má ghlanann tú ábhar na bileoige oibre gníomhaí sula ndéantar í a iompórtáil, cliceáil anseo Is ea. Féach an pictiúr:
Tar éis cliceáil Is ea, iompórtáiltear gach comhad csv san fhillteán roghnaithe isteach sa bhileog reatha, agus cuireann siad sonraí ó Cholún A ar dheis. Féach an pictiúr:
Leid: Más mian leat comhaid csv a chur go cothrománach i mbileog oibre, is féidir leat iad a úsáid faoi bhun VBA.
Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Set xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
xSht.UsedRange.Clear
xCount = 1
Else
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
End If
Application.ScreenUpdating = False
xFile = Dir(xStrPath & "\" & "*.csv")
Do While xFile <> ""
Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
Rows(1).Insert xlShiftDown
Range("A1") = ActiveSheet.Name
ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
xWb.Close False
xFile = Dir
xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
Loop
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox "no files csv", , "Kutools for Excel"
End Sub 
Iompórtáil ilchomhaid xml ó fhillteán i mbileog amháin le VBA
Más mian leat gach comhad XML a iompórtáil ó fhillteán i mbileog amháin, is féidir leat úsáid a bhaint as cód VBA thíos.
1. Roghnaigh bileog bán a theastaíonn uait na sonraí iompórtáilte a chur ann, agus brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, greamaigh cód VBA isteach sa Modúil fhuinneog.
VBA: Iompórtáil comhaid XML ó fhillteán i mbileog oibre.
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrHandler
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
Application.ScreenUpdating = False
Set xSWb = ThisWorkbook
xCount = 1
xFile = Dir(xStrPath & "\*.xml")
Do While xFile <> ""
Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
xWb.Close False
xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
xFile = Dir()
Loop
Application.ScreenUpdating = True
xSWb.Save
Exit Sub
ErrHandler:
MsgBox "no files xml", , "Kutools for Excel"
End Sub3. cliceáil Rith cnaipe nó F5 eochair chun an VBA a rith, agus fillteán a roghnú sa dialóg popping, féach an scáileán:
4. cliceáil OK, agus iompórtáiltear na comhaid XML go léir san fhillteán roghnaithe isteach sa bhileog ghníomhach.
Iompórtáil nó comhcheangail ilchomhaid xml / csv i mbileog nó i leabhar oibre le Kutools for Excel
Mura bhfuil tú eolach ar VBA, ná bíodh imní ort, seo liom uirlis áisiúil a thabhairt isteach - Kutools le haghaidh Excel duitse. Leis an cumhachtach Chomhcheangail fóntais, is féidir leat comhaid xml iolracha nó comhaid csv a chomhcheangal go tapa i leabhar oibre amháin nó i mbileog Excel amháin.
| Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. | ||
Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil:Download Kutools Íoslódáil saor in aisce do Excel Anois!)
1. Excel Gníomhach, agus cliceáil Kutools Plus > Chomhcheangail. Féach an pictiúr ：
2. Agus sa céim 1 de Chomhcheangail dialóg, roghnaigh rogha deighilte amháin de réir mar is gá duit. Féach an pictiúr:
3. cliceáil Ar Aghaidh chun dul go dtí céim 2 den Chomhcheangail, Cliceáil Cuir chun comhaid ó fhillteáin nó comhaid éagsúla a chur ó fhillteán amháin go Leabhar Oibre liosta, agus freisin is féidir leat na bileoga a theastaíonn uait a chomhcheangal a shonrú Bileog Oibre liosta den roinn cheart. Féach an pictiúr:
4. cliceáil Ar Aghaidh go dtí an chéim dheireanach amháin de Chomhcheangail, agus is féidir leat na roghanna teaglaim a shonrú.
5. cliceáil Críochnaigh, tagann dialóg amach le cur i gcuimhne duit suíomh a roghnú chun an toradh comhcheangailte nua a shábháil. Féach an pictiúr:
6. cliceáil Sábháil. Tá na bileoga breise uile curtha le chéile i mbileog aonair nua.
Leid: Le Chomhcheangail, is féidir leat iolraí a chur le chéile freisin Comhaid CSV foirmigh fillteáin iolracha nó fillteán amháin i mbileog amháin nó i leabhar oibre.
Comhcheangail Ilchomhaid XML / CVS in aon Bhileog / Leabhar Oibre
Easpórtáil gach bileog mar csv / text / pdf chuig fillteán le Kutools for Excel
Más mian leat gach bileog a easpórtáil mar chomhad csv / text / pdf chuig fillteán, Kutools le haghaidh Excel'S Leabhar Oibre Scoilt is féidir le fóntais fabhar a dhéanamh duitse.
Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:
1. Cumasaigh an leabhar oibre a theastaíonn uait a bhileoga oibre a easpórtáil, agus cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt. Féach an pictiúr:
2. Sa Leabhar Oibre Scoilt dialóg, is féidir leat ainmneacha na mbileog a theastaíonn uait a easpórtáil a sheiceáil, de réir réamhshocraithe déantar na bileoga go léir a sheiceáil, agus a sheiceáil Sonraigh formáid sábháil agus roghnaigh an fhormáid comhaid a theastaíonn uait a shábháil ón liosta anuas. Féach an pictiúr:
3. cliceáil Scoilt agus fillteán a roghnú chun na comhaid scoilte sa Brabhsáil le haghaidh Fillteán dialóg, féach an scáileán:
4. cliceáil OK, anois onnmhairítear na bileoga seiceáilte go léir mar fhormáid comhaid nua san fhillteán roghnaithe.
Easpórtáil gach Bileog mar Chomhad Aonair XML / CSV / TXT / PDF
Ailt Choibhneasta:
- Conas hipearnasc a thiontú go gnáth-théacs in Excel?
- Conas uimhir deachúil a thiontú go huimhir dhénártha / ochtáin / heicsidheachúlach nó a mhalairt in Excel?
- Conas ráta malairte beo a chur isteach in Excel?
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
