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
Listázza ki az összes fájlnevet egy adott mappából a kutools for Excel munkalapon
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 
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:
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:
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
Nevezzen át egy mappa több fájlját az Excelben VBA kóddal
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:
É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:
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:
 |
 |
 |
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
Bemutató: Egy mappa több fájljának átnevezése az Excel programban
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
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...
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!
