Hur byter jag namn på flera filer i en mapp i Excel?
Det kan hända att de flesta av oss drabbas av detta problem att vi behöver byta namn på flera filer i en mapp, för att byta namn på filnamnen en efter en kommer att göra oss galna om det finns hundratals eller tusentals filer i den mappen. Finns det några bra funktioner för oss att hantera denna uppgift?
Steg 1: Lista alla filnamn från en specifik mapp i kalkylbladet med kutools för Excel
Steg 2: Byt namn på flera filer i en mapp i Excel med VBA-kod
Lista alla filnamn från en viss mapp i kalkylbladet med kutools för Excel
Om det finns flera filer som du vill byta namn på, kan du först lista de gamla filnamnen i en kolumn i kalkylbladet och sedan ange de nya filnamnen som du vill ersätta med. För att snabbt lista alla filer i kalkylbladet kan du använda Kutools för ExcelÄr Lista över filnamn verktyg.
När du har installerat Kutools för Excel, gör så här :( Gratis nedladdning Kutools för Excel nu )
1. Klicka Kutools Plus > Import Export > Lista över filnamn, se skärmdump:
2. I Lista över filnamn dialogrutan, klicka för att välja den filmapp som du vill lista filerna och klicka sedan på Alla filer från Filtyp, se skärmdump:
3. Klicka sedan OK knappen, har alla filnamn listats i en kolumn i ett nytt kalkylblad, liksom vissa filattribut, och nu kan du radera andra oönskade kolumner och bara lämna FILNAMN kolumn, se skärmdump:
Klicka för att veta mer om den här filnamnslistan ...
Gratis nedladdning Kutools för Excel nu
Byt namn på flera filer i en mapp i Excel med VBA-kod
Efter att ha listat alla ursprungliga filnamn i kolumn A, och du bör skriva nya filnamn i kolumn B som följande skärmdump visas:
Och här kommer jag att prata om en VBA-kod som kan hjälpa dig att ersätta de gamla filnamnen med de nya filnamnen på en gång. Gör så här:
1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationsfönster.
2. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster.
VBA-kod: Byt namn på flera filer i en mapp
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. När du har klistrat in koden, tryck F5 för att köra den här koden och i Bläddra välj den mapp som du vill ändra filnamnen i, se skärmdump:
4. Och klicka sedan på OK, har alla gamla filnamn ersatts med de nya filnamnen omedelbart. Se skärmdumpar:
![]() | ![]() | ![]() |
Anmärkningar:
1. När du listar dina gamla och nya filnamn måste filtillägget inkluderas.
2. I ovanstående kod, referensen A: A anger den gamla filnamnlistan som du vill byta namn på och referens B innehåller de nya filnamnen som du vill använda kan du ändra dem efter behov
Demo: Byt namn på flera filer i en mapp i Excel
Relaterade artiklar:
Hur skapar jag sekvensarbetsblad från ett antal celler i Excel?
Hur byter jag namn på flera kalkylblad i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!