Skip i'r prif gynnwys

Sut i ailenwi ffeiliau lluosog ffolder yn Excel?

Efallai y bydd y rhan fwyaf ohonom yn dioddef gyda'r broblem hon bod angen i ni ailenwi ffeiliau lluosog mewn ffolder, bydd ailenwi'r enwau ffeiliau fesul un yn ein gwneud yn wallgof os oes cannoedd neu filoedd o ffeiliau yn y ffolder honno. A oes unrhyw swyddogaethau da inni ddelio â'r dasg hon?

Rhestrwch yr holl enwau ffeil o ffolder benodol yn y daflen waith gyda kutools ar gyfer Excel

Ail-enwi ffeiliau lluosog ffolder yn Excel gyda chod VBA


Os oes sawl ffeil yr ydych am eu hailenwi, yn gyntaf, gallwch restru'r hen enwau ffeiliau mewn colofn o daflen waith, ac yna nodi'r enwau ffeiliau newydd yr ydych am eu disodli. I restru'r holl ffeiliau yn gyflym yn y daflen waith, gallwch ddefnyddio'r Kutools ar gyfer Excel'S Rhestr Enw Ffeil cyfleustodau.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr )

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

2. Yn y Rhestr Enw Ffeil blwch deialog, cliciwch doc-ailenwi-lluosog-ffeiliau-1 botwm i ddewis y ffolder ffeiliau rydych chi am restru'r ffeiliau, ac yna cliciwch Pob ffeil oddi wrth y Math o ffeiliau, gweler y screenshot:

doc-ailenwi-lluosog-ffeiliau-1

3. Yna cliciwch OK botwm, mae'r holl enwau ffeiliau wedi'u rhestru mewn colofn o daflen waith newydd, yn ogystal â rhai priodoleddau ffeil, ac yn awr, gallwch ddileu colofnau diangen eraill a gadael y Ffeil Enw colofn, gweler y screenshot:

doc-ailenwi-lluosog-ffeiliau-1

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

Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr


Ar ôl rhestru'r holl enwau ffeiliau gwreiddiol mewn un golofn A, a dylech deipio enwau ffeiliau newydd yng ngholofn B fel y screenshot canlynol a ddangosir:

doc-ailenwi-lluosog-ffeiliau-1

Ac yma byddaf yn siarad am god VBA a allai eich helpu i ddisodli'r hen enwau ffeiliau gyda'r enwau ffeiliau newydd ar unwaith. Gwnewch y camau canlynol:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Ffenestr modiwl.

Cod VBA: Ail-enwi ffeiliau lluosog mewn ffolder

Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
If .Show = -1 Then
    xDir = .SelectedItems(1)
    xFile = Dir(xDir & Application.PathSeparator & "*")
    Do Until xFile = ""
        xRow = 0
        On Error Resume Next
        xRow = Application.Match(xFile, Range("A:A"), 0)
        If xRow > 0 Then
            Name xDir & Application.PathSeparator & xFile As _
            xDir & Application.PathSeparator & Cells(xRow, "B").Value
        End If
        xFile = Dir
    Loop
End If
End With
End Sub

3. Ar ôl pasio'r cod, pwyswch F5 allwedd i redeg y cod hwn, ac yn y Pori ffenestr, dewiswch y ffolder rydych chi am newid yr enwau ffeiliau ynddo, gweler y screenshot:

doc-ailenwi-lluosog-ffeiliau-1

4. Ac yna cliciwch OK, mae'r holl hen enwau ffeiliau wedi cael eu disodli gan yr enwau ffeiliau newydd ar unwaith. Gweler sgrinluniau:

doc-ailenwi-lluosog-ffeiliau-1 2 doc-ailenwi-lluosog-ffeiliau-1

Nodiadau:

1. Pan fyddwch chi'n rhestru'ch enwau ffeiliau hen a newydd, rhaid cynnwys yr estyniad ffeil.

2. Yn y cod uchod, y cyfeirnod A: A yn nodi'r hen restr enwau ffeiliau rydych chi am ei ailenwi, a chyfeirio ati B yn cynnwys yr enwau ffeiliau newydd yr ydych am eu defnyddio, gallwch eu newid fel eich angen


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 greu taflenni gwaith dilyniant o ystod o gelloedd yn Excel?

Sut i ailenwi nifer o daflenni gwaith yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer 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...

Disgrifiad


Mae 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!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great! it work for me
This comment was minimized by the moderator on the site
The above stated code does not detect native language file names in Hindi or Marathi - example "HIN-MALE-CH - 7 - कार"
Here the code does not detect "कार"
Any way to handle this issue?
This comment was minimized by the moderator on the site
Sziasztok!
Ha kép nevébe "/" jelet akarok rakni, akkor min kell változtatnom?
Ha benne van a "/" jel akkor nekem nem működik.

Köszönöm
Andor
This comment was minimized by the moderator on the site
Hello, Benedeczki,

Under normal circumstances, the file name cannot contain the /\:*?<>” symbol, so if your picture name contains the / symbol, the code cannot run normally.
You'd better to remove the / symbol from the file name.
Thank you!
This comment was minimized by the moderator on the site
wow, useful and very helpful. BIG THANKS :)
This comment was minimized by the moderator on the site
Sub RenameMultipleFiles()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
selectDirectory = .SelectedItems(1)
dFileList = Dir(selectDirectory & Application.PathSeparator & "*")

Do Until dFileList = ""
curRow = 0
On Error Resume Next
curRow = Application.Match(dFileList, Range("A:A"), 0)
If curRow > 0 Then
Name selectDirectory & Application.PathSeparator & dFileList As _
selectDirectory & Application.PathSeparator & Cells(curRow, "B").Value
End If

dFileList = Dir
Loop
End If
End With
End Sub

this formula does not rename1st document
This comment was minimized by the moderator on the site
Love this so much! Is there a way to use Kutools to edit metadata tags for music similar to this with filenames? Would love being able to mass edit song tags through Excel rather than on iTunes or other third party song tag editors. Thank you!
This comment was minimized by the moderator on the site
okay Thank you
This comment was minimized by the moderator on the site
Hello. I did this for a couple of files and it worked successfully. The next few files i tried, did not work. There were a few formulas added to the new names, could that be the issue?
This comment was minimized by the moderator on the site
Very helpful. Thank you!
This comment was minimized by the moderator on the site
great, worked great for me
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations