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

Sut i fewnforio enwau ffeiliau lluosog i mewn i gelloedd yn Excel?

Gan dybio bod gennych ffolder gyda channoedd o ffeiliau, ac yn awr, rydych chi am fewnforio'r enwau ffeiliau hyn i mewn i gelloedd taflen waith. Bydd copïo a gludo fesul un yn treulio llawer o amser, yn yr erthygl hon, byddaf yn siarad am rai triciau cyflym i'ch helpu chi i fewnforio enwau ffeiliau lluosog o ffolder i mewn i daflen waith.

Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith gyda chod VBA

Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith gyda Kutools ar gyfer Excel


Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith gyda chod VBA

Gall y cod VBA canlynol eich helpu i fewnforio enwau ffeiliau, estyniadau ffeiliau ac enw'r ffolder i mewn i'r celloedd taflen waith, gwnewch y camau canlynol:

1. Lansio taflen waith newydd rydych chi am fewnforio enwau'r ffeiliau.

2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith

Sub GetFileList()
'updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "Folder name"
    ActiveSheet.Cells(1, 2) = "File name"
    ActiveSheet.Cells(1, 3) = "File extension"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xPath
        ActiveSheet.Cells(i, 2) = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
        ActiveSheet.Cells(i, 3) = Mid(xFile.Name, InStrRev(xFile.Name, ".") + 1)
    Next
End Sub

4. Yna, pwyswch F5 allwedd i weithredu'r cod hwn, ac yn y ffenestr Pori allan, dewiswch y ffolder rydych chi am fewnforio'r ffurflen enwau ffeiliau, gweler y screenshot:

doc mewnforio enwau ffeiliau 1

5. Ac yna cliciwch OK botwm, a chewch y canlyniad canlynol:

doc mewnforio enwau ffeiliau 2

Nodyn: Os oes is-ffolderi yn eich ffolder benodol, ni fydd enwau'r ffeiliau yn yr is-ffolderi yn cael eu mewnforio.


Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith gyda Kutools ar gyfer Excel

Os oes angen i chi fewnforio enwau'r ffeiliau yn y ffolder a'r is-ffolderi, peidiwch â phoeni, gyda Kutools ar gyfer Excel'S Rhestr Enw Ffeil cyfleustodau, gallwch chi fewnforio'r holl enwau ffeiliau yn hawdd yn y ffolder benodol gan gynnwys yr is-ffolderi.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Cliciwch Kutools Byd Gwaith> Mewnforio ac Allforio > Rhestr Enw Ffeil, gweler y screenshot:

2. Yn y Rhestr Enw Ffeil blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) Cliciwch doc mewnforio enwau ffeiliau 5 botwm i ddewis y ffolder gyda'r ffeiliau rydych chi am eu mewnforio;

(2.) Gwiriwch Cynhwyswch ffeiliau mewn is-gyfeiriaduron mewnforio enwau ffeiliau'r is-ffolderi;

(3.) Nodwch y math o ffeiliau rydych chi am eu mewnforio o dan y Math o ffeiliau adran;

(4.) Dewiswch un uned maint ffeil rydych chi am ei harddangos o'r Uned maint ffeil adran;

(5.) Os ydych chi eisiau hypergysylltu'r enwau ffeiliau a'r ffolderau, gwiriwch Creu hypergysylltiadau opsiwn.

doc mewnforio enwau ffeiliau 4

3. Ar ôl gorffen y gosodiadau, cliciwch OK botwm, ac mae'r enwau ffeiliau mewn ffolder ac is-ffolderi yn cael eu mewnforio i daflen waith newydd fel y dangosir y llun a ganlyn:

doc mewnforio enwau ffeiliau 6

Awgrymiadau: Os ydych chi am fewnforio un enw ffeil math penodedig yn unig o ffolder benodol, gallwch wirio Nodwch opsiwn yn y Rhestr Enw Ffeil deialog, a theipiwch yr estyniad ffeil ynddo, yna dim ond o'r ffolder a'r is-ffolderi y bydd yn mewnforio'r enwau ffeiliau math penodedig yn unig.

Cliciwch i wybod mwy am y nodwedd Rhestr Enw Ffeil hon ...

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Demo: Mewnforio enwau ffeiliau lluosog i mewn i gelloedd taflen waith gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthyglau cysylltiedig:

Sut i restru'r holl ffeiliau mewn ffolder ac is-ffolderi i mewn i daflen waith?

Sut i restru'r holl enwau ffeiliau mewn ffolder a chreu hypergysylltiadau ar eu cyfer yn Excel?


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 (14)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hey,
Mae gen i ddalen ecxel sydd â rhai enwau cynnyrch, ac mae gen i hefyd ffolder sydd â rhai ffeiliau pdf wedi'u henwi yr un fath â data cell, fel os yw gwerth cell A2 yn apple1, enw ffeil Pdf yw apple1.pdf, rydw i eisiau gwybod pa enw Mae'r ffeil ar goll, a allwn ni gael honno yn Excel rhywsut.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Myk,
Yn gyntaf, gallwch chi gymhwyso'r cod uchod i fewnosod yr enwau ffeiliau yn y daflen waith, rhestrwch y ddwy golofn o enwau ffeiliau i mewn i un daflen waith, ac yna gallwch chi ddefnyddio'r Dewiswch yr un peth a nodwedd celloedd Gwahanol o Kutools i nodi ac amlygu'r enwau ffeiliau coll, gweler screenshot :

Rhowch gynnig arni, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Apakah bisa merename ffeil dengan excel?
terimakasih sangat membantu perkerjaan saya,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
saya coba yg pake vba di run bisa tapi pas di step browser nya bukan oke tapi open terus sampai ke file tertentu dan ketika di klik malah rhedeg amser 26 llwybr heb ei ddarganfod bisa bantu kenapa itu bisa terjadi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Roedd yn anhygoel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar gyfer y cod VBA, sut fyddech chi'n tynnu'r dyddiad a addaswyd hefyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Ychwanegwch y golofn dyddiad wedi'i addasu ar gyfer yr enwau ffeiliau a fewnforiwyd, cymhwyswch y cod VBA canlynol, rhowch gynnig arni, gobeithio y gall eich helpu chi!

Is-GetFileList()
Dim xFSO Fel Gwrthrych
Dim xFfolder Fel Gwrthrych
Dim xFile Fel Gwrthrych
Dim xFiDialog Fel FileDialog
Dim xPath Fel Llinyn
Dim i Fel Cyfanrif
Gosod xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
Os xFiDialog.Show = -1 Yna
xPath = xFiDialog.SelectedItems(1)
Gorffennwch Os
Gosod xFiDialog = Dim byd
Os xPath = "" Yna Gadael Is
Gosod xFSO = CreateObject ("Scripting.FileSystemObject")
Gosod xFolder = xFSO.GetFolder(xPath)
ActiveSheet.Cells(1, 1) = "Enw ffolder"
ActiveSheet.Cells(1, 2) = "Enw ffeil"
ActiveSheet.Cells(1, 3) = "Estyniad ffeil"
ActiveSheet.Cells(1, 4) = "Dyddiad a addaswyd ddiwethaf"
i = 1
Ar gyfer Pob xFile Yn xFolder.Files
i = i + 1
ActiveSheet.Cells(i, 1) = xPath
ActiveSheet.Cells(i, 2) = Chwith(xFile.Name, InStrRev(xFile.Name, ".") - 1)
ActiveSheet.Cells(i, 3) = Canolbarth(xFile.Name, InStrRev(xFile.Name, ".") + 1)
ActiveSheet.Cells(i, 4) = CDate(xFile.datelastmodified)
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes ffordd i roi'r llwybr ffolder eisoes yn y cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am sôn am enw ffolder yn unig. Beth yw cod vba ar gyfer hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am ychwanegu tabl, enw ffolder yn unig, a data wedi'u haddasu hefyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Ydych chi eisiau rhestru holl enwau ffolderi o brif ffolder penodol? Rhowch eich problem yn fwy manwl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae dull hawdd arall yno. Copïwch y llwybr cyfeiriadur lle rydych chi wedi cadw'r dogfennau, a gludwch y ddolen honno yn y porwr (chrome / mozilla). Byddwch yn cael y rhestr enwau a dim ond copi past i mewn i excel. Lloniannau!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cymwynasgar iawn. Tnx llawer
Wedi graddio 5 allan o 5
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir