Sicherheitskopie
28.10.2007 22:05:00
Frank
hoffe dass mir jemand weiter helfen kann.
Habe im Archiv eine Variante gefunden, wie ich eine Sicherheitskopie anlegen kann. Diese stammt von Nepomuk und ChargerRT.
Funktioniert aber nicht. ich möchte gern, dass die Kopie schon bei der Workbook_open Prozedur aufgerufen wird. Egal was ich anstelle!!!?
Hier der Code - vielleicht kann ja mal jemand drüber schauen und mir sagen was ich ändern sollte.
(muß das nun Active Workbook od. ThisWorkbook heißen wenn ich nur eine Excelmappe aufhabe?)
Danke und Gruß Frank
Sub sicherheit()
Dim str As String
Const LW = "C:\"
Const Pfad = "C:\Franki\"
str = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & "_" & Format(Now, ".MM. _
DD-hh.mm") & Right(ActiveWorkbook.FullName, 4)
ChDrive LW
ChDir Pfad
ActiveWorkbook.SaveCopyAs Filename:=str ', FileFormat:=xlNormal
End Sub