Kopie mit Datum speichern
Dirk Götz
ButtonClick eine geöffnete Excel-Datei so als Kopie
speichern, dass mir Datum und Uhrzeit mit angefügt werden.
Unschön ist aber noch, dass ich angeben muss (unter
Pfad), wohin die Datei gespeichert werden soll.
Ich wüsste gerne, wie ich das Makro verändern muss, um
die Kopie in das aktuelle Verzeichnis der Originaldatei
zu speichern.
Vielen Dank für die Hilfe.
Gruß
Dirk
#Code
Sub VersionSpeichern()
'Speichert eine Kopie der geöffneten Datei mit Datum
und Uhrzeit im Format
'Dateiname-Tag-Monat-Jahr_Stunde-Minute-Sekunde.xls
Application.EnableCancelKey = xlDisabled
Pfad = "E:\Versionen\" 'Speicherpfad für Kopien
'Speichern der Datei
If ActiveWorkbook.Path = ""
Then 'Datei wurde noch NIE
gespeichert
Meldung = MsgBox("Speichern Sie die Datei, bevor
Sie Versionen erstellen!", _
16, "Version speichern")
Else 'Da
tei wurde bereits gespeichert
ActiveWorkbook.Save
y = ActiveWorkbook.Name
Datei = Left(y, Len(y) - 4) 'Dateiname ohne ".xls"
x = Now()
Version = "-" & Format(Day(x), "00") & Format
(Month(x), "-00-") & Year(x) _
& "_" & Format(Hour(x), "00-") _
& Format(Minute(x), "00-") & Format(Second
(x), "00")
ActiveWorkbook.SaveCopyAs Filename:=Pfad & Datei
& Version & ".xls"
End If
End Sub
#End of Code
Peter H. Erdmann
füge folgende Zeile vor ActiveWorkbook.SaveCopyAs.... ein
Datei = Application.GetSaveAsFilename(Datei, "Excel-Datei
(*.xls),*.xls")
damit weist Du der Variablen Datei den Dateiname plus
ausgewählten Pfad zu. Danach wie gehabt mit
ActiveWorkbook.SaveCopyAs Filename:=Datei
weiterfahren.
Gruß aus dem Land der Bayern
Peter
>-----Originalnachricht-----
>.
>
Dirk Götz
Gruß
Dirk
>-----Originalnachricht-----
>.
>