Namen auslesen und Dateien umbennen
01.08.2018 15:39:56
Hans
im Archiv habe ich folgenden Beitrag gefunden:
Ich habe eine Tabelle. In der einen Spalte stehen die alten Dateinamen, in der anderen die neuen. Es handelt sich dabei um komplett neue Namen. Z.B. aus "Werner hier" soll werden "Lieschen dort". Alle diese Dateien liegen in einem Verzeichnis. Wie muss nun ein Script aussehen, dass die Dateinamen einfach nur austauscht, in dem es auf die Tabelle Excel zurückgreift, die Datei mit diesem Namen im definierten Verzeichnis sucht und dann durch den neuen Namen ersetzt?
Antwort war:
Sub umbenennen()
Const PFAD As String = "C:\Test\"
Dim z As Byte, ws As Worksheet
Set ws = Sheets("Tabelle1")
For z = 1 To 3
Name PFAD & ws.Cells(z, 1) As PFAD & ws.Cells(z, 2)
Next
End Sub
Ich habe das versucht umzusetzen, leider klappt es nicht.
Es sollen PDF Dateien umbeannt werden. Ich habe die Dateinamen entsprechend
in Spalte A erfasst und die neuen Dateinamen in Spalte B.
Jeweils im Format XXXX.pdf
Hat jemand einen Lösungsvorschlag für mich?
Viele Grüße
Hans