SaveCopyAs
12.04.2005 11:09:20
83Rose
Ich möchte eine Datei sowohl an Ihrem aktuellen Ort als auch eine Kopie auf einem Server speichern.
Wenn ich nur über SaveAs zuerst am aktuellen Ort speichere und dann auf dem Server funktioniert es einwandfrei, allerdings wird dann die Datei auf dem Server zur aktuell geöffneten, das möchte ich jedoch nicht.
so wie ich es nicht möchte funktioniert es:
Sub Makro1()
' Datei an aktuellem Ort speichern
ActiveWorkbook.Save
' Datei im Portal speichern
Dim Datname
Datname = <a href=""http://bdtportal.bdt-rw.de/sites/azubi/Shared%20Documents/Formulare%20BDT/Reichweiten"">"http://bdtportal.bdt-rw.de/sites/azubi/Shared%20Documents/Formulare%20BDT/Reichweiten"</a>
ActiveWorkbook.SaveAs Filename:=Datname & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
und so geht es nicht:
Sub Makro1()
' Datei an aktuellem Ort speichern
ActiveWorkbook.Save
' Datei im Portal speichern
Dim Datname
Datname = <a href=""http://bdtportal.bdt-rw.de/sites/azubi/Shared%20Documents/Formulare%20BDT/Reichweiten"">"http://bdtportal.bdt-rw.de/sites/azubi/Shared%20Documents/Formulare%20BDT/Reichweiten"</a>
ActiveWorkbook.SaveCopyAs Filename:=Datname & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Wo liegt mein Fehler, bzw. wie kann ich das Ganze anders lösen?
Gruß,
Ellen