Ugrás a tartalomra

Hogyan lehet átnevezni egy mappa több fájlját az Excel programban?

Lehet, hogy a legtöbben szenvedünk ettől a problémától, hogy több fájlt kell átneveznünk egy mappában, a fájlnevek egyesével történő átnevezéséhez pedig megőrülünk, ha több száz vagy ezer fájl van ebben a mappában. Vannak-e jó funkciók ennek a feladatnak a kezelésére?

Listázza ki az összes fájlnevet egy adott mappából a kutools for Excel munkalapon

Nevezzen át egy mappa több fájlját az Excelben VBA kóddal


Ha több fájlt szeretne átnevezni, akkor először a régi fájlneveket sorolja fel a munkalap oszlopába, majd írja be az új fájlneveket, amelyekkel cserélni kívánja. Az összes fájl gyors felsorolásához a munkalapon használhatja a Kutools az Excel számára'S Fájlnév lista hasznosság.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket :( Ingyenesen töltse le a Kutools for Excel alkalmazást most )

1. Kattints Kutools Plus > Import Export > Fájlnév lista, lásd a képernyőképet:

2. Az Fájlnév lista párbeszédpanelen kattintson a gombra doc-rename-multiple-fies-1 gombbal válassza ki a fájlmappát, amelybe fel kívánja sorolni a fájlokat, majd kattintson a gombra Minden fájl tól Fájlok típusa, lásd a képernyőképet:

doc-rename-multiple-fies-1

3. Ezután kattintson OK gombra, az összes fájlnév egy új munkalap oszlopában, valamint néhány fájlattribútumban szerepel, és most törölhet más nem kívánt oszlopokat, és csak a File Name oszlop, lásd a képernyőképet:

doc-rename-multiple-fies-1

Kattintson ide, ha többet szeretne megtudni erről a fájlnévlista szolgáltatásról ...

Ingyenesen töltse le a Kutools for Excel alkalmazást most


Miután az összes eredeti fájlnevet felsorolta egy A oszlopba, és írja be az új fájlneveket a B oszlopba, az alábbi képernyőkép szerint:

doc-rename-multiple-fies-1

És itt egy VBA kódról fogok beszélni, amely segíthet abban, hogy egyszerre cserélje le a régi fájlneveket az új fájlnevekre. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak.

VBA kód: Több fájl átnevezése egy mappában

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. A kód beillesztése után nyomja meg a gombot F5 gombot a kód futtatásához, és a Tallózás ablakban válassza ki azt a mappát, amelyben a fájlneveket módosítani szeretné, lásd a képernyőképet:

doc-rename-multiple-fies-1

4. Kattintson a gombra OK, az összes régi fájlnevet azonnal felváltotta az új fájlnév. Képernyőképek megtekintése:

doc-rename-multiple-fies-1 2 doc-rename-multiple-fies-1

Megjegyzések:

1. A régi és új fájlnevek felsorolásakor a fájlkiterjesztést is fel kell venni.

2. A fenti kódban a hivatkozás A: A az átnevezni kívánt régi fájlnevek listáját és hivatkozását jelöli B tartalmazza a használni kívánt új fájlneveket, szükség szerint megváltoztathatja azokat


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikkek:

Hogyan készíthetünk szekvencia munkalapokat az Excel cellatartományából?

Hogyan lehet átnevezni több munkalapot az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (37)
No ratings yet. Be the first to rate!
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
This comment was minimized by the moderator on the site
Thank you so much for your information. It was really nice!
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