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 Sub3. 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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins