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 gelloedd taflen waith gyda Kutools for 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:
5. Ac yna cliciwch OK botwm, a chewch y canlyniad canlynol:
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 gelloedd taflen waith gyda Kutools for Excel
Os oes angen i chi fewnforio enwau'r ffeiliau yn y ffolder a'r is-ffolderi, peidiwch â phoeni, gyda Kutools for 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 for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for 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 
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.
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:
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 for Excel Nawr!
Demo: Mewnforio enwau ffeiliau lluosog i gelloedd taflen waith gyda Kutools for Excel
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
