Dateiname beim speichern ändern
24.01.2005 12:46:06
Tina
Mit diesem Code lege ich ein Jahres-Folder, sowie ein Folder
mit dem aktuellen Tagesdatum an, in dem die Datei gespeichert wird.
Klappt auch wunderbar - so nun möchte ich noch mit dem Workbook_BeforeSave
Ereignis erreichen, dass beim speichern immer die Zeit im Dateiname
aktualisiert wird.
z.B. test-9_45_21.xls muss dann, wenn ich um 12 Uhr speichere so heissen:
test-12_00_36.xls
Hoffe, dass ich mich verständlich ausgedrückt habe und mir jemand helfen kann.
Sub History()
Dim sPath As String
sPath = "H:\Data\test\"
On Error Resume Next
MkDir sPath & Format(Date, "YYYYMMDD")
sPath = sPath & Format(Date, "YYYYMMDD") & "\"
ActiveWorkbook.SaveAs sPath & _
ActiveWorkbook.Name & "-" & Format(Now(), "hh_mm_ss") & ".xls"
On Error GoTo 0
End Sub
Danke schon mal und Gruss
Tina