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

Ինչպե՞ս վերանվանել թղթապանակի բազմաթիվ ֆայլեր 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- ում:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (36)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի՛ բոլոր, Ինչպե՞ս կարող եմ փոխել Թղթապանակները նույն կերպ, ինչպես ցույց է տրված վերևում: Կարո՞ղ եք սիրով օգնել ինձ այս հարցում: Հարցն այն է. Ինչպե՞ս վերանվանել Excel-ում թղթապանակի մի քանի Թղթապանակ: Հարգանքներով!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ պետք է փոփոխեմ վերը նշված կոդը, եթե իմ հին և նոր անունները չեն սկսվում մինչև տող 11-ը: Ես փոխեցի այս տողը «xRow = Application.Match(xFile, Range(«C11:C5000»), 0)», բայց դա չաշխատեց.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչինչ, ես դա պարզեցի: Շնորհակալություն։ "xRow = Application.Match(xFile, Range("C:C"), 11)"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես վերանվանել ֆայլերը, որոնք պարունակում են չինական նիշեր: Խնդրում եմ օգնեք դրան
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Զարմացած եմ (մի փոքր) տեսնելով, որ ինչ-որ մեկը օգտագործում է նույն շարահյուսությունը vars անվանելու համար (օրինակ, xDir): Այն թույլ է տալիս բացառապես լավ անվանումներով vars, որոնք չեն հակասում համակարգի անուններին (օրինակ, Dir կամ Date): Ես նաև օգտագործում եմ «z» գլոբալ ֆունկցիաների համար (օրինակ՝ zMsg, որը վերադարձնում է true կամ false, քան vbOK կամ vbCancel) և «y» հաստատունների համար (օրինակ՝ yCR vbNewline-ի և yCR2 դրանցից երկուսի համար): Լավ աշխատանք և լավ մտածողություն ձեր կողմից: Դուք պետք է շատ խելացի լինեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է վերանվանել ֆայլի միայն մի հատվածը, առանց ֆայլի ամբողջական անվանումը և ընդլայնումը excel թերթում նշելու: այսինքն փոխել 123-yz.jpg-ը abc-yz.jpg-ի, բայց ես միայն գիտեմ, որ 123-ը պետք է փոխվի abc-ի թղթապանակի յուրաքանչյուր պատկերի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հաջողությամբ օգտագործեցի վերը նշված հրահանգները անցյալ տարի՝ վերանվանելու ֆայլերը կես տասնյակ թղթապանակներում: Այն այնքան լավ աշխատեց, որ ես պահեցի հրահանգները հետագա օգտագործման համար: Վերջերս ես նորից փորձեցի օգտագործել այն, բայց վերևի մակրոները մոդուլի պատուհանում տեղադրելուց հետո, երբ ես սեղմեցի F5-ը, բրաուզերի պատուհան ստանալու փոխարեն՝ ցանկալի թղթապանակը ընտրելու համար, ես ստանում եմ նոր երկխոսության տուփ, որն ինձ հուշում է Մակրո անուն: Կա՞ն առաջարկներ: Ես սովորաբար ունենում եմ տարեկան մոտ 3-4 անգամ, որտեղ ես պետք է վերանվանեմ ֆայլերը այս կերպ, և ես շատ ոգևորված էի, երբ այն աշխատեց անցյալ տարի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ունեմ ավելի քան 100 excel ֆայլ, որոնք ներբեռնել եմ համակարգից և պահել թղթապանակում: Այս բոլոր ֆայլերն ունեն թերթիկ, որը կոչվում է որպես Պարունակություն. Ես ուզում եմ, որ այս excel ֆայլերը անվանվեն՝ օգտագործելով համապատասխան տեքստի AA2 բջիջում Պարունակություն թերթիկ. Այնպիսին, որ այս AA2 բջիջի անունը կլինի հենց այդ Excel ֆայլի Ֆայլի անունը: Թղթապանակի բոլոր ֆայլերը պետք է վերանվանվեն նույն կերպ: Խնդրում ենք առաջարկել մակրո, որը կարող է աշխատել այս կերպ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն. Ձեր խնդիրն արդեն լուծվա՞ծ է: ? Ես կարող եմ օգնել, եթե դեռ չլուծված եմ: Խնդրում եմ ինձ փոստով ուղարկել ձեր առաջադրանքը: Tx Ֆրանց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ պարոն, Աստված օրհնի ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի՛ բոլոր, փորձեք KrojamSoft BatchRename-ը ֆայլերը խմբաքանակով վերանվանելու համար շատ հեշտ է օգտագործել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի այն excel-ի համար, այն փոխում է ֆայլի տեսակը: Կարո՞ղ եք ինձ տրամադրել կոդ csv ֆայլերի վերանվանման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Առաջարկում եմ փորձել KrojamSoft BatchRename
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ նկարների համակցում ստեղծել, օրինակ, ես ունեմ 33 պատկեր և ուզում եմ ստեղծել նկարների համադրություն միմյանց հետ, խնդրում եմ գտնել կից, ես ունեմ ևս 10000 պատկեր, որպեսզի կարողանամ ստեղծել մի քանի պատկեր 1 կտտոցով: խնդրում ենք զանգահարել կամ գրել caparnasingla@gmail.com հասցեով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Զարմանալի կոդերը, խնայել են իմ դժոխային ժամանակը: շնորհակալություն տոննա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բազմաթիվ ֆայլերը վերանվանելու համար կարող եք նաև ստուգել ծրագրակազմը: Որոնեք google-ում- BatchRenameFiles գործիք: Ստուգեք որոնման առաջին արդյունքը:


Շնորհակալություն
Ջոնաթան Ֆ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա փոխվում է խաղի մեջ: Շատ շնորհակալություն!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կցանկանայի վերանվանել բազմաթիվ ֆայլեր թղթապանակներից և ենթաթղթապանակներից: Այսպիսով, ես կարծում եմ, որ VBA կոդը այնտեղ նայում է այն ճանապարհին, որը կա «Պանակ պարունակող թղթապանակ» սյունակում (ես ստուգում եմ «Ներառել ֆայլերը ենթագրքերում» վանդակը): Ես այնքան էլ լավ չեմ VBA կոդավորման համար, բայց ես նայում և փորձում եմ հասկանալ: . Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ կարող հասկանալ միջակայքով (A:A) կամ (B) ինչպես դա սահմանել, շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Դի,

Ինչպես հիշեցնում է նշումը, հղումը A:A ցույց է տալիս հին ֆայլերի անունների ցանկը, որը ցանկանում եք վերանվանել, իսկ B հղումը պարունակում է նոր ֆայլերի անունները, որոնք ցանկանում եք օգտագործել:
, ինչպես ցույց է տրված հետևյալ սքրինշոթը.

Հուսով եմ, որ սա կարող է օգնել ձեզ, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հետևում եմ նույն գործընթացին, բայց չհաջողվեց վերանվանել ֆայլը, ես նույնպես փոխում եմ («A:A») և («B»): Կա՞ որևէ այլ արժեք, որը ես պետք է փոխեմ կոդի մեջ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, որոշ ֆայլեր ունեն նույն անունը: Սցենարները բաց են թողնում այդ ֆայլերը: Կա՞ սկրիպտը փոփոխելու միջոց, որպեսզի յուրաքանչյուր կրկնօրինակ անվան համար ավելացվի 1, 2, 3 և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քեյ,
Կրկնվող նոր անունների հիման վրա ֆայլերը վերանվանելու համար name-1, name-2, հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք փորձել այն:

Նշում. Այս կոդը տեղադրելուց հետո դուք պետք է հղում կատարեք Microsoft Scripting Runtime տարբերակին References-VBAProject երկխոսության վանդակում, ինչպես ցույց է տրված ստորև նշված սքրինշոթը:

Ենթավերանվանել Ֆայլեր ()
Dim xDir As String
Խոնավեցրեք xFile-ը որպես տող
Dim xVal As String
Dim xRow As Long
Dim xCount As Long
Dim xTemp այնքան երկար
Dim xDictionary As New Dictionary
Դիմում. ScreenUpdating = Սուտ է
Ս.թ. սխալի Ռեզյումե Next
Application.FileDialog-ով (msoFileDialogFolderPicker)
.AllowMultiSelect = Սխալ
Եթե ​​.Ցույց տալ = -1 Ապա
xDir = .Selected Items(1)
xFile = Dir(xDir & Application.PathSeparator & «*»)
Արեք մինչև xFile = ""
xՏող = 0
xRow = Application.Match (xFile, Range ("A:A"), 0)
Եթե ​​xRow > 0 Ապա
xCount = 0
xVal = Բջիջներ (xRow, «B»): Արժեք
If Not xDictionary.Exists(xVal) Ապա
xDictionary.Add xVal, xCount
Ուրիշ
xDictionary.Item(xVal) = xDictionary.Item(xVal) + 1
xTemp = InStrRev (xVal, «.")
Բջիջներ(xRow, «B»): Արժեք = Mid(xVal, 1, xTemp - 1) & «-» & CStr(xDictionary.Item(xVal)) & Mid(xVal, xTemp)
Վերջ: Եթե
Անվանեք xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B"): Արժեք
Վերջ: Եթե
xFile = Ռեժ
Հանգույց
Վերջ: Եթե
Վերջ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից