Speichern
12.10.2004 14:49:40
Dave
Ich habe follgendes Problem. Ich möchte ein Workbook mittels Macro direkt abspeichern. Mit diesem Code kann ich dies tun, leider Speichert
Excel das File immer unter dem Default Folder.
Wie kann ich diesen Folder ändern???
Dim sPath As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "P:\1_Dave\3_Temp\test"
sFile = Format(Date, "yyyymmdd") & "_33.v11"
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox "Das ist ja lieb"
Application.ScreenUpdating = True
Gruess Dave