Schau dir das mal an, vielleicht hilft das.
Zu Punkt 1:
Dim DatumUhrzeit As String
DatumUhrzeit = Format(Now, "DD" & "." & "MM" & "." & "YYYY" & "_" & "hh" & ":" & "mm" & ":" & "ss") 'Wird zu 08.02.2018_9:40:34
ActiveWorkbook.SaveAs Filename:="Pfad & "Dateiname & DatumUhrzeit"
Zu Punkt 2:
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "Pfad\DeineDatei.xls", "NeuerPfad\Archiv\"
Workbooks("Deine Datei.xls").Close SaveChanges:=False 'Oder True, wie du willst
Hab es nicht getestet, sollte aber klappen. Ne kurze Rückmeldung wäre nett.
Gruß Mark
|