AW: datei per VBA kopieren
17.11.2005 23:31:11
Aton
Hallo
Dieses Makro coppiert die Aktuelle mappe in den ordner C:\Sicherungen
Dieser Pfad anpassen, oder den Ordner erstellen.
Datum und Uhrzeit nach Dateinamen.
Gruß Aton
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