Wie benenne ich mehrere Dateien eines Ordners in Excel um?
Möglicherweise leiden die meisten von uns unter dem Problem, dass wir mehrere Dateien in einem Ordner umbenennen müssen. Wenn Sie die Dateinamen einzeln umbenennen, werden wir verrückt, wenn sich Hunderte oder Tausende Dateien in diesem Ordner befinden. Gibt es gute Funktionen für uns, um diese Aufgabe zu bewältigen?
Listen Sie alle Dateinamen aus einem bestimmten Ordner im Arbeitsblatt mit kutools for Excel auf
Benennen Sie mehrere Dateien eines Ordners in Excel mit VBA-Code um
Listen Sie alle Dateinamen aus einem bestimmten Ordner im Arbeitsblatt mit kutools for Excel auf
Wenn Sie mehrere Dateien umbenennen möchten, können Sie zuerst die alten Dateinamen in einer Spalte des Arbeitsblatts auflisten und dann die neuen Dateinamen eingeben, durch die Sie ersetzen möchten. Um schnell alle Dateien im Arbeitsblatt aufzulisten, können Sie die verwenden Kutools for Excel Dateinamenliste Dienstprogramm.
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor :( Laden Sie Kutools for Excel jetzt kostenlos herunter )
1. Klicken Sie Kutoolen Plus > Import Export > Dateinamenliste, siehe Screenshot:
2. In dem Dateinamenliste Dialogfeld, klicken Sie auf 
Klicken Sie auf die Schaltfläche, um den Dateiordner auszuwählen, in dem Sie die Dateien auflisten möchten, und klicken Sie dann auf Alle Dateien von dem Dateityp, siehe Screenshot:
3. Dann klick OK Schaltfläche, alle Dateinamen wurden in einer Spalte eines neuen Arbeitsblatts aufgelistet, sowie einige Dateiattribute. Jetzt können Sie andere unerwünschte Spalten löschen und nur die verlassen Dateiname Spalte, siehe Screenshot:
Klicken Sie hier, um mehr über diese Funktion für die Dateinamenliste zu erfahren.
Laden Sie Kutools for Excel jetzt kostenlos herunter
Benennen Sie mehrere Dateien eines Ordners in Excel mit VBA-Code um
Nachdem Sie alle ursprünglichen Dateinamen in einer Spalte A aufgelistet haben, sollten Sie neue Dateinamen in Spalte B eingeben, wie im folgenden Screenshot gezeigt:
Und hier werde ich über einen VBA-Code sprechen, der Ihnen helfen kann, die alten Dateinamen sofort durch die neuen Dateinamen zu ersetzen. Bitte machen Sie folgende Schritte:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Anwendungsfenster.
2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.
VBA-Code: Benennen Sie mehrere Dateien in einem Ordner um
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. Nach dem Einfügen des Codes drücken Sie bitte F5 Schlüssel zum Ausführen dieses Codes und in der Entdecken Wählen Sie im Fenster den Ordner aus, in dem Sie die Dateinamen ändern möchten. Siehe Screenshot:
4. Und dann klick OKAlle alten Dateinamen wurden sofort durch die neuen Dateinamen ersetzt. Siehe Screenshots:
 |
 |
 |
Anmerkungen:
1. Wenn Sie Ihre alten und neuen Dateinamen auflisten, muss die Dateierweiterung enthalten sein.
2. Im obigen Code die Referenz A: A Gibt die alte Dateinamenliste an, die Sie umbenennen möchten, und verweist darauf B Enthält die neuen Dateinamen, die Sie verwenden möchten, können Sie sie nach Bedarf ändern
Demo: Benennen Sie mehrere Dateien eines Ordners in Excel um
In Verbindung stehende Artikel:
Wie erstelle ich Arbeitsblätter für Sequenzen aus einer Reihe von Zellen in Excel?
Wie benenne ich mehrere Arbeitsblätter in Excel um?
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
