Dateinamen effizient kürzen in Excel und Word
Schritt-für-Schritt-Anleitung
Um Dateinamen in einem Verzeichnis mithilfe von VBA zu kürzen, kannst du das folgende Skript verwenden. Es kürzt die Dateinamen auf 8 Zeichen für Excel- und Word-Dateien.
- Öffne Excel und erstelle ein neues Modul (Alt + F11, dann Einfügen > Modul).
- Kopiere den folgenden VBA-Code in das Modul:
Sub Rename_Files()
Dim tmpName As String, tarName As String, tarPath As String
Dim myFSO As Object, myFld As Object, myFldFiles As Object, myFile As Object
Dim docCounter As Integer, xlsCounter As Integer, renCounter As Integer
Dim i As Integer, fileCount As Integer
Dim myErr As Integer
On Error GoTo myErrorHandler
'Erstellen des FileSystemObjectes
Set myFSO = CreateObject("Scripting.FileSystemObject")
tarPath = InputBox("Bitte Verzeichnis angeben, indem die Daten umbenannt werden sollen", "Rename Action", "C:\DemoVerz")
If Not myFSO.folderexists(tarPath) Then
MsgBox "Der Ordner :"" " & tarPath & " "" existiert nicht.", vbCritical + vbOKOnly, "Abbruch"
Exit Sub
End If
docCounter = 0
xlsCounter = 0
renCounter = 0
myErr = 1
'Name Schleife starten
Set myFld = myFSO.GetFolder(tarPath)
Set myFldFiles = myFld.Files
For Each myFile In myFldFiles
tmpName = myFile.Name
If Right(tmpName, 3) = "doc" Then
tarName = Left(tmpName, 8) & ".doc"
ElseIf Right(tmpName, 3) = "xls" Then
tarName = Left(tmpName, 8) & ".xls"
End If
myFile.Name = tarName
renCounter = renCounter + 1
Next
MsgBox "Es wurden " & renCounter & " Dateien umbenannt"
Exit Sub
myErrorHandler:
MsgBox Err.Number & ": " & Err.Description, vbCritical + vbOKOnly, "Unerwarteter Fehler"
Exit Sub
End Sub
- Schließe den VBA-Editor und führe das Makro aus.
Dieses Skript fragt nach dem Verzeichnis, in dem die Dateien umbenannt werden sollen, und kürzt die Dateinamen auf die ersten 8 Zeichen.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du eine schnellere Methode bevorzugst, kannst du auch eine Batch-Datei verwenden, um Dateinamen zu kürzen:
- Erstelle eine Textdatei mit der Endung
.bat, z.B. name.bat.
- Füge die folgenden Zeilen ein:
rename *.xls ?.xls
rename *.doc ?.doc
- Führe die Batch-Datei im entsprechenden Verzeichnis aus.
Diese Methode ist besonders nützlich, wenn du viele Dateien auf einmal umbenennen möchtest und nicht auf VBA angewiesen sein willst.
Praktische Beispiele
- VBA Beispiel: Ein Makro, das alle Excel-Dateien in einem Verzeichnis auf 8 Zeichen kürzt.
- Batch Beispiel: Eine Batch-Datei, die alle
.xls und .doc Dateien umbenennt, kann in verschiedenen Verzeichnissen mit rename verwendet werden.
Tipps für Profis
- Nutze die
FileSystemObject-Klasse in VBA, um erweiterte Dateimanagement-Funktionen zu implementieren.
- Experimentiere mit
Option Explicit am Anfang deines VBA-Codes, um sicherzustellen, dass alle Variablen deklariert sind.
- Wenn du regelmäßig zu lange Dateinamen automatisch kürzen möchtest, kannst du das VBA-Makro in dein Arbeitsbuch integrieren und es anpassen, um es bei Bedarf auszuführen.
FAQ: Häufige Fragen
1. Wie kann ich die Dateinamen auf mehr oder weniger als 8 Zeichen kürzen?
Ändere einfach die Zahl 8 im VBA-Code zu der gewünschten Länge.
2. Funktioniert das Kürzen von Dateinamen auch für andere Dateitypen?
Ja, du kannst das Skript anpassen, um auch andere Dateiformate zu berücksichtigen, indem du die Bedingungen entsprechend erweiterst.
3. Was passiert, wenn zwei Dateien denselben Namen haben?
Das Skript behandelt dies, indem es einen Zähler für die umbenannten Dateien hinzufügt, sodass es nicht zu Namenskonflikten kommt.