VBA: sichern und löschen ?
07.08.2005 22:05:42
HansH
jetzt habe ich mich wohl total verrannt. Ich wollte erreichen, dass meine Datei ab einem bestimmten Datum in C:\sichern\ gespeichert wird und im Ursprungsverzeichnis gelöscht. Den Code fürs löschen hatte ich aus diesem Forum und funktionierte, den oberen Teil habe ich versucht per Macro-Recorder aufzuzeichnen und einzubinden. Egal was ich als Anfänger in VBA dabei auch tue, es wird nur schlimmer. Kann mir vielleicht jemand helfen? Hier mein bisheriges "Ergebnis":
Private Sub Workbook_BeforeClose()
'im folgenden sollte die Datei in C:\sichern als "sichernlöschenb.xls" sichern
If Date > DateValue("06.08.2005") Then
ChDir "C:\sichern"
ActiveWorkbook.SaveAs Filename:="C:\sichern\sichernlöschenb.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date > DateValue("06.08.2005") Then
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
'die nächste Zeile sollte die Datei im Ursprungsverzeichnis löschen
'Kill ThisWorkbook.FullName
End If
End Sub
https://www.herber.de/bbs/user/25394.xls
Danke für die Mühen
HansH