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

Sut i swp-fewnforio ffeiliau csv / text / xml lluosog yn Excel yn gyflym?

Yn Excel, efallai eich bod wedi clymu i gadw llyfr gwaith fel ffeil csv, ffeil testun neu ffeil xml, ond a ydych erioed wedi ceisio mewnforio sawl ffeil csv / text / xml o ffolder i mewn i lyfr gwaith neu daflen waith? Yn yr erthygl hon, rwy'n cyflwyno rhai dulliau i'w swpio'n gyflym i'w mewnforio.

Mewnforio ffeiliau testun lluosog o ffolder i bob taflen waith llyfr gwaith gyda VBA

Mewnforio ffeiliau csv lluosog o ffolder i mewn i un ddalen gyda VBA

Mewngludo ffeiliau xml lluosog o ffolder i mewn i un ddalen gyda VBA

Mewnforio neu gyfuno ffeiliau xml / csv lluosog i mewn i ddalen neu lyfr gwaith gyda Kutools ar gyfer Excel syniad da3

Allforio pob dalen fel csv / text / pdf i ffolder gyda Kutools ar gyfer Excelsyniad da3


I fewnforio ffeiliau testun o ffolder i lyfr gwaith, gallwch ddefnyddio isod VBA i'w drin yn gyflym.

1. Galluogi llyfr gwaith gwag, a gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y VBA i'r Modiwlau ffenestr.

VBA: Mewnforio pob ffeil testun o ffolder i mewn i lyfr gwaith

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. Gwasgwch F5 allweddol neu Run botwm i redeg y VBA, a dewis ffolder rydych chi am fewnforio'r ffeiliau testun ohono yn y dialog popping. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 1

4. A chlicio OK, ac mae pob ffeil testun yn y ffolder a ddewiswyd wedi'i fewnforio i un daflen waith o'r llyfr gwaith gweithredol. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 2doc mewnforio testun csv lluosog xml 3

Cyfuno sawl taflen / llyfr gwaith yn hawdd mewn un ddalen sengl neu lyfr gwaith

Er mwyn cyfuno lluosrifau neu lyfrau gwaith yn un ddalen neu lyfr gwaith, gall fod yn ddifyr yn Excel, ond gyda'r Cyfunwch swyddogaeth yn Kutools ar gyfer Excel, gallwch gyfuno uno dwsinau o daflenni / llyfrau gwaith yn un ddalen neu lyfr gwaith, hefyd, gallwch gydgrynhoi'r dalennau yn un wrth sawl clic yn unig.  Cliciwch ar gyfer treial llawn sylw 30 diwrnod am ddim!
cyfuno taflenni
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

I fewnforio'r holl ffeiliau csv i ffurfio ffolder i mewn i un ddalen, gallwch ei defnyddio o dan god VBA.

1. Galluogi taflen waith wag, a gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan VBA i'r newydd Modiwlau ffenestr.

VBA: Mewnforio ffeiliau csv o ffolder i mewn i un daflen waith

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. Gwasgwch F5 allwedd neu cliciwch Run botwm i weithredu'r VBA, ac mae deialog yn galw allan i ddewis ffolder rydych chi am fewnforio pob ffeil csv ohono. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 4

4. Cliciwch OK, ac mae deialog yn galw allan i'ch atgoffa os yw'n glir cynnwys taflen waith weithredol cyn ei mewnforio, dyma fi'n clicio Oes. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 5

Ar ôl clicio Oes, mae'r holl ffeiliau csv yn y ffolder a ddewiswyd yn cael eu mewnforio i'r ddalen gyfredol, ac yn gosod data o Golofn A i'r dde. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 6doc mewnforio testun csv lluosog xml 7

Tip: Os ydych chi am osod ffeiliau csv yn llorweddol mewn taflen waith, gallwch eu defnyddio isod 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 mewnforio testun csv lluosog xml 8


Os ydych chi am fewnforio pob ffeil XML o ffolder i mewn i un ddalen, gallwch ddefnyddio isod cod VBA.

1. Dewiswch ddalen wag rydych chi am osod y data a fewnforiwyd, a gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, pastiwch god VBA i'r Modiwlau ffenestr.

VBA: Mewnforio ffeiliau XML o ffolder i mewn i daflen waith.

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. Cliciwch Run botwm neu F5 allwedd i redeg y VBA, a dewis ffolder yn y dialog popping, gweler y screenshot:

doc mewnforio testun csv lluosog xml 9

4. Cliciwch OK, ac mae'r holl ffeiliau XML yn y ffolder a ddewiswyd yn cael eu mewnforio i'r ddalen weithredol.


Os nad ydych chi'n gyfarwydd â VBA, peidiwch â phoeni, dyma fi'n cyflwyno teclyn defnyddiol - Kutools ar gyfer Excel i chi. Gyda'i bwerus Cyfunwch cyfleustodau, gallwch gyfuno ffeiliau xml lluosog neu ffeiliau csv yn gyflym i mewn i un llyfr gwaith neu un ddalen Excel.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Excel Gweithredol, a chlicio Kutools Byd Gwaith > Cyfunwch. Gweler y screenshot :
doc cyfuno 1

2. Ac yn y cam 1 o Cyfuno deialog, dewiswch un opsiwn gwahanu yn ôl yr angen. Gweler y screenshot:
doc cyfuno 2

3. Cliciwch Digwyddiadau i fynd i'r cam 2 y Cyfuniad, Cliciwch Ychwanegu i ychwanegu ffeiliau o amrywiol ffolderau neu ffeiliau o un ffolder i Llyfr Gwaith rhestr, a hefyd gallwch chi nodi'r taflenni rydych chi am gyfuno ohonyn nhw Taflen Waith rhestr o'r adran dde. Gweler y screenshot:
mae kutools doc yn cyfuno taflenni 3

4. Cliciwch Digwyddiadau i'r un cam olaf o Cyfunwch, a gallwch chi nodi'r opsiynau cyfuno.
mae kutools doc yn cyfuno taflenni 4

5. Cliciwch Gorffen, mae deialog yn galw allan i'ch atgoffa i ddewis lleoliad i achub y canlyniad cyfun newydd. Gweler y screenshot:
doc cyfuno 5

6. Cliciwch Save. Mae'r holl daflenni ychwanegu wedi'u cyfuno'n ddalen sengl newydd.
doc cyfuno 6

Tip: gyda Cyfunwch, gallwch hefyd gyfuno lluosog Ffeiliau CSV ffurfio ffolderi lluosog neu un ffolder i mewn i un ddalen neu lyfr gwaith.


Os ydych chi am allforio pob dalen fel ffeil csv / text / pdf i ffolder, Kutools ar gyfer Excel'S Llyfr Gwaith Hollti gall cyfleustodau wneud ffafr i chi.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Galluogi'r llyfr gwaith rydych chi am allforio ei daflenni gwaith, a chlicio Kutools Byd Gwaith > Llyfr Gwaith > Llyfr Gwaith Hollti. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 10

2. Yn y Llyfr Gwaith Hollti deialog, gallwch wirio'r enwau dalennau y mae angen i chi eu hallforio, yn ddiofyn mae'r holl daflenni'n cael eu gwirio, a'u gwirio Nodwch fformat arbed a dewiswch y fformat ffeil rydych chi am ei gadw fel o'r rhestr ostwng isod. Gweler y screenshot:

doc mewnforio testun csv lluosog xml 11

3. Cliciwch Hollti a dewis ffolder sydd i gadw'r ffeiliau hollt yn y Porwch am Ffolder deialog, gweler y screenshot:

doc mewnforio testun csv lluosog xml 12

4. Cliciwch OK, nawr mae'r holl daflenni wedi'u gwirio yn cael eu hallforio fel fformat ffeil newydd yn y ffolder a ddewiswyd.


Erthyglau Perthynas:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (35)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch yn fawr iawn am y samplau cod hynny! Mae'r un cyntaf (VBA: Mewnforio pob ffeil testun o ffolder i mewn i lyfr gwaith) bron yn union yr hyn sydd ei angen arnaf. Hoffwn, fodd bynnag, ddewis pa ffeiliau i'w mewnforio a pheidio â mewngludo'r holl ffeiliau testun yn awtomatig mewn unrhyw ffolder penodol. Hoffwn hefyd i gynnwys presennol fy nhaflenni targed gael ei drosysgrifo gan gynnwys y ffeiliau testun. (Gyda'r cod uchod, mae'r cynnwys presennol yn cael ei symud i'r dde yn lle cael ei ddisodli.) Sut mae mynd ati i wneud hynny? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hoffwn ddeall y cod VBA ar gyfer "Mewnforio Ffeiliau Xml Lluosog O Ffolder i Daflen Sengl Gyda VBA". 1. Pam fod angen 2 lyfr gwaith yn lle 1? 2. Mae'n cymryd peth amser i lwytho llawer o ffeiliau xml i excel, felly a oes cod mwy effeithlon? Oherwydd dwi'n sylweddoli pan gafodd eich cod ei redeg, mae llawer o lyfr gwaith VBA yn cael ei greu a achosodd yr arafu. Byddwn yn gwerthfawrogi'n fawr os gallwch chi fy helpu i ddeall!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, ni ddeallais eich un cwestiwn cyntaf, ac am yr ail un, y cod mwy effeithiol, nid wyf wedi dod o hyd iddo, os gwyddoch, gadewch nodyn i mi, diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hoffwn ddeall am y cod VBA ar gyfer "Mewnforio ffeiliau .txt Lluosog o ffolder i ddalen sengl gyda VBA" yn ôl y rhes nesaf sydd ar gael (nid llorweddol). Helpwch, ar frys
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, os ydych chi eisiau mewnforio pob ffeil txt o un ffolder i daflen sengl, gallwch chi ddefnyddio'r cod vba uchod i fewnforio ffeiliau txt i lyfr gwaith yn gyntaf, yna gwnewch gais Kutools ar gyfer Excel's Cyfuno nodwedd Taflenni Gwaith i gyfuno pob taflen o lyfr gwaith i un ddalen, yna'r ffeiliau txt mewn dalen. Gobeithio ei fod yn eich helpu chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y broblem gyda hyn yw nad yw'r gorchymyn VBA na Kutools yn caniatáu mewnforio'r ffeiliau csv gyda fformatio cod cymeriad. Mae'r rhaglwyth yn orllewinol. Mae angen i mi fewnforio'r holl ffeiliau csv fel unicode-8
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid oedd y cod ar gyfer trosi o ffeiliau txt yn gweithio i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf nad yw'r erthygl hon yn gweithio i chi. Allech chi ddisgrifio eich problem? Beth sy'n digwydd wrth redeg y cod? A pha system rydych chi'n gweithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Mae'r cod "Mewnforio ffeiliau csv o ffolder i mewn i un daflen waith", yn gweithio i mi! Ond nid yw'r cod hwn yn gweithio ar gyfer ffeil .txt wag. A oes unrhyw ffordd i gadw'r ffeiliau gwag hefyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, nid wyf yn gwybod pam fod angen mewnforio txt.file gwag ~ Dim ond mewnosod rhesi gwag i wahanu'r cynnwys.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mike: "nid oedd y cod ar gyfer trosi o ffeiliau txt yn gweithio i mi."

Cefais yr un gwallau problem.The macro allan os oes gennych fwy o ffeiliau txt i'w hagor na thaflenni gwaith yn eich llyfr gwaith (diofyn yw 3).
Fe wnes i ei drwsio trwy ychwanegu'r canlynol ychydig cyn i'r ddolen adael fel bod y macro yn creu dalen newydd ar ôl y gweddill
ActiveWorkbook.Sheets.Add After:=Taflenni Gwaith(Worksheets.Count)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Chad, Gweithiodd hyn yn berffaith i mi fewnforio ffeiliau testun lluosog. Diolch.

Ydych chi'n gwybod a oes ffordd i dynnu enwau'r ffeiliau? Rwyf am i enwau'r ffeiliau testun gael eu copïo i bob tab dalen excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hollol anhygoel! Wedi ceisio agor pob ffeil csv mewn un daflen waith ac fe weithiodd yn hyfryd. Diolch yn fawr, wir!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais redeg y cod ar gyfer .xml ac nid oedd yn ymddangos ei fod yn gweithio oherwydd cefais y neges "dim ffeiliau xml". Sut mae trwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bydd yn popio neges "dim ffeiliau xml" tra nad yw'r ffolder a ddewiswyd yn cynnwys y ffeiliau xml. Gallwch ddewis y ffolder cywir sy'n cynnwys ffeiliau xml yn yr ymgom popping ar ôl rhedeg y cod ar gyfer eu mewnforio i'r ddalen weithredol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe weithiodd! Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, saya mau tanya kalo impor txt file ke satu sheet gimana ya?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Rendy, a fyddech chi eisiau mewnforio pob txt i un ddalen neu bob txt i bob dalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i god i fewnforio txts i ddalennau pob txt i bob dalen, ond dwi am i bob txt gael ei fewnforio gyda'i enw i ddalen , dwi'n golygu ailenwi pob dalen a fewnforiwyd gydag enw'r txt y ffeil cod ynghlwm... dwi eisiau golygu hwn ffeil i ychwanegu cod ar gyfer ailenwi taflenni gyda txts enw ... diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i god i fewnforio txts i daflenni pob txt i bob dalen, ond rwyf am i bob txt gael ei fewnforio gyda'i enw i ddalen, rwy'n golygu ailenwi pob dalen a fewnforiwyd gydag enw'r txt y ffeil cod ynghlwm... diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ramy, zahran, gallwch geisio isod cod a all fewngludo'r ffeiliau testun ac ailenwi enw'r ddalen i enw ffeil testun.
Ffeiliau Is-LlwythPipeDelimited()
'UpdatebyExtendoffice20180925
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
Dim x Cyfri Cyn Hir
Dim xWS Fel Taflen Waith

Ar Gwall Ewch i ErrHandler
Gosod xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect=Gau
xFileDialog.title = "Dewis ffolder [Kutools ar gyfer Excel]"
Os yw xFileDialog.Show = -1 Yna
xStrPath = xFileDialog.SelectedItems(1)
Gorffennwch Os
Os xStrPath = " " Yna Gadael Is
Application.ScreenUpdating = Anghywir
xFile = Dir(xStrPath & "\*.txt")
Gwnewch Tra bod xFile <> ""
xCyfrif = xCyfrif + 1
Gosod xWS = Taflenni(xCount)
xWS.Dewis
xWS.Name = "TESTUN" & Chwith(xFile, Len(xFile) - 4)
Gyda ActiveSheet.QueryTables.Add(Cysylltiad:="TEXT;" _
&xStrPath & "\" &xFile, Cyrchfan:=Ystod ("A1"))
.Name = "a" &xCount
.FieldNames = Gwir
.RowNumbers = Gau
.FillAdjacentFormulas = Gau
.PreserveFormatting = Gwir
.RefreshOnFileOpen = Gau
.RefreshStyle = xlInsertDeleteCells
.SavePassword = Gau
.SaveData = Gwir
.AdjustColumnWidth = Gwir
.RefreshPeriod = 0
.TextFilePromptOnRefresh = Gau
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = Gau
.TextFileTabDelimiter = Gau
.TextFileSemicolonDelimiter = Gau
.TextFileCommaDelimiter = Gau
.TextFileSpaceDelimiter = Gau
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Arae(1, 1, 1)
.TextFileTrailingMinusNumbers = Gwir
.Refresh BackgroundQuery:=Anghywir
xFile = Dir
Diwedd Gyda
dolen
Application.ScreenUpdating = Gwir
Is Allanfa
Cyfeiliornad:
MsgBox "dim ffeiliau txt", , "Kutools ar gyfer Excel"
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Defnyddiais y cod i uno sawl ffeil XML yn un, ond yn anffodus aeth y colofnau'n ddryslyd. Roedd gan y 5 ffeil a oedd yn cael eu huno yr un fformat. A oes unrhyw beth i drwsio hyn? Roeddwn hefyd yn meddwl tybed a oedd ffordd i gael gwared ar y penawdau sy'n cael eu dyblygu pan fydd y ffeiliau'n cael eu huno. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Mae'r wefan hon wedi bod yn help mawr. Mae gennyf un mater na allaf ei ddeall. Rwy'n ceisio mewngludo ffeiliau csv lluosog i ddalenni ar wahân excel yn excel ac mae pob dalen wedi'i ailenwi ar ôl enw ffeil y ffeil csv. Rwy'n gwybod bod hyn wedi'i gynnwys isod ar gyfer ffeil txt ond rwy'n gweithio gyda ffeiliau csv. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - Rwy'n defnyddio'r mewngludo pob ffeil csv i mewn i un ffeil a restrir uchod "Mewnforio Ffeiliau Csv Lluosog O Ffolder i Ddalen Sengl Gyda VBA" - hoffwn ddiffinio'r ffolder y mae'n casglu'r data ohono heb orfod dewis â llaw mae'n. A ellir gwneud hyn? diolch - SW.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Scott W, canfûm y gallai cod VBA eich helpu.
Opsiwn Eglur

Is-fewnforioCSVsWithReference()
'Awdur: Jerry Beaucaire
'Dyddiad: 10/16/2010
'Crynodeb: Mewnforio pob ffeil CSV o ffolder i mewn i un ddalen
' ychwanegu maes yng ngholofn A yn rhestru'r enwau ffeiliau CSV

Dim wbCSV Fel Gweithlyfr
Dim wsMstr Fel Taflen Waith: Set wsMstr = ThisWorkbook.Sheets("Taflen1")
Dim fPath As String: fPath = " C:\Users\DT168\Desktop\Ffolder newydd\" '' llwybr i ffeiliau CSV, cynhwyswch y \ terfynol \
Dim fCSV Fel Llinyn

Os yw MsgBox ("Clirio'r ddalen bresennol cyn mewnforio?", vbYesNo, "Clir?") _
= vbYes Yna wsMstr.UsedRange.Clear

Application.ScreenUpdating = Ffug ' cyflymu macro

fCSV = Dir(fPath & "*.csv") 'dechrau'r rhestr ffeiliau CSV

Gwneud Tra Len(fCSV) > 0
'agor ffeil CSV
Gosod wbCSV = Llyfrau Gwaith.Open(fPath & fCSV)
'mewnosoder col A ac ychwanegu enw CSV
Colofnau(1). Mewnosod xlShiftToRight
Colofnau(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
'copïo'r dyddiad i'r brif daflen a chau'r ffeil ffynhonnell
ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).Diwedd(xlUp).Offset(1)
wbCSV.Close Anghywir
'yn barod CSV nesaf
fCSV = Dir
dolen

Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ddileu pennyn dyblyg a cholofn enw ffeil CSV. Os gwelwch yn dda yn helpu....Rwyf wedi mynd trwy nifer o erthyglau, ond yn anffodus i gyd yn rhoi un canlyniad.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - Rwyf wedi defnyddio'ch codau VBA i echdynnu data o ffeiliau CSV lluosog i ffeil excel (y cod ar y dudalen hon) a throsi ffeiliau csv i ffeiliau excel (yr un hwn: https://www.extendoffice.com/documents/excel/4615-excel-batch-convert-csv-to-xls-xlsx.html), gyda chanlyniadau gwych. Fe wnaethon nhw fy helpu i arbed llawer o amser.

Fodd bynnag, sylwaf ar broblem gyffredin gyda'r ddau fath hyn o godau. I egluro, mae fy system wedi'i sefydlu i ddefnyddio'r safonau Ewropeaidd ar gyfer dyddiadau, tra bod rhai o'r ffeiliau CSV a gefais ar gyfer fy ngwaith yn cynnwys dyddiadau yn safonau UDA. Y broblem gyntaf yw, pan fyddaf yn echdynnu neu'n trosi data o ffeil CSV sy'n cynnwys dyddiadau yn fformat yr UD, mae'r holl ddyddiadau hynny'n cael eu gwrthdroi (sy'n cyfateb i safonau'r UE a ddefnyddir gan fy system). Mae hyn yn wych ond fe achosodd drafferthion i mi hefyd gan nad oeddwn yn gwybod y byddai'r codau'n gwrthdroi'r dyddiadau i mi, felly es ymlaen a gwneud yr un peth eto. Yr ail broblem yw, ar gyfer y ffeiliau CSV sy'n cynnwys dyddiadau eisoes yn yr un fformat â'r un a ddefnyddir gan fy system (safonau'r UE), dim ond y dyddiadau amwys sy'n cael eu gwrthdroi (hy 04/05/2019 - 05/04/2019), tra bod y rhai sy'n rhy amlwg, yn aros heb eu newid (hy 30/04/2019).

Yr hyn yr hoffwn i'r codau ei wneud yw'r un peth yn union ag a ddangosir yma, dim ond y dylent gopïo a gludo'r data (yn enwedig dyddiadau) yn yr union fformatau a ddefnyddir yn y ffeiliau gwreiddiol. Byddai hyn yn helpu i atal unrhyw ddryswch a chamgymeriadau posibl. Hoffwn ddysgu VBA felly gallaf un diwrnod ysgrifennu fy nghodau fy hun, ond am y tro, nid wyf hyd yn oed yn gallu addasu rhannau o'r codau presennol i weddu i'm hanghenion. Felly os gallwch chi helpu, dywedwch wrthyf ble dylwn i roi'r codau wedi'u haddasu (rydych chi'n eu creu) i'r codau presennol. Rwy'n gwerthfawrogi'r holl adborth a chefnogaeth y gallaf ei gael. Diolch i chi gyd!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Marshall, yn y dull Workbooks.Open, ychwanegwch yr opsiwn Lleol:=Gwir.

hy
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & "\" &xFile, Local:=Gwir)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn Robert. Mae'n ddrwg gennyf, ni allwn ymateb i chi yn gynharach. Ni chefais unrhyw hysbysiad hyd yn hyn. Byddaf yn rhoi cynnig ar hyn ac yn dod yn ôl atoch yn ddiweddarach i roi gwybod ichi a yw hyn yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Robert,
Dyna fi eto. Fe gymerodd dipyn o amser i mi gael yr amser i ddarganfod pa ran o'r cod y dylid ychwanegu at y rhan "Local:True". Daeth y canlyniad yn wych gan nad yw'r dyddiadau bellach yn cael eu gwrthdroi. Diolch!
I unrhyw un sydd â'r un broblem, newidiwch y llinell hon:
Gosod xWb = Llyfrau Gwaith.OpenXML(xStrPath & "\" & xFile)

I hyn:
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & "\" &xFile, Local:=Gwir)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes unrhyw ffordd i fewnforio ffeiliau csv lluosog gyda hanner colon fel gwahanydd? Diolch!
PS Erthygl neis!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tîm Helo

Rwy'n defnyddio'r cod ar gyfer mewnforio ffeiliau XML lluosog i ddalen sengl gyda VBA, fodd bynnag y broblem sy'n fy wynebu yw pan fydd cyfrif rhesi yn cyrraedd tua 650000, yna nid yw'n prosesu gweddill y ffeiliau xml yn y ffolder ac yn rhoi gwall nad oes unrhyw ffeiliau xml . Angen eich cefnogaeth i gynyddu'r cyfrif hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Arbenigwyr

Rwy'n defnyddio'r cod uchod ar gyfer mewnforio ffeiliau xml lluosog i 1 daflen waith gan ddefnyddio VBA, fodd bynnag y broblem sy'n fy wynebu yw pan fydd cyfrif rhesi yn cyrraedd 650000 mewn taflen waith, yna nid yw'r cod hwn yn prosesu gweddill y ffeiliau xml yn y ffolder. Mae'n rhoi gwall "dim ffeiliau.xml". Angen eich cefnogaeth garedig
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mae'r cyfarwyddiadau ar gyfer mewnforio xmls lluosog i un tab o ddogfen excel yn gweithio ond roedd yn pendroni sut i'w gael i linellu'r colofnau. Nid oes gan fy xmls i gyd yr un tagiau. Maent wedi'u gosod fel pe na bai gan yr xml ddata ar gyfer rhai penawdau (tagiau) yna mae'r pennawd ar goll o'r xml hwnnw. A oes ffordd i gael y xmls i fewnforio fel bod yr un penawdau o bob xml a data cysylltiedig yn disgyn i'r un golofn o excel?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir