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

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 smaoineamh maith3

Easpórtáil gach bileog mar csv / text / pdf chuig fillteán le Kutools for Excelsmaoineamh maith3


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 Sub

3. 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:

doc allmhairiú téacs csv iolrach xml 1

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:

doc allmhairiú téacs csv iolrach xml 2doc allmhairiú téacs csv iolrach xml 3

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!
bileoga a chur le chéile
 
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á.

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 Sub

3. 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:

doc allmhairiú téacs csv iolrach xml 4

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:

doc allmhairiú téacs csv iolrach xml 5

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:

doc allmhairiú téacs csv iolrach xml 6doc allmhairiú téacs csv iolrach xml 7

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 

doc allmhairiú téacs csv iolrach xml 8


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 Sub

3. 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:

doc allmhairiú téacs csv iolrach xml 9

4. cliceáil OK, agus iompórtáiltear na comhaid XML go léir san fhillteán roghnaithe isteach sa bhileog ghníomhach.


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 :
doc le chéile 1

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:
doc le chéile 2

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:
comhcheanglaíonn doc kutools bileoga 3

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ú.
comhcheanglaíonn doc kutools bileoga 4

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:
doc le chéile 5

6. cliceáil Sábháil. Tá na bileoga breise uile curtha le chéile i mbileog aonair nua.
doc le chéile 6

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.


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:

doc allmhairiú téacs csv iolrach xml 10

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:

doc allmhairiú téacs csv iolrach xml 11

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:

doc allmhairiú téacs csv iolrach xml 12

4. cliceáil OK, anois onnmhairítear na bileoga seiceáilte go léir mar fhormáid comhaid nua san fhillteán roghnaithe.


Ailt Choibhneasta:


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (36)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, go raibh míle maith agat as na samplaí cód sin! Is é an chéad cheann (VBA: Iompórtáil gach comhad téacs ó fhillteán isteach i leabhar oibre) beagnach díreach cad is gá dom. Ba mhaith liom, áfach, na comhaid atá le hiompórtáil a roghnú agus gan na comhaid téacs go léir a allmhairiú go huathoibríoch in aon fhillteán ar leith. Ba mhaith liom freisin go mbeadh an t-ábhar atá ar mo spriocbhileoga fágtha forscríofa ag ábhar na gcomhad téacs. (Leis an gcód thuas, aistrítear an t-ábhar atá ann faoi láthair go dtí an taobh dheis in ionad é a athsholáthar.) Conas a dhéanfaidh mé é sin? Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom a thuiscint faoin gcód VBA le haghaidh "Iompórtáil Ilchomhaid Xml Ó Fhillteán I mBileog Aonair Le VBA". 1. Cén fáth a bhfuil gá le 2 leabhar saothair in ionad 1? 2. Tá sé ag tógáil roinnt ama chun go leor comhaid xml a luchtú i excel, mar sin an bhfuil cód níos éifeachtaí ann? Toisc go dtuigim cathain a ritheadh ​​do chód, cruthaítear go leor leabhar oibre VBA ba chúis leis an moilliú. Bheinn fíor bhuíoch dá bhféadann tú cabhrú liom a thuiscint!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Faraoir, níor thuig mé an chéad cheist amháin, agus faoin dara ceann, an cód níos éifeachtaí, níor aimsigh mé é, má tá a fhios agat, fág nóta dom, go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom tuiscint a fháil ar an gcód VBA le haghaidh "Il-chomhaid .txt a Iompórtáil ó fhillteán go leathán amháin le VBA" de réir an chéad ró eile atá ar fáil (ní cothrománach). Cabhraigh le do thoil, práinneach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, más mian leat gach comhad txt a allmhairiú ó fhillteán amháin go bileog amháin, is féidir leat an cód vba thuas a úsáid chun comhaid txt a allmhairiú go leabhar oibre ar dtús, ansin cuir i bhfeidhm Kutools le haghaidh Excel's Comhcheangail Bileoga Oibre gné chun gach bileog de leabhar oibre a chomhcheangal go bileog amháin, ansin na comhaid txt i mbileog. Tá súil agam go gcabhraíonn sé leat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is í an fhadhb atá leis seo ná nach gceadaíonn an t-ordú VBA ná Kutools na comhaid csv a allmhairiú le formáidiú cód carachtair. Is é an réamhualach an iarthair. Ní mór dom na comhaid csv go léir a iompórtáil mar Unicode-8
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
níor oibrigh an cód le haghaidh thiontú ó chomhaid txt domsa.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm nach n-oibríonn an t-alt seo duit. An bhféadfá cur síos a dhéanamh ar an bhfadhb? Cad a tharlóidh agus an cód á rith? Agus cén córas a oibríonn tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Oibríonn an cód "Iompórtáil comhaid csv ó fhillteán isteach i mbileog oibre amháin", domsa! Ach ní oibríonn an cód seo do chomhad .txt folamh. An bhfuil aon bhealach a choinneáil freisin ar na comhaid folamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm, níl a fhios agam cén fáth gur gá txt.file folamh a iompórtáil ~ Just a cuir isteach sraitheanna bána chun an t-ábhar a scaradh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mike: "níor oibrigh an cód le haghaidh thiontú ó chomhaid txt domsa."

Bhí na macra earráidí céanna agam. Na macra earráidí amach má tá tú comhaid txt níos mó a oscailt ná bileoga oibre i do leabhar oibre (réamhshocraithe 3).
D'éirigh liom é a shocrú tríd an méid seo a leanas a chur leis díreach sula dtéann an lúb amach ionas go gcruthóidh an macra bileog nua tar éis an chuid eile
ActiveWorkbook.Sheets.Add After:=Bileoga Oibre(Worksheets.Count)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Sead, D'oibrigh sé seo go foirfe dom a allmhairiú comhaid téacs iolracha. Go raibh maith agat.

An bhfuil a fhios agat an bhfuil bealach ann chun na hainmneacha comhaid a tharraingt? Ba mhaith liom ainmneacha na gcomhad téacs a chóipeáil isteach i gcluaisíní gach leatháin excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go hiomlán iontach! Rinne mé iarracht gach comhad csv a oscailt i mbileog oibre amháin agus d'oibrigh sé go hálainn. Go raibh míle maith agat, i ndáiríre!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, rinne mé iarracht ag rith an cód le haghaidh .xml agus ní raibh an chuma a bheith ag obair mar a fuair mé an teachtaireacht "gan comhaid xml". Conas é seo a shocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Beidh sé pop teachtaireacht "gan comhaid xml" cé nach bhfuil san fhillteán roghnaithe na comhaid xml. Is féidir leat an fillteán ceart a roghnú ina bhfuil comhaid xml sa dialóg popping tar éis an cód a rith chun iad a allmhairiú chuig an mbileog ghníomhach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh sé! Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a rá go bhfuil tú ag iarraidh an comhad txt a bhfuil tú ag súil leis?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Rendy, ar mhaith leat gach txt a iompórtáil go leathán amháin nó gach txt chuig gach bileog?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá cód agam chun txts a iompórtáil go leatháin gach txt do gach bileog, ach ba mhaith liom gach txt a iompórtáil agus a ainm go leathán , is éard atá i gceist agam gach bileog iompórtáilte a athainmniú agus ainm an txt a bhfuil an códchomhad ceangailte .. Ba mhaith liom é seo a chur in eagar comhad le cód a chur leis chun bileoga a athainmniú le hainm txts ... go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá cód agam chun txts a iompórtáil go leatháin gach txt le gach bileog, ach ba mhaith liom gach txt a iompórtáil agus a ainm go leathán , is éard atá i gceist agam gach bileog iompórtáilte a athainmniú le hainm an txt an códchomhad ceangailte .. go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Ramy, zahran, is féidir leat triail a bhaint as cód thíos ar féidir na comhaid téacs a allmhairiú agus ainm na bileoige a athainmniú go dtí an t-ainm comhaid téacs.
Fo-LuchtúPipe Comhaid Teorainneacha()
'UpdatebyExtendoffice20180925
Dim xStrPath Mar Teaghrán
Dim xFileDialog Mar FileDialog
Dim xFile Mar Teaghrán
Dim xComhair chomh fada
Dim xWS Mar Bhileog Oibre

Ar Earráid TéighTo ErrHandler
Socraigh xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect=Bréagach
xFileDialog.title = "Roghnaigh fillteán [Kutools le haghaidh Excel]"
Má tá xFileDialog.Show = -1 Ansin
xStrPath = xFileDialog.SelectedItems(1)
Deireadh Má
Má tá xStrPath="" Ansin Scoir Fo
Application.ScreenUpdating = Bréagach
xFile = Dir(xStrPath & "\*.txt")
Déan Cé go bhfuil xFile <>"""
xCount = xCount+1
Socraigh xWS = Bileoga(xCount)
xWS.Roghnaigh
xWS.Name = "TEXT" & Ar Chlé(xFile, Len(xFile) - 4)
Le ActiveSheet.QueryTables.Add(Ceangail:="TEXT;" _
&xStrPath & "\" &xFile, Ceann Scríbe:=Raon("A1"))
.Name = "a" &xCount
.FieldNames = Fíor
.RowNumbers = Bréagach
.FillAdjacentFormulas = Bréagach
.PreserveFormatting = Fíor
.RefreshOnFileOpen = Bréagach
.RefreshStyle = xlInsertDeleteCells
.SavePassword = Bréagach
.SaveData = Fíor
.AdjustColumnWidth = Fíor
.RefreshPeriod = 0
.TextFilePromptOnRefresh = Bréagach
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = Bréagach
.TextFileTabDelimiter = Bréagach
.TextFileSemicolonDelimiter = Bréagach
.TextFileCommaDelimiter = Bréagach
.TextFileSpaceDelimiter = Bréagach
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Eagar(1, 1, 1)
.TextFileTrailingMinusNumbers = Fíor
.Refresh BackgroundQuery:=Bréagach
xFile = Dir
Deireadh Le
Lúb
Feidhmchlár.ScreenUpdating = Fíor
Fo-Scoir
Earráid:
MsgBox "gan comhaid txt", , "Kutools le haghaidh Excel"
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Bhain mé úsáid as an gcód chun comhaid XML iolracha a chumasc i gceann amháin, ach ar an drochuair d’éirigh na colúin as a riocht. Bhí an fhormáid chéanna ag na 5 chomhad a bhí á gcumasc. An bhfuil aon nós ann é seo a shocrú? Bhí mé ag smaoineamh freisin an raibh bealach ann chun fáil réidh leis na ceanntásca a dhéantar a mhacasamhlú nuair a dhéantar na comhaid a chumasc. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat. Ba mhór an chabhair é an suíomh seo. Tá ceist amháin agam nach féidir liom a dhéanamh amach. Táim ag iarraidh comhaid csv iolracha a iompórtáil isteach i mbileoga ar leith excel in excel agus athainmnítear gach bileog tar éis ainm comhaid an chomhaid csv. Tá a fhios agam go raibh sé seo clúdaithe thíos le haghaidh comhad txt ach táim ag obair le comhaid csv. Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit - tá mé ag baint úsáide as gach comhad csv a allmhairiú isteach i gcomhad amháin atá liostaithe thuas "Iompórtáil Ilchomhaid Csv Ó Fhillteán I mBileog Singil Le VBA" - ba mhaith liom an fillteán a bhailíonn sé na sonraí a shainiú gan a roghnú de láimh é. An féidir é seo a dhéanamh? go raibh maith agat - SW.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Scott W, fuair mé amach go bhféadfadh cód VBA cabhrú leat.
Rogha Sonraithe

Fo-IompórtáilCSVsWithReference()
‘Údar: Jerry Beaucaire
‘Dáta: 10/16/2010
'Achoimre: Iompórtáil gach comhad CSV ó fhillteán isteach i leathán amháin
' réimse a chur leis i gcolún A ag liostú na gcomhadainmneacha CSV

Dim wbCSV Mar Leabhar Oibre
Dim wsMstr Mar Bhileog Oibre: Socraigh wsMstr = ThisWorkbook.Sheets("Bileog1")
Dim fPath As Teaghrán: fPath = " C:\Users\DT168\Desktop\Fillteán nua\" 'conair chuig comhaid CSV, cuir an \ deiridh san áireamh.
Dim fCSV Mar Teaghrán

Má tá MsgBox("Glan an leathán reatha roimh iompórtáil?", vbYesNo, "Glan?") _
= vbYes Ansin wsMstr.UsedRange.Clear

Application.ScreenUpdating = Bréagach 'luas suas macra

fCSV = Dir(fPath & "*.csv") 'tosaigh liostú na gcomhad CSV

Déan Cé Len(fCSV) > 0
'comhad CSV a oscailt
Socraigh wbCSV = Leabhair Oibre.Open(fPath & fCSV)
'cuir isteach col A agus cuir ainm CSV leis
Colúin(1).Cuir isteach xlShiftToRight
Colúin(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
'Cóipeáil an dáta isteach sa mháistirbhileog agus dún an comhad foinseach
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).Deireadh(xlUp).Offset(1)
wbCSV.Close Bréagach
'réidh seo chugainn CSV
fCSV = Dir
Lúb

Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas ceanntásc dúblach agus colún ainm comhaid CSV a dhíchur. Cuidigh le do thoil... Chuaigh mé trí roinnt alt, ach ar an drochuair tugann gach ceann acu an toradh céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit - d'úsáid mé do chóid VBA chun sonraí a bhaint as comhaid CSV iolracha chun an comhad a fheabhas (an cód ar an leathanach seo) agus comhaid csv a thiontú ina gcomhaid fheabhas (an ceann seo: https://www.extendoffice.com/documents/excel/4615-excel-batch-convert-csv-to-xls-xlsx.html), le torthaí iontacha. Chuidigh siad liom go leor ama a shábháil.

Mar sin féin, tugaim faoi deara fadhb choitianta leis an dá chineál seo de chód. Chun a shoiléiriú, tá mo chóras socraithe chun na caighdeáin Eorpacha a úsáid le haghaidh dátaí, agus tá dátaí i gcaighdeáin SAM i gcuid de na comhaid CSV a fuair mé le haghaidh mo chuid oibre. Is í an chéad fhadhb, nuair a bhainim nó nuair a thiontaighim sonraí ó chomhad CSV ina bhfuil dátaí i bhformáid SAM, déantar na dátaí sin go léir a aisiompú (ag teacht le caighdeáin an AE a úsáideann mo chóras). Tá sé seo go hiontach ach chuir sé trioblóidí orm freisin ós rud é nach raibh a fhios agam go n-aisiompódh na cóid na dátaí dom, agus mar sin chuaigh mé ar aghaidh agus rinne mé an rud céanna arís. Is í an dara fadhb, maidir leis na comhaid CSV a bhfuil dátaí san fhormáid chéanna acu cheana agus an ceann a úsáideann mo chóras (caighdeáin an AE), ní dhéantar ach na dátaí débhríoch a aisiompú (.i. 04/05/2019 - 05/04/2019), agus na cinn atá ró-shoiléir, níl aon athrú orthu (.i. 30/04/2019).

Is é an rud ba mhaith liom go ndéanfadh na cóid an rud céanna go cruinn agus a léirítear anseo, ach gur cheart dóibh na sonraí a chóipeáil agus a ghreamú (go háirithe dátaí) sna formáidí cruinne a úsáideadh sna comhaid bhunaidh. Chabhródh sé seo le haon mhearbhall agus botúin a d’fhéadfadh a bheith ann a chosc. Ba mhaith liom VBA a fhoghlaim ionas gur féidir liom mo chóid féin a scríobh lá amháin, ach faoi láthair, níl mé in ann fiú codanna de na cóid atá ann cheana féin a mhodhnú chun freastal ar mo chuid riachtanas. Mar sin más féidir leat cabhrú, inis dom le do thoil cá háit ar cheart dom na cóid leasaithe (a thagann tú suas leo) a chur leis na cóid atá ann cheana féin. Is mór agam gach aiseolas agus tacaíocht is féidir liom a fháil. Go raibh maith agaibh go léir!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh Marshall, sa mhodh Workbooks.Open, cuir isteach an rogha Local:=True.

ie
Socraigh xWb = Leabhair Oibre.Open(xStrPath & "\" &xFile, Logánta:=Fíor)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat Robert. Tá brón orm nach raibh mé in ann freagra a thabhairt duit níos luaithe. Ní bhfuair mé fógra ar bith go dtí seo. Bainfidh mé triail as seo agus tiocfaidh mé ar ais chugat ar ball chun tú a chur ar an eolas má oibríonn sé seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Robert,
Tá sé dom arís. Thóg sé tamall orm an t-am a bheith agam chun a dhéanamh amach cén chuid den chód ar cheart an chuid “Local:True” a chur léi. D'éirigh go hiontach leis an toradh mar níl na dátaí aisiompaithe a thuilleadh. Go raibh maith agat!
Do dhuine ar bith a bhfuil an fhadhb chéanna aige, níl le déanamh ach an líne seo a athrú:
Socraigh xWb = Leabhair Oibre.OpenXML(xStrPath & "\" & xFile)

Chuige seo:
Socraigh xWb = Leabhair Oibre.Open(xStrPath & "\" &xFile, Logánta:=Fíor)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an bhfuil aon bhealach ann chun comhaid csv iolracha a allmhairiú le leathstad mar dheighilteoir? Go raibh maith agat!
PS Alt deas!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Foireann Hi

Táim ag baint úsáide as an gcód chun Ilchomhaid XML a iompórtáil isteach i leathán aonair le VBA, ach is í an tsaincheist atá romham ná nuair a shroicheann comhaireamh na sraitheanna thart ar 650000, ní phróiseálann sé an chuid eile de na comhaid xml san fhillteán agus tugann sé earráid nach bhfuil aon chomhaid xml ann . Teastaíonn do thacaíocht chun an comhaireamh seo a mhéadú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Saineolaithe

Tá an cód thuas á úsáid agam chun comhaid xml iolracha a iompórtáil isteach i mbileog oibre 1 ag baint úsáide as VBA, ach is í an cheist atá romham ná nuair a shroicheann comhaireamh sraitheanna 650000 i mbileog oibre, ní phróiseálann an cód seo an chuid eile de na comhaid xml san fhillteán. Tugann sé earráid "gan comhaid.xml". A cheangal ar do thacaíocht chineál
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Oibríonn na treoracha chun xml iolracha a allmhairiú isteach i gcluaisín amháin de dhoiciméad Excel ach bhíothas ag smaoineamh ar conas é a chur i líne suas na colúin. Níl na clibeanna céanna ar mo xmls go léir. Socraítear iad sa chaoi is go mbeidh an ceanntásc in easnamh ón xml sin mura raibh aon sonraí ag an xml do cheanntásca(clibeanna) áirithe. An bhfuil bealach ann chun na xmls a allmhairiú ionas go dtiteann na ceanntásca céanna ó gach xml agus na sonraí gaolmhara isteach sa cholún céanna de Excel?
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL