Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս վերանվանել թղթապանակի բազմաթիվ ֆայլեր Excel- ում:

Գուցե մեզանից շատերը տառապում են այս խնդրով, որ մենք պետք է վերանվանենք մի քանի ֆայլ թղթապանակում, ֆայլի անունները մեկ առ մեկ վերանվանելը մեզ խելագար կդարձնի, եթե այդ պանակում լինեն հարյուրավոր կամ հազարավոր ֆայլեր: Կա՞ն որևէ լավ գործառույթներ, որոնք կարող են գործ ունենալ այս խնդրի հետ:

Excel- ի համար kutools- ի աշխատանքային թերթիկում նշեք բոլոր ֆայլերի անունները որոշակի թղթապանակից

Վերանվանեք մի թղթապանակի բազմաթիվ ֆայլեր Excel- ում VBA կոդով


Եթե ​​կան բազմաթիվ ֆայլեր, որոնք ցանկանում եք վերանվանել, նախ, դուք կարող եք ցուցակի հին ֆայլի անունները թվարկել աշխատանքային թերթի սյունակում, ապա մուտքագրել նոր ֆայլի անուններ, որոնցով ցանկանում եք փոխարինել: Բոլոր ֆայլերը աշխատանքային թերթում արագ ցուցակագրելու համար կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ'S Ֆայլի անվանացանկ կոմունալ.

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա )

1: Սեղմեք Kutools Plus > Ներմուծման արտահանման > Ֆայլի անվանացանկ, տես նկարի նկարը.

2, Մեջ Ֆայլի անվանացանկ երկխոսության վանդակում, սեղմեք doc-rename-multiple-files-1 կոճակը ընտրելու համար այն ֆայլերի պանակը, որը ցանկանում եք թվարկել ֆայլերը, ապա կտտացնել Բոլոր ֆայլերը - ից Ֆայլերի տեսակը, տես նկարի նկարը.

doc-rename-multiple-files-1

3. Այնուհետեւ կտտացրեք OK կոճակը, ֆայլի բոլոր անունները նշվել են նոր աշխատանքային թերթի սյունակում, ինչպես նաև ֆայլի որոշ հատկություններ, և այժմ կարող եք ջնջել այլ անցանկալի սյունակներ և թողնել միայն Պատկեր Անունը սյունակ, տես նկարի նկարը.

doc-rename-multiple-files-1

Կտտացրեք ՝ այս ֆայլի անվանացանկի հատկության մասին ավելին իմանալու համար

Անվճար ներբեռնեք Kutools Excel- ի համար հիմա


Մեկ սյունակում բոլոր բնօրինակ ֆայլի անունները ցուցադրելուց հետո, և B սյունակում պետք է մուտքագրեք նոր ֆայլի անուններ, ինչպես ցույց է տրված հետևյալ նկարը.

doc-rename-multiple-files-1

Եվ այստեղ ես կխոսեմ VBA կոդի մասին, որը կարող է օգնել ձեզ միանգամից փոխարինել հին ֆայլի անունները նոր ֆայլի անուններով: Խնդրում ենք անել հետևյալ քայլերով.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլի պատուհանը.

VBA կոդ. Թղթապանակում վերանվանել բազմաթիվ ֆայլեր

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, Կոդի տեղադրումից հետո սեղմեք F5 ստեղնը այս կոդն աշխատեցնելու համար, և Թերթել պատուհանը, ընտրեք այն թղթապանակը, որը ցանկանում եք փոխել ֆայլի անունները, տես նկարի նկարը.

doc-rename-multiple-files-1

4. Եվ այնուհետեւ կտտացրեք OK, բոլոր հին ֆայլի անունները անմիջապես փոխարինվել են նոր ֆայլերի անուններով: Տեսեք սքրինշոթերը.

doc-rename-multiple-files-1 2 doc-rename-multiple-files-1

Նշումներ:

1. Երբ ցուցակում եք ձեր հին և նոր ֆայլերի անունները, ֆայլի ընդլայնումը պետք է ներառվի:

2. Վերոնշյալ ծածկագրում `հղումը Ա. Ա նշում է ֆայլերի անունների հին ցուցակը, որը ցանկանում եք վերանվանել և հղում B պարունակում է նոր ֆայլերի անուններ, որոնք ցանկանում եք օգտագործել, կարող եք դրանք փոխել ըստ ձեր կարիքի


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս ստեղծել հաջորդականության աշխատանքային թերթեր Excel- ի մի շարք բջիջներից:

Ինչպե՞ս վերանվանել բազմաթիվ աշխատանքային թերթեր Excel- ում:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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