Hallo zusammen,
ich habe mir ein Video angeschaut, in dem Dateinamen mit einem Makro geändert werden. Dabei ging es in dem Video nur um einen Teil des Namens, der immer wiederkehrend ist, was noch recht einfach ist. Ich habe Musik/Video-Titel, die fortlaufende Nummern haben und möchte sie gerne mit dem korrekten Namen umbenennen.
Dazu habe ich:
- Pfad in A1
- Alle Dateinamen in Spalte D2:D292 eingetragen und in Spalte E2:E292 alle neuen Namen zur Umbenennung
- Das Makro soll nun (in Schleife) jeden Namen mittels SVerweis in Zelle B1 ausgeben und anschließend im Pfad ersetzten
Option Explicit
Sub Ordner_Auslesen()
'Bibliothek aktivieren
'Variablen dimensionieren
Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File
'Pfad auslesen
Pfad = ActiveSheet.Range("A1").Value
'Existiert der Ordner?
If fso.FolderExists(Pfad) Then
'Alle Dateien des Ordners einlesen
Set Ordner = fso.getfolder(Pfad).Files
'Schleife über alle Dateien des Ordners
For Each Datei In Ordner
'Datei Ausgeben
Debug.Print Datei.Name
'Datei umbenenn
'Versuch 1
If InStr(Datei.Name, ActiveSheet.Range("D2:D292")) <> 0 Then
Datei.Name(B1) = WorksheetFunction.VLookup(Datei.Name, ActiveSheet.[D2:D292], 1, False)
'Datei.Name = Replace(Datei.Name, , ActiveSheet.Range("B1"))
'End If
Next Datei
Else
MsgBox "Dieser Ordner existiert nicht."
End If
End Sub
Hier muss irgendein Fehler drin sein.
|