Hoppa till huvudinnehåll

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?

Lista alla filnamn från en viss mapp i kalkylbladet med kutools för Excel

Byt namn på flera filer i en mapp i Excel med VBA-kod


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 doc-byt namn på flera filer-1 för att välja den filmapp som du vill lista filerna och klicka sedan på Alla filer från Filtyp, se skärmdump:

doc-byt namn på flera filer-1

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:

doc-byt namn på flera filer-1

Klicka för att veta mer om den här filnamnslistan ...

Gratis nedladdning Kutools för Excel nu


Efter att ha listat alla ursprungliga filnamn i en kolumn A, och du ska skriva nya filnamn i kolumn B som följande skärmdump visas:

doc-byt namn på flera filer-1

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:

doc-byt namn på flera filer-1

4. Och klicka sedan på OK, har alla gamla filnamn ersatts med de nya filnamnen omedelbart. Se skärmdumpar:

doc-byt namn på flera filer-1 2 doc-byt namn på flera filer-1

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


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

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

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

Beskrivning


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!
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