Wie benennt man alle Bilddateien in einem Ordner gemäß einer Liste von Zellen in Excel um?
Mussten Sie jemals mehrere Bilder in einem Ordner anhand einer Namensliste aus einem Excel-Arbeitsblatt umbenennen? Das manuelle Umbenennen jedes einzelnen Bildes kostet wertvolle Zeit – doch mit einem einfachen VBA-Code lässt sich dieser Prozess im Handumdrehen automatisieren.
Alle Bilddateien in einem Ordner umbenennen
Alle Bilddateien in einem Ordner umbenennen
Um Alle Bilddateien in einem angegebenen Ordner umzubenennen, führen Sie die folgenden Schritte aus:
Schritt 1: Importieren Sie die ursprünglichen Dateinamen aus dem Ordner in ein Arbeitsblatt in Excel
1. Drücken Sie „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. Anschließend erscheint ein Dialogfeld, in dem Sie eine Zelle auswählen, in der die Namensliste ausgegeben werden soll. Siehe Screenshot:
4. Klicken Sie auf „OK“ und wählen Sie den gewünschten Ordner aus, dessen Bildnamen Sie im aktuellen Arbeitsblatt auflisten möchten. Siehe Screenshot:
5. Klicken Sie auf „OK“. Die Bildnamen wurden im aktuellen Arbeitsblatt aufgelistet.
Schritt 2: Benennen Sie die Bilddateien basierend auf einer neuen Namensliste um
1. Drücken Sie die Tastenkombination „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 Sub3. Drücken Sie die Taste „F5“, um den Code auszuführen. Anschließend erscheint ein Dialogfeld, in dem Sie die ursprünglichen Bildnamen auswählen können, die Sie ersetzen möchten. Siehe Screenshot:
4. Klicken Sie auf „OK“ und wählen Sie im zweiten Dialogfeld den neuen Namen aus, anhand dessen die Bildnamen ersetzt werden sollen. Siehe Screenshot:
5. Klicken Sie auf „OK“. Es erscheint ein Dialogfeld mit der Meldung, dass die Bildnamen erfolgreich ersetzt wurden.
6. Klicken Sie auf „OK“. Die Bildnamen im Ordner werden durch den neuen Namen aus den Zellen des Arbeitsblatts ersetzt.
 |
 |
 |
Verwandte Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins