Ga naar hoofdinhoud

Hoe hernoem ik meerdere bestanden van een map in Excel?

Misschien hebben de meesten van ons te kampen met dit probleem dat we meerdere bestanden in een map moeten hernoemen. Als we de bestandsnamen een voor een hernoemen, worden we gek als er honderden of duizenden bestanden in die map staan. Zijn er goede functies voor ons om deze taak uit te voeren?

Maak een lijst van alle bestandsnamen uit een specifieke map in het werkblad met kutools voor Excel

Hernoem meerdere bestanden van een map in Excel met VBA-code


Als er meerdere bestanden zijn waarvan u de naam wilt wijzigen, kunt u eerst de oude bestandsnamen weergeven in een kolom met een werkblad en vervolgens de nieuwe bestandsnamen invoeren die u wilt vervangen. Om snel alle bestanden in het werkblad weer te geven, kunt u de Kutools for Excel's Bestandsnaam lijst utility.

Na het installeren van Kutools for Excel, doe dan als volgt :( Download nu Kutools voor Excel )

1. Klikken Koetools Plus > Importeren en exporteren > Bestandsnaam lijst, zie screenshot:

2. In de Bestandsnaam lijst dialoogvenster, klik doc-hernoemen-meerdere-bestanden-1 om de bestandsmap te kiezen waarin u de bestanden wilt weergeven, en klik vervolgens op Alle bestanden van het Bestanden type, zie screenshot:

doc-hernoemen-meerdere-bestanden-1

3. Dan klikken OK knop, zijn alle bestandsnamen in een kolom van een nieuw werkblad weergegeven, evenals enkele bestandskenmerken, en nu kunt u andere ongewenste kolommen verwijderen en alleen de Bestandsnaam kolom, zie screenshot:

doc-hernoemen-meerdere-bestanden-1

Klik om meer te weten over deze functie Bestandsnamenlijst ...

Download nu Kutools voor Excel


Nadat u alle originele bestandsnamen in één kolom A hebt opgesomd, en u moet nieuwe bestandsnamen in kolom B typen zoals in de volgende schermafbeelding:

doc-hernoemen-meerdere-bestanden-1

En hier zal ik het hebben over een VBA-code die u kan helpen om de oude bestandsnamen in één keer te vervangen door de nieuwe bestandsnamen. Voer de volgende stappen uit:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

VBA-code: hernoem meerdere bestanden in een map

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. Druk na het plakken van de code op F5 sleutel om deze code uit te voeren, en in de Blader venster, selecteer de map waarin u de bestandsnamen wilt wijzigen, zie screenshot:

doc-hernoemen-meerdere-bestanden-1

4. En klik vervolgens op OK, zijn alle oude bestandsnamen onmiddellijk vervangen door de nieuwe bestandsnamen. Zie screenshots:

doc-hernoemen-meerdere-bestanden-1 2 doc-hernoemen-meerdere-bestanden-1

Opmerkingen:

1. Als u uw oude en nieuwe bestandsnamen opgeeft, moet de bestandsextensie worden vermeld.

2. In de bovenstaande code, de referentie A: A geeft de oude bestandsnamenlijst aan die u wilt hernoemen, en verwijst naar B bevat de nieuwe bestandsnamen die u wilt gebruiken, u kunt deze naar behoefte wijzigen


Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerde artikelen:

Hoe maak je reekswerkbladen uit een reeks cellen in Excel?

Hoe hernoem ik meerdere werkbladen in Excel?

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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