Mit dem folgenden Makro kann ich eine Sicherungs-Datei im Ordner C:\Sicherungen erstellen, bei der zum Datei-Namen das aktuelle Datum und die Zeit übernommen wird.
Soweit ist es Ok.
Aber wenn ich eine Makro-Datei sichere, werden die Makropfade angepast auf die Sicherungs-Dateien. Auch von der Original-Datei.
Frage 1 : Kann man das Anpassen der Links und Makro Pfade verhindern in der Orginal und Sicherungs-Datei ?
Frage 2 : Ist es Möglich eine Datei von C:\Aktuell\Filme.xls nach C:\Sicherungen\Filme.xls zu koppieren ohne sie in Excel zu laden.
Frage 3 : Oder noch besser von C:\Aktuell\Filme.xls nach C:\Sicherungen\Filme 21-11-05 21-15-31.xls ( Aktuelle Zeit im Dateinamen )
Sub DateiSicherungsCoppy()
Dim Pfad As String, Datei1 As String, Datei2 As String
If ActiveWorkbook.Saved = False Then 'Originaldatei wurde noch nicht gespeichert!
ActiveWorkbook.Save
End If
Datei1 = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 'Name Originaldatei
Pfad = "C:\Sicherungen" 'Pfad zur Sicherung
Datei2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Format(Now, " DD-MM-YYYY hh-mm-ss") & ".xls"
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & Datei2 _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close 'gesicherte Datei schließen
Workbooks.Open Filename:=Datei1 'Originaldatei wieder öffnen
End Sub
Grueße an alle Nathan