Falscher Verzeichnisname ?
25.03.2003 15:27:21
Michael
Ich habe folgendes Problem: Ich möchte geöffnete Dateien mit Hilfe eines Makros unter ihrem alten Namen in einem Verzeichnis abspeichern, dessen letztes Glied aus einer Zelle dieser Tabelle stammt. Das Verzeichnis selbst ist vorhanden.
Folgenden Code habe ich angegeben:
Sub AllesAmGenanntenOrtSpeichern()
Dim wb1 As Integer
Dim WorkFileName As String
Dim NewFileName As String
For wb1 = 1 To Application.Workbooks.Count
WorkFileName = Workbooks(wb1).Name
Workbooks(wb1).Activate
ZelleZ2 = Range("Z2")
NewFileName = "C:\ABT_1\zme\Abt.7\Sg_1\" & ZelleZ2 & "\" & WorkFileName
Workbooks(wb1).SaveAs FileName:=NewFileName
Next
End Sub
Die Fehlermeldung besagt, dass das Verzeichnis (Ordner) nicht existiert. Wenn ich aber anstelle von ZelleZ2 den Verzeichnisnamen direkt angebe, klappt's. Ich würde mich sehr freuen, wenn mir da jemand einen Tipp geben könnte.
Gruß
Michael