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

Sut i fewnforio ffeiliau testun lluosog o ffolder i mewn i un daflen waith?

Er enghraifft, yma mae gennych ffolder gyda ffeiliau testun lluosog, yr hyn rydych chi am ei wneud yw mewnforio'r ffeiliau testun hyn i mewn i un daflen waith fel y dangosir isod. Yn lle copïo'r ffeiliau testun fesul un, a oes unrhyw driciau i fewnforio'r ffeiliau testun yn gyflym o un ffolder i un ddalen?

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

Mewnforio ffeil testun i'r gell weithredol gyda Kutools ar gyfer Excel syniad da3


Dyma god VBA a all eich helpu i fewnforio pob ffeil testun o un ffolder benodol i ddalen newydd.

1. Galluogi llyfr gwaith rydych chi am fewnforio ffeiliau testun, a gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, copïo a gludo islaw cod VBA i'r Modiwlau ffenestr.

VBA: Mewnforio ffeiliau testun lluosog o un ffolder i un ddalen

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3. Gwasgwch F5 i arddangos deialog, a dewis ffolder sy'n cynnwys ffeiliau testun rydych chi am eu mewnforio. Gweler y screenshot:
mewnforio ffeiliau testun o ffolder 1

4. Cliciwch OK. Yna mae'r ffeiliau testun wedi'u mewnforio i'r llyfr gwaith gweithredol fel taflen newydd ar wahân.
mewnforio ffeiliau testun o ffolder 2


Os ydych chi am fewnforio un ffeil testun i gell neu ystod benodol, gallwch wneud cais Kutools ar gyfer Excel'S Mewnosod Ffeil yn y Cyrchwr cyfleustodau.

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

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

1. Dewiswch gell rydych chi am fewnforio'r ffeil testun, a chlicio Kutools Byd Gwaith > Mewnforio / Allforio > Mewnosod Ffeil yn y Cyrchwr. Gweler y screenshot:
mewnforio ffeiliau testun o ffolder 3

2. Yna mae deialog yn popio allan, cliciwch Pori i arddangos y Dewiswch ffeil i'w fewnosod yn y dialog sefyllfa cyrchwr celloedd, dewiswch nesaf Ffeiliau Testun o'r gwymplen, ac yna dewiswch y ffeil testun rydych chi am ei mewnforio. Gweler y screenshot:
mewnforio ffeiliau testun o ffolder 4

3. Cliciwch agored > Ok, ac mae'r ffeil testun benodol wedi'i mewnosod yn safle'r cyrchwr, gweler y screenshot:
mewnforio ffeiliau testun o ffolder 5


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 Office / Excel 2007-2021 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 (41)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-brawf()
'UpdatebyExtendoffice6/7/2016
Dim xWb Fel Llyfr Gwaith
Dim xToBook Fel Llyfr Gwaith
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
Dim xFiles Fel Casgliad Newydd
Dim I Cyn Hir
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
Os I'r Dde(xStrPath, 1) <> "\" Yna xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
Os xFile = " " Yna
MsgBox "Ni chanfuwyd ffeiliau", vbInformation, "Kutools for Excel"
Is Allanfa
Gorffennwch Os
Gwnewch Tra bod xFile <> ""
xFiles.Ychwanegu xFile, xFile
xfile = dir ()
dolen
Gosod xToBook = Y Llyfr Gwaith Hwn
Os xFiles.Count > 0 Yna
Ar gyfer I = 1 I xFiles.Count
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & xFiles.Item(I))
xWb.Taflenni Gwaith(1).Copi ar ôl:=xToBook.Sheets(xToBook.Sheets.Count)
Ar Ail-ddechrau Gwall Nesaf
ActiveSheet.Name = xWb.Name
Ar Gwall Ewch i 0
xWb.Cau Gau
Digwyddiadau
Gorffennwch Os
Is-End

mae'r cod hwn yn helpu ond rydw i eisiau

tab, semi colon, gofod wir sut i wneud hyn helpwch fi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi am gadw'r gofod (amffinyddion) ar ôl trosi'r ffeiliau testun yn ddalennau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dyna fy mhroblem i hefyd, mae'r cod hwn yn wir. ond ar ôl trosi ffeiliau testun i ragori, nid yw'n cadw'r amffinyddion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allech chi uwchlwytho'r ffeil testun a'r canlyniad rydych chi ei eisiau i mi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un broblem sydd gennyf. Mae'r ffeiliau txt i gyd mewn dalennau ar wahân ac mae'r cod yn anwybyddu'r gofod rhwng y ddwy golofn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Des a PB Rama Murty, gall y cod isod rannu data yn golofnau yn seiliedig ar ofod neu dab wrth fewnforio ffeil testun i ddalennau. Gallwch chi gael cynnig arni.

Is-fewnforioTextToExcel()
'UpdatebyExtendoffice20180911
Dim xWb Fel Llyfr Gwaith
Dim xToBook Fel Llyfr Gwaith
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
Dim xFiles Fel Casgliad Newydd
Dim I Cyn Hir
Dim xIntRow Cyhyd
Dim xFNum, xFArr Cyhyd
Dim xStrValue Fel Llinynnol
Dim xRg Fel Ystod
Dim xArr
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
Os I'r Dde(xStrPath, 1) <> "\" Yna xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
Os xFile = " " Yna
MsgBox "Ni chanfuwyd ffeiliau", vbInformation, "Kutools for Excel"
Is Allanfa
Gorffennwch Os
Gwnewch Tra bod xFile <> ""
xFiles.Ychwanegu xFile, xFile
xfile = dir ()
dolen
Gosod xToBook = Y Llyfr Gwaith Hwn
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Os xFiles.Count > 0 Yna

Ar gyfer I = 1 I xFiles.Count
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & xFiles.Item(I))
xWb.Taflenni Gwaith(1).Copi ar ôl:=xToBook.Sheets(xToBook.Sheets.Count)

ActiveSheet.Name = xWb.Name

xWb.Cau Gau
xIntRow = ActiveCell.CurrentRegion.Rows.Count
Ar gyfer xFNum = 1 I xIntRow
Gosod xRg = ActiveSheet.Range("A" & xFNum)
xArr = Hollti(xRg.Text, "")
Os UBound(xArr) > 0 Yna
Ar gyfer xFArr = 0 I UBound(xArr)
Os xArr(xFArr) <> "" Yna
xRg.Value = xArr(xFArr)
Gosod xRg = xRg.Offset(ColumnOffset:=1)
Gorffennwch Os
Digwyddiadau
Gorffennwch Os
Digwyddiadau
Digwyddiadau
Gorffennwch Os
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa newidiadau sydd eu hangen os ydych am rannu data yn golofnau yn seiliedig ar goma
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa newidiadau sydd angen eu gwneud os bydd angen i mi roi data i mewn i golofnau yn seiliedig ar goma?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i wneud os yw fy ffeil Txt yn cynnwys amffinio gan ddefnyddio coma?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch ddefnyddio Fuctuon Find and Replace i ddisodli'r coma â gofod yn gyntaf, a defnyddio un o'r dulliau uchod i'w drosi i ffeil Excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Onid oes ffordd i newid hyn yn y cod? Byddai'n rhaid i mi wneud hyn gyda 130 o ffeiliau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un cwestiwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I'r rhai sydd angen cymorth gyda hyn o hyd, yn lle xArr = Hollti(xRg.Text, "") gyda xArr = Hollti(xRg.Text, ",").
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn rhedeg y modiwl fel y'i rhoddir, mae'n ychwanegu pob ffeil .txt fel dalen newydd, nid fel llinell newydd i'r daflen bresennol. A oes ffordd i gyflawni hynny fel yr allbwn yn lle dalennau newydd ar gyfer pob ffeil .txt?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi'n bwriadu cyfuno'r holl ffeil testun i un ddalen?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ie, dyma beth rydw i eisiau hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Davinder, gallwch geisio isod cod vba.
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 & "\" & "*.txt")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        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 txt files", , "Kutools for Excel"
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r Cod yn ddefnyddiol iawn, dyma'r unig god a ddarganfyddais sy'n cael ffeiliau txt mewn swmp yr atgyweiriad sydd ei angen arnaf hefyd yw'r hyn y mae Joyce a Davinder ar ei ôl.
Mae i echdynnu'r ffeiliau .txt a gludo nhw i gyd o dan ei gilydd mewn colofn benodol gadewch i ni ddweud colofn 'N'.

Hefyd, mae angen gwybod a fydd modd ychwanegu "os cyflwr" ar gyfer y ffeiliau .txt a fewnforiwyd i fod fel a ganlyn.
os yw'r ffeiliau .txt yn dechrau gyda'r llythyren 'A' yna i'w gludo ar 'ddalen 1' gan ddechrau gyda cell 'N2'
ac os yw'r ffeiliau .txt yn dechrau gyda'r llythyren 'B' yna gludwch ar 'Daflen 2' gan ddechrau gyda cell 'N2'
arall MsgBox i fod yn "Diben ffeil .txt heb ei gydnabod".

diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn wedi gweithio i mi ond o hyd, mae angen i mi newid rhai ynddo.

*Rwyf am iddo bastio ar yr un ddalen heb agor dalen newydd ac yna ei chopïo gan ei bod yn cymryd mwy o amser.

*angen mewnosod amod os yw ffeiliau txt a fewnforiwyd i gael eu gludo ar ddalen 1 os yw'n dechrau gyda llythyren A a'i fewnforio i Daflen 2 os yw'n dechrau gyda llythyren B


Is-gopi 3()
Dim xWb Fel Llyfr Gwaith
Dim xToBook Fel Llyfr Gwaith
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
Dim xFiles Fel Casgliad Newydd
Dim i Cyhyd
Dim Rhes Olaf Cyn Hir
Dim Rng Fel Ystod
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
Os I'r Dde(xStrPath, 1) <> "\" Yna xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
Os xFile = " " Yna
MsgBox "Ni chanfuwyd ffeiliau", vbInformation, "Kutools for Excel"
Is Allanfa
Gorffennwch Os
Gwnewch Tra bod xFile <> ""
xFiles.Ychwanegu xFile, xFile
xfile = dir ()
dolen
Ystod ("N2"). Dewiswch
Gosod xToBook = Y Llyfr Gwaith Hwn
Os xFiles.Count > 0 Yna
Ar gyfer i = 1 I xFiles.Count
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & xFiles.Item(i))
xWb.Gweithgarwch
'Dethol a chopïo'r data txt
Ystod (Dethol, Dewis.Diwedd (xlDown)). Dewiswch
Dewis.Copy
xToBook.Activate
Taflen Actif.Gludo
Dewis.Diwedd(xlDown).Gwrthbwyso(1).Dewis
Ar Ail-ddechrau Gwall Nesaf
Ar Gwall Ewch i 0
xWb.Cau Gau
Digwyddiadau
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, mae fy nwylo wedi'u clymu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae fy nghod yn rhedeg ond dim ond yn mewnforio'r ffeil gyntaf. Mae'n dweud bod gwall dull ar gyfer copi. Mae'r dadfygiwr yn amlygu'r llinell cod ganlynol. Unrhyw syniadau?


xWb.Taflenni Gwaith(1).Copi ar ôl:=xToBook.Sheets(xToBook.Sheets.Count)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem, a ddarganfuwyd unrhyw atebion?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Katie,
Gwn fod eich sylw yn eithaf hen, ond wynebais yr un broblem a'i drwsio fel hyn: Rhaid gosod y modiwl mewn is-ffolder o'r prosiect gweithredol .xlsx. Fe wnes i'r camgymeriad o gopïo'r cod i mewn i is-ffolder o fy PERSONAL.XLSB lle rydw i fel arfer yn storio fy macros ac mae'n gwneud gyda fy macros eraill, ond nid gyda'r un hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddech chi'n dileu'r dalennau yng nghod vba os nad ydych chi eisiau copïau dyblyg wrth ail-wneud y modiwl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, Harsh, byddwch yn ofalus i osgoi mewnforio dro ar ôl tro.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am atal cael gwared ar y sero blaenorol yn excel.

Rwyf wedi ceisio isod cod ond nid yw'n gweithio


Is-brawf()
Dim xWb Fel Llyfr Gwaith
Dim xToBook Fel Llyfr Gwaith
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
Dim xFiles Fel Casgliad Newydd
Dim I Cyn Hir
Dim j Cyhyd
Gosod xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect=Gau
xFileDialog.Title = "Dewis ffolder"
Os yw xFileDialog.Show = -1 Yna
xStrPath = xFileDialog.SelectedItems(1)
Gorffennwch Os
Os xStrPath = " " Yna Gadael Is
Os I'r Dde(xStrPath, 1) <> "\" Yna xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
Os xFile = " " Yna
MsgBox "Ni chanfuwyd ffeiliau", vbInformation, "Kutools for Excel"
Is Allanfa
Gorffennwch Os
Gwnewch Tra bod xFile <> ""
xFiles.Ychwanegu xFile, xFile
xfile = dir ()
dolen
Gosod xToBook = Y Llyfr Gwaith Hwn
Os xFiles.Count > 0 Yna
Ar gyfer I = 1 I xFiles.Count
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & xFiles.Item(I))
ActiveSheet.Cells.NumberFormat = "@" 'Mae hyn er mwyn gwneud excel mewn fformat testun cyn gludo data'r ffeil testun
xWb.Taflenni Gwaith(1).Copi Ar Ôl:=xToBook.Sheets(xToBook.Sheets.Count)
Ar Ail-ddechrau Gwall Nesaf
ActiveSheet.Name = xWb.Name
Ar Gwall Ewch i 0
xWb.Cau Gau
Digwyddiadau
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn ogystal, gallwch chi roi cynnig ar y Dileu Leading Zeros swyddogaeth o Kutools ar gyfer Excel i gael gwared ar yr holl seroau blaenllaw o ddethol ar ôl mewnforio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ond nid wyf am gael gwared. Rwyf am atal rhag cael gwared ar y sero blaenorol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydych chi am gadw'r sero blaenllaw, gallwch eu fformatio fel fformat testun yn ôl Fformat Cell.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut ydych chi'n addasu'r cod hwn i fewnosod ffeiliau *.txt mewn trefn: 1,2,3,4,5,6,7,8,9,10,11, ac ati. Ar hyn o bryd mae'r cod yn mewnosod ffeiliau fel a ganlyn: 1,10,11,12,13,14,15,16,17,18,19,2,20,21, XNUMX, ac ati Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes unrhyw siawns i gymryd enwau dalen yn unig rhan benodol o enwau ffeil txt?

yn unol â'r cod uchod mae enw'r ddalen gyfan wedi bod yn cymryd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr gwnaeth y swydd ar office 2007 excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae fy nghod yn rhedeg ond dim ond yn mewnforio'r ffeil gyntaf. Mae'n dweud bod gwall dull ar gyfer copi. Mae'r dadfygiwr yn amlygu'r llinell cod ganlynol. Unrhyw syniadau?


xWb.Taflenni Gwaith(1).Copi ar ôl:=xToBook.Sheets(xToBook.Sheets.Count)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Martinho,
Cefais yr un Broblem a'i datrys trwy newid y llinell hon:
Gosod xToBook = Y Llyfr Gwaith Hwn
i
Gosod xToBook = ActiveWorkbook
Efallai bod hyn yn helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
0

fi angen eich help Nid oes gennyf unrhyw syniad vba excel yr wyf am fewnforio ffeil testun lluosog fel 13000. yr enw ffeil testun yr un fath â'r gell er enghraifft (c1=112 felly mae enw'r ffeil testun hefyd yn 112) yn golygu y ffeil testun 112 yn mewnforio y c112.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
fi angen eich help Nid oes gennyf unrhyw syniad vba excel yr wyf am fewnforio ffeil testun lluosog fel 13000. yr enw ffeil testun yr un fath â'r gell er enghraifft (c1=112 felly mae enw'r ffeil testun hefyd yn 112) yn golygu y ffeil testun 112 yn mewnforio y c112.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio ond yn mewnforio pob ffeil testun i dab newydd yn y llyfr gwaith. Unrhyw syniad lle yn y cod y gellid newid hyn i fewnforio'r ffeil testun newydd ar yr un daflen waith o dan y data o'r ffeil testun olaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y cod isod os wyf am nodi'r ffolder yn hytrach na dewis y llwybr bob tro mewngludo ffeil testun , pa addasiad sy'n rhaid ei wneud

CÔD VBA:

Is-fewnforioCSVsWithReference()
'DiweddariadbyKutoolsforExcel20151214
Dim xSht Fel Taflen Waith
Dim xWb Fel Llyfr Gwaith
Dim xStrPath Fel Llinynnol
Dim xFileDialog Fel FileDialog
Dim xFile Fel Llinynnol
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
Gosod xSht = ThisWorkbook.ActiveSheet
If MsgBox("Clirio'r ddalen bresennol cyn mewnforio?", vbYesNo, "Kutools for Excel") = vbYes Yna xSht.UsedRange.Clear
Application.ScreenUpdating = Anghywir
xFile = Dir(xStrPath & "\" & "*.txt")
Gwnewch Tra bod xFile <> ""
Gosod xWb = Llyfrau Gwaith.Open(xStrPath & "\" &xFile)
ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).Diwedd(xlUp).Offset(1)
xWb.Cau Gau
xFile = Dir
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, rhowch gynnig ar y cod isod
Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    xStrPath = "C:\Users\AddinsVM001\Desktop\test" 'Here is the parth you can modify
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

"C:\Users\AddinsVM001\Desktop\test" yw'r llwybr ffolder y gallwch fewnforio ffeil testun ohono, a fyddech cystal â'i newid yn ôl yr angen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am eich cod VBA gwerthfawr.
Fodd bynnag, mae angen cod arnaf ar gyfer ffeiliau txt lluosog i mewn i 'ddalen sengl yn y daflen waith, nid dalen unigol ar gyfer pob ffeil txt'.
Beth ddylwn i olygu eich cod at fy mhwrpas?

Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rhowch gynnig ar y cod isod
Sub Test()
    'UpdatebyExtendoffice 10/26/2022
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xSaveRg As Range
    Dim xSh As Worksheet
    
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    Set xSh = xToBook.Sheets.Add
    Set xRg = xSh.Range("A1")
    J = 1
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            Set xSaveRg = xWb.Worksheets(1).UsedRange
            J = xSaveRg.Rows.Count + 1 + J
            Debug.Print xRg.Address
            xSaveRg.Copy Destination:=xRg
            On Error Resume Next
            xWb.Close False
            
            Set xRg = xSh.Cells(J, 1)
        Next
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL