Savecopyas med dato
Jeg har lavet en knap som skal SaveCopyAsJeg vil gerne have den nye fil gemt med dato istedet for xx som i nedenstående eksempel
Håber der er en der kan hjælpe med at få datoen automatisk ind
Private Sub CommandButton1_Click()
Dim MyDate
MyDate = Date ' MyDate contains the current system date.
ActiveWorkbook.SaveCopyAs "D:\MKP\Dokumenter\Excel\xx.XLS"
End Sub