Speichern NICHT unter Standardordner
14.07.2003 10:29:07
david
wie kann ich per Makro eine Kopie meiner Datei genau dort speichern, wo auch das Original liegt. Problem ist, dass ich nicht den Ordner der Originaldatei ins Makro schreiben kann, da mehrere Personen an verschiedenen Rechnern damit arbeiten.
Wäre super, wenn mir jmd sagen könnte, wie ich den Ordner der aktuellen Arbeitsmappe bestimme.
Sub saveUnterTagesdatum()
Dim sPath As String, sFile As String
sPath = Application.DefaultFilePath & "\"
sFile = Format(Date, "yyyymmdd") & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFile
ActiveWorkbook.Close savechanges:=False
MsgBox ("Das Blatt wurde unter" & sPath & sFile & " gespeichert ")
End Sub
Besten Dank
David