Preskoči na glavno vsebino

Kako preimenovati več datotek v mapi v Excelu?

Morda večina izmed nas trpi zaradi te težave, da moramo v mapi preimenovati več datotek, če jih bomo preimenovali eno za drugo, nas bo ponorelo, če bo v tej mapi na stotine ali tisoče datotek. Ali obstajajo dobre funkcije za reševanje te naloge?

V delovnem listu s kutools za Excel navedite vsa imena datotek iz določene mape

Preimenujte več datotek v mapi v Excelu s kodo VBA


Če želite preimenovati več datotek, lahko najprej v stolpec delovnega lista navedete stara imena datotek in nato vnesete nova imena datotek, s katerimi želite nadomestiti. Za hiter seznam vseh datotek na delovnem listu lahko uporabite Kutools za ExcelJe Seznam imen datotek uporabnost.

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj )

1. Kliknite Kutools Plus > Uvozno-izvoznih > Seznam imen datotek, glej posnetek zaslona:

2. v Seznam imen datotek pogovorno okno, kliknite doc-preimenuj-več-datotek-1 , da izberete mapo z datotekami, v katero želite dodati datoteke, in kliknite Vse datoteke Iz Vrsta datotek, glej posnetek zaslona:

doc-preimenuj-več-datotek-1

3. Nato kliknite OK , so vsa imena datotek navedena v stolpcu novega delovnega lista, pa tudi nekateri atributi datotek, zdaj pa lahko izbrišete druge neželene stolpce in pustite le Ime datoteke stolpec, glej posnetek zaslona:

doc-preimenuj-več-datotek-1

Kliknite, če želite izvedeti več o tej funkciji seznama datotek ...

Brezplačno prenesite Kutools za Excel zdaj


Ko navedete vsa izvirna imena datotek v enem stolpcu A, v stolpec B vnesite nova imena datotek, kot je prikazano na sliki spodaj:

doc-preimenuj-več-datotek-1

Tukaj bom govoril o kodi VBA, ki vam lahko pomaga, da hkrati zamenjate stara imena datotek z novimi. Naredite naslednje:

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic za aplikacije.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

Koda VBA: Preimenujte več datotek v mapi

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. Po lepljenju kode pritisnite F5 ključ za zagon te kode in v Brskanje izberite mapo, v katero želite spremeniti imena datotek, glejte posnetek zaslona:

doc-preimenuj-več-datotek-1

4. In nato kliknite OK, so vsa stara imena datotek takoj zamenjala nova. Oglejte si posnetke zaslona:

doc-preimenuj-več-datotek-1 2 doc-preimenuj-več-datotek-1

Opombe:

1. Ko navedete stara in nova imena datotek, mora biti vključena pripona datoteke.

2. V zgornji kodi sklic A: A označuje stari seznam imen datotek, ki ga želite preimenovati, in sklic B vsebuje nova imena datotek, ki jih želite uporabiti, jih lahko po potrebi spremenite


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Sorodni članki:

Kako ustvariti delovne liste zaporedja iz vrste celic v Excelu?

Kako preimenovati več delovnih listov v Excelu?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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