Namen auslesen und Dateien umbennen

Forumthread: Namen auslesen und Dateien umbennen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Namen auslesen und Dateien umbennen

11.07.2004 01:50:02

Frank

Hallo,
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?
Vielleicht kann mir jemand helfen. Vielen Dank.
Frank

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Namen auslesen und Dateien umbennen

Ulf

AW: Namen auslesen und Dateien umbennen

Ulf

Die alten Namen stehen in Spalte A, die neuen in Spalte B. Die Anzahl
den Blattnamen und den Pfad musst du anpassen:
Option Explicit


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

Ulf