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
Maak een lijst van alle bestandsnamen uit een specifieke map in het werkblad met kutools voor Excel
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 om de bestandsmap te kiezen waarin u de bestanden wilt weergeven, en klik vervolgens op Alle bestanden van het Bestanden type, zie screenshot:
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:
Klik om meer te weten over deze functie Bestandsnamenlijst ...
Download nu Kutools voor Excel
Hernoem meerdere bestanden van een map in Excel met VBA-code
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:
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:
4. En klik vervolgens op OK, zijn alle oude bestandsnamen onmiddellijk vervangen door de nieuwe bestandsnamen. Zie screenshots:
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
Demo: hernoem meerdere bestanden van een map in Excel
Gerelateerde artikelen:
Hoe maak je reekswerkbladen uit een reeks cellen in Excel?
Hoe hernoem ik meerdere werkbladen in Excel?
Beste Office-productiviteitstools
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...
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!