Arbeitsblatt Sicherheitskopie an neuem Ort
22.02.2004 21:57:25
ChargerRT
Ich verwende es mit dem Makro (2)
Private Sub Workbook_BeforeSave _.
Nur sollte die Sicherung nicht am gleichen Ort ( wie es jetzt der Fall ist ) erfolgen, sondern unter C:\1111.
Weiterhin möchte ich das bei nichtvorhandensein des Ordners C:\1111 dieser erstellt wird! da der sonst auftretende Makrofehler nicht akzeptabel ist für die Anwender der Arbeitsmappe.
(1)
Sub speichern4()
Dim str As String
Const Lw = "c:\"
Const Pfad = "c:\1111\"
str = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & "_" & Format(Now, "YYYY.MM.DD-hh.mm.ss") & Right(ActiveWorkbook.FullName, 4)
ChDrive Lw
ChDir Pfad
ActiveWorkbook.SaveCopyAs Filename:=str ', FileFormat:=xlNormal
End Sub
(2)
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Abbrechen As Boolean)
Application.Run "speichern4"
End Sub
Original sah das Makro (1) mal so aus :
Sub speichern()
ActiveWorkbook.SaveCopyAs Filename:=Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & "_" & Format(Now, "YYYY-MM-DD-hh-mm-ss") & Right(ActiveWorkbook.FullName, 4)
End Sub
Ich hab schon alles Probiert, auch div Vorschläge aus dem Internet die aber alle eins gemeinsam haben,
es wird die Datei nie unter dem alten Namen mit dem Zusatz des Datum und der Uhrzeit inc. Sekunden gespeichert.
Wer kann mir hier weiter helfen ich bin dankbar für jeden Hinweis