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

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 en kolumn A, och du ska 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?

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...