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

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 ffeiliau 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 :( Lawrlwytho Am Ddim 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 ...

Lawrlwytho Am Ddim 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?


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 (34)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bawb, Sut alla i newid FFOLDERAU yn yr un ffordd ag y dangosir uchod? A allech chi fod mor garedig â fy helpu gyda'r mater hwn? Y cwestiwn yw: Sut i ailenwi FFOLDERS lluosog o ffolder yn Excel? Cofion cynnes!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth sydd angen i mi ei addasu yn y cod uchod os nad yw fy enwau hen a newydd yn dechrau tan Rhes 11. Newidiais y llinell hon "xRow = Application.Match(xFile, Range("C11:C5000"), 0)" ond mae'n ddim yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heb feddwl, fe wnes i ei ddeall. Diolch. " xRow = Application.Match(xFile, Range("C:C"), 11)"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ailenwi ffeiliau sy'n cynnwys nodau Tsieineaidd mewn enw. Helpwch arno os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi synnu (ychydig) gweld rhywun yn defnyddio'r un gystrawen ar gyfer enwi vars (xDir, er enghraifft). Mae'n caniatáu ar gyfer vars a enwir yn eithriadol o dda nad ydynt yn gwrthdaro ag enwau systemau (ee, Dir neu Date). Rwyf hefyd yn defnyddio 'z' ar gyfer swyddogaethau byd-eang (ee, zMsg, sy'n dychwelyd gwir neu gau yn hytrach na vbOK neu vbCancel) ac 'y' ar gyfer cysonion (ee, yCR ar gyfer vbNewline ac yCR2 ar gyfer dau ohonynt). Gwaith da a meddwl da ar eich rhan. Rhaid i chi fod yn smart iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl ailenwi darn o enw ffeil yn unig heb ddatgan enw llawn y ffeil a'r estyniad yn y ddalen excel? hy newid 123-yz.jpg i abc-yz.jpg ond dwi ond yn gwybod bod angen newid 123 i abc ar bob delwedd yn y ffolder?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cyfarwyddiadau uchod yn llwyddiannus y llynedd i ailenwi ffeiliau mewn hanner dwsin o ffolderi. Fe weithiodd mor dda nes i mi gadw'r cyfarwyddiadau i'w defnyddio yn y dyfodol. Yn ddiweddar, ceisiais ei ddefnyddio eto, ond ar ôl gludo'r macro uchod yn ffenestr y Modiwl pan fyddaf yn taro F5 yn lle cael ffenestr porwr i ddewis y ffolder a ddymunir, rwy'n cael blwch deialog newydd yn fy annog am enw Macro. Unrhyw awgrymiadau? Fel arfer mae gen i tua 3-4 gwaith y flwyddyn lle mae angen i mi ailenwi ffeiliau fel hyn, ac roeddwn i'n gyffrous iawn pan weithiodd y llynedd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i fwy na 100 o ffeiliau excel yr wyf wedi'u llwytho i lawr o system a'u cadw yn y ffolder. Mae gan yr holl ffeiliau hyn ddalen a enwir fel Cynnwys. Rwyf am i'r ffeiliau excel hyn gael eu henwi gan ddefnyddio'r testun sydd ar gael yng Nghell AA2 y priod Cynnwys cynfas. Fel mai'r enw yn y Gell AA2 hon fydd union enw Ffeil y ffeil Excel briodol honno. dylai'r holl ffeiliau yn y ffolder gael eu hail-enwi yn yr un modd. Awgrymwch facro a all weithio fel hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. A yw eich tasg eisoes wedi'i Datrys. ? Gallaf helpu os yn dal heb ei ddatrys. Pls post ataf eich tasg. Tx Franz
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr syr, Dduw bendithia chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bawb, Ceisiwch KrojamSoft BatchRename ar gyfer swp ailenwi'r ffeiliau ei hawdd iawn i'w defnyddio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais ar gyfer excel, mae'n newid ffeil type.Can chi rhowch cod i mi ar gyfer ailenwi ffeiliau csv.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Awgrymaf roi cynnig ar KrojamSoft BatchRename
Lleihawyd y sylw hwn gan y safonwr ar y wefan
rydw i eisiau gwneud combo o luniau er enghraifft mae gen i 33 o ddelweddau ac rydw i eisiau creu combo o luniau gyda'i gilydd, os gwelwch yn dda canfod bod gen i 10000 yn fwy o ddelweddau fel y gallaf greu 1 clic o ddelweddau lluosog. ffoniwch neu e-bostiwch caparnasingla@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, codau anhygoel, wedi arbed llawer o amser i'm uffern .. diolch tunnell ..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I ailenwi'r ffeiliau lluosog gallwch hefyd wirio meddalwedd. Chwiliwch ar google- Offeryn BatchRenameFiles. Gwiriwch y canlyniad chwiliad cyntaf.


diolch
Jonathan F.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gêm newid. Diolch yn fawr iawn!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn ailenwi ffeiliau lluosog o ffolderi ac is-ffolderi. Felly rwy'n meddwl bod cod VBA yno yn edrych ar y llwybr sydd yn y Golofn 'Yn Cynnwys Ffolder' (Rwy'n Gwiriwch y blwch ticio 'Cynnwys ffeiliau mewn is-gyfeiriaduron') Nid wyf yn agos yn ddigon da ar gyfer codio VBA, ond rwy'n edrych ac yn ceisio deall . Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf ddeall gydag ystod (A:A) neu (B) sut i ddiffinio hynny, diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Dee,

Fel y mae'r nodyn yn ei atgoffa, mae'r cyfeirnod A:A yn nodi'r hen restr enwau ffeiliau rydych chi am eu hail-enwi, ac mae cyfeiriad B yn cynnwys yr enwau ffeiliau newydd rydych chi am eu defnyddio
, fel y dangosir y sgrinlun a ganlyn:

Gobeithio y gall hyn eich helpu, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dilyn yr un broses ond ni lwyddais i ailenwi'r ffeil yr wyf hefyd yn ei newid ("A:A") a ("B"). A oes unrhyw werth arall y mae angen i mi ei newid yn y cod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gan rai o'r ffeiliau yr un enw. Mae sgriptiau'n hepgor y ffeiliau hynny. A oes ffordd i addasu'r sgript fel ei fod yn ychwanegu rhif 1, 2, 3 ac yn y blaen ar gyfer pob enw dyblyg?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Kay,
I ailenwi'r ffeiliau yn seiliedig ar enwau newydd dyblyg gydag enw-1, enw-2, efallai y bydd y cod VBA canlynol yn eich helpu, rhowch gynnig arni.

Nodyn: Ar ôl gludo'r cod hwn, dylech gyfeirio at yr opsiwn Microsoft Scripting Runtime yn y blwch deialog References-VBAProject fel y dangosir y sgrinlun isod.

Is-Ailenwi Ffeiliau()
Dim xDir Fel Llinyn
Dim xFile Fel Llinynnol
Dim xVal Fel Llinyn
Dim xRow Cyhyd
Dim x Cyfri Cyn Hir
Dim xTemp Cyhyd
Dim xGeiriadur Fel Geiriadur Newydd
Application.ScreenUpdating = Anghywir
Ar Ail-ddechrau Gwall Nesaf
Gyda Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = Gau
Os .Show = -1 Yna
xDir = .Eitemau Dewisol(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Gwneud Tan xFile = ""
xRhes = 0
xRow = Application.Match(xFile, Range("A:A"), 0)
Os xRow > 0 Yna
xCyfrif = 0
xVal = Celloedd(xRow, "B").Gwerth
Os Na xDictionary.Exists(xVal) Yna
xDictionary.Add xVal, xCount
arall
xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
xTemp = InStrRev(xVal, ".")
Celloedd(xRow, "B").Gwerth = Canol(xVal, 1, xTemp - 1) & "-" & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
Gorffennwch Os
Enw xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Gwerth
Gorffennwch Os
xFile = Dir
dolen
Gorffennwch Os
Diwedd Gyda
Application.ScreenUpdating = Gwir
Is-End
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