Wie kann man alle Bilddateien in einem Ordner entsprechend einer Liste von Zellen in Excel umbenennen?
Mussten Sie jemals mehrere Bilder in einem Ordner basierend auf einer Namensliste in einem Excel-Arbeitsblatt umbenennen? Das Umbenennen einzeln kann zeitaufwendig sein, aber mit Hilfe von VBA-Codes können Sie den Prozess schnell automatisieren.
Alle Bilddateien in einem Ordner umbenennen
Alle Bilddateien in einem Ordner umbenennen
Um alle Bilddateien in einem bestimmten Ordner umzubenennen, folgen Sie diesen Schritten:
Schritt 1: Importieren Sie die ursprünglichen Dateinamen aus dem Ordner in ein Arbeitsblatt in Excel.
1. Drücken Sie die Tasten „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Skript ein.
VBA: Bildnamen aus einem Ordner abrufen
Sub PictureNametoExcel()
'UpdatebyExtendoffice201709027
Dim I As Long
Dim xRg As Range
Dim xAddress As String
Dim xFileName As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a cell to place name list:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xRg = xRg(1)
xRg.Value = "Picture Name"
With xRg.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
End With
xRg.EntireColumn.AutoFit
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
I = 1
If xFileDlg.Show = -1 Then
xFileDlgItem = xFileDlg.SelectedItems.Item(1)
xFileName = Dir(xFileDlgItem & "\")
Do While xFileName <> ""
If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".gif") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
I = I + 1
End If
xFileName = Dir
Loop
End If
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste „F5“, um den Code auszuführen, und ein Dialogfenster erscheint, das Sie auffordert, eine Zelle auszuwählen, um die Namensliste auszugeben. Siehe Screenshot:
4. Klicken Sie auf „OK“ und wählen Sie den angegebenen Ordner aus, dessen Bildnamen Sie im aktuellen Arbeitsblatt auflisten möchten. Siehe Screenshot:
5. Klicken Sie auf „OK“. Die Bildnamen wurden im aktiven Arbeitsblatt aufgelistet.
Schritt 2: Benennen Sie die Bilddateien basierend auf einer neuen Namensliste um.
1. Drücken Sie die Tasten „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Skript ein.
VBA: Bilddateien in einem Ordner umbenennen
Sub RenameFile()
'UpdatebyExtendoffice20170927
Dim I As Long
Dim xLastRow As Long
Dim xAddress As String
Dim xRgS, xRgD As Range
Dim xNumLeft, xNumRight As Long
Dim xOldName, xNewName As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select Original Names(Single Column):", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select New Names(Single Column):", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRgS.Rows.Count
Set xRgS = xRgS(1)
Set xRgD = xRgD(1)
For I = 1 To xLastRow
xOldName = xRgS.Offset(I - 1).Value
xNumLeft = InStrRev(xOldName, "\")
xNumRight = InStrRev(xOldName, ".")
xNewName = xRgD.Offset(I - 1).Value
If xNewName <> "" Then
xNewName = Left(xOldName, xNumLeft) & xNewName & Mid(xOldName, xNumRight)
Name xOldName As xNewName
End If
Next
MsgBox "Congratulations! You have successfully renamed all the files", vbInformation, "KuTools For Excel"
Application.ScreenUpdating = True
End Sub
3. Drücken Sie die Taste „F5“, um den Code auszuführen, und ein Dialogfenster erscheint, das Sie auffordert, die ursprünglichen Bildnamen auszuwählen, die Sie ersetzen möchten. Siehe Screenshot:
4. Klicken Sie auf „OK“ und wählen Sie die neuen Namen aus, mit denen Sie die Bildnamen im zweiten Dialogfenster ersetzen möchten. Siehe Screenshot:
5. Klicken Sie auf „OK“, ein Dialogfenster erscheint, das Sie darüber informiert, dass die Bildnamen erfolgreich ersetzt wurden.
6. Klicken Sie auf „OK“ und die Bildnamen im Ordner werden durch die neuen Namen aus den Zellen im Arbeitsblatt ersetzt.
![]() |
![]() |
![]() |
Verwandte Artikel:
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!