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 comhaid xml/csv iolracha isteach 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 for Excel, is féidir leat an iliomad leathán/leabhrán oibre a chumasc isteach i mbileog amháin nó i leabhar oibre, freisin, is féidir leat na bileoga a chomhdhlúthú i gceann amháin trí roinnt cad a tharlaíonn. Cliceáil le haghaidh lán-feiceáil 30 lá triail saor in aisce! |
 |
| Kutools for 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 comhaid xml/csv iolracha isteach 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 for 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 for 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:（ Íoslódáil saor in aisce Kutools for 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 for 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?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools for Excel, agus Éifeachtúlacht Taithí Cosúil Riamh Roimhe. Kutools for Excel Tairiscintí os cionn 300 Ardghné chun Táirgiúlacht a Mhéadú agus Am a Shábháil. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre 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á!
