AW: Dateiname bei autom. Speichern
15.02.2013 08:21:05
Klaus
Hi Hary,
me.name generiert "Datei.xlsx", das xlsx wird natürlich gebraucht. Deine Lösung fabriziert "2013-12-24 18_30_50 NAME.xlsxHansMueller" und xlsxHansMueller ist natürlich kein gültiger Dateiname.
Hallo Tobiax,
so sollte es gehen (ich bastel mir den Dateinamen in einem String stück für stück zusammen):
Dim sDName As String
sDName = Format(Now(), "YYYY-MM-DD hh_mm_ss ")
sDName = sDName & VBA.Left(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", _
ActiveWorkbook.Name) - 1)
sDName = sDName & " " & Environ("Username")
sDName = sDName & VBA.Mid(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", _
ActiveWorkbook.Name), 99)
Me.SaveCopyAs strPfadArchiv & sDName
oder 1-Zeilig aber nicht mehr gut nachvollziehbar:
Me.SaveCopyAs strPfadArchiv & Format(Now(), "YYYY-MM-DD hh_mm_ss ") & VBA.Left(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", ActiveWorkbook.Name) - 1) & " " & Environ("Username") & VBA.Mid(ActiveWorkbook.Name, Application.WorksheetFunction.Find(".", ActiveWorkbook.Name), 99)
Grüße,
Klaus M.vdT.