Macro to save Excel file with date and time in the file name?
Does someone out there have a macro that when executed would save the current
Excel spreadsheet in the form "filename-current date-current time.xls" and leave the file open for editing? Ideally, I would like to pin the macro to a button on the user's toolbar. Thank you for you help in advance. Troy |
Macro to save Excel file with date and time in the file name?
With Activeworkbook .SaveAs .Filename & "-" & Format(Now,"dd-mmm-yyyy-hh-mm-ss") End With -- HTH RP (remove nothere from the email address if mailing direct) "sonic_d_hog" wrote in message ... Does someone out there have a macro that when executed would save the current Excel spreadsheet in the form "filename-current date-current time.xls" and leave the file open for editing? Ideally, I would like to pin the macro to a button on the user's toolbar. Thank you for you help in advance. Troy |
Macro to save Excel file with date and time in the file name?
"sonic_d_hog" wrote in message
... Does someone out there have a macro that when executed would save the current Excel spreadsheet in the form "filename-current date-current time.xls" and leave the file open for editing? Ideally, I would like to pin the macro to a button on the user's toolbar. Thank you for you help in advance. Troy If you already have a file named Xxxxxx-date-time.xls: ========================= Public Sub SaveAsDateTime() With ActiveWorkbook .SaveAs Left(ActiveWorkbook.FullName, _ InStr(1, ActiveWorkbook.FullName, "-")) _ & Format(Now, "yyyymmdd-hhmmss") & ".xls" End With End Sub ========================= Ciao Bruno |
All times are GMT +1. The time now is 03:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com