Hvordan omdøbes flere filer i en mappe i Excel?
Det kan være, at de fleste af os lider af dette problem, at vi har brug for at omdøbe flere filer i en mappe. At omdøbe filnavnene en efter en vil gøre os vanvittige, hvis der er hundreder eller tusinder filer i den mappe. Er der nogen gode funktioner for os til at håndtere denne opgave?
Liste over alle filnavne fra en bestemt mappe i regneark med kutools til Excel
Omdøb flere filer i en mappe i Excel med VBA-kode
Liste over alle filnavne fra en bestemt mappe i regneark med kutools til Excel
Hvis der er flere filer, som du vil omdøbe, kan du først angive de gamle filnavne i en kolonne i regnearket og derefter indtaste de nye filnavne, som du vil erstatte med. For hurtigt at liste alle filer i regnearket kan du bruge Kutools til Excel's Liste over filnavne nytte.
Efter installation Kutools til Excel, gør venligst som følger :( Gratis download Kutools til Excel nu )
1. Klik Kutools Plus > Import Eksport > Liste over filnavne, se skærmbillede:
2. I Liste over filnavne dialogboksen, klik knappen for at vælge den filmappe, som du vil have en liste over filerne, og klik derefter på Alle filer fra Filtype, se skærmbillede:
3. Klik derefter på OK knap, alle filnavne er blevet vist i en kolonne i et nyt regneark samt nogle filattributter, og nu kan du slette andre uønskede kolonner og kun forlade File Name kolonne, se skærmbillede:
Klik for at vide mere om denne filnavnelistefunktion ...
Gratis download Kutools til Excel nu
Omdøb flere filer i en mappe i Excel med VBA-kode
Efter at have vist alle originale filnavne i en kolonne A, og du skal skrive nye filnavne i kolonne B som følgende skærmbillede vist:
Og her vil jeg tale om en VBA-kode, der kan hjælpe dig med at erstatte de gamle filnavne med de nye filnavne på én gang. Gør følgende:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende makro i Modulvindue.
VBA-kode: Omdøb flere filer i en mappe
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 indsat koden, skal du trykke på F5 nøgle til at køre denne kode, og i Gennemse vindue, vælg den mappe, som du vil ændre filnavnene i, se skærmbillede:
4. Og klik derefter på OK, alle de gamle filnavne er straks erstattet af de nye filnavne. Se skærmbilleder:
Bemærkninger:
1. Når du viser dine gamle og nye filnavne, skal filtypen inkluderes.
2. I ovenstående kode henvisningen A: En angiver den gamle filnavne liste, du vil omdøbe, og henvisning B indeholder de nye filnavne, som du vil bruge, kan du ændre dem efter behov
Demo: Omdøb flere filer i en mappe i Excel
Relaterede artikler:
Hvordan oprettes sekvensregneark fra en række celler i Excel?
Hvordan omdøbes flere regneark i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!