Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Filename Help
I'm trying to create a sub rountine that will save the active woorbook with
the current date and time. Sub test() ActiveWorkbook.SaveAs Format(Now, "dd-mm-yy h-mm-ss") & ".xls" End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ed" wrote in message ... I'm trying to create a sub rountine that will save the active woorbook with the current date and time. E2 has the NOW() function. I copied the code from another woorbook and tried to modify it and now I'm just lost. What I want to do is save the routine in a woorbook called FTR.xls, but want to execute the procedure on different woorbooks that I open. Sub Save_File () ActiveWorkbook.SaveAs Filename:=Sheets("Sheet5").Range("E2").Value & ".xls" End Sub T.I.A. Ed |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Filename Help
I'm trying to create a sub rountine that will save the active woorbook with
the current date and time. E2 has the NOW() function. I copied the code from another woorbook and tried to modify it and now I'm just lost. What I want to do is save the routine in a woorbook called FTR.xls, but want to execute the procedure on different woorbooks that I open. Sub Save_File () ActiveWorkbook.SaveAs Filename:=Sheets("Sheet5").Range("E2").Value & ".xls" End Sub T.I.A. Ed |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Filename Help
Thanks
"Ron de Bruin" wrote in message ... I'm trying to create a sub rountine that will save the active woorbook with the current date and time. Sub test() ActiveWorkbook.SaveAs Format(Now, "dd-mm-yy h-mm-ss") & ".xls" End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ed" wrote in message ... I'm trying to create a sub rountine that will save the active woorbook with the current date and time. E2 has the NOW() function. I copied the code from another woorbook and tried to modify it and now I'm just lost. What I want to do is save the routine in a woorbook called FTR.xls, but want to execute the procedure on different woorbooks that I open. Sub Save_File () ActiveWorkbook.SaveAs Filename:=Sheets("Sheet5").Range("E2").Value & ".xls" End Sub T.I.A. Ed |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs "Filename"_1 | Excel Discussion (Misc queries) | |||
SaveAs Filename and FileFormat in Vs2007 | Excel Discussion (Misc queries) | |||
set filename to <filename-date on open | Excel Worksheet Functions | |||
SaveAs using two cells for filename | Excel Discussion (Misc queries) | |||
Max charactors for 'ActiveWorkbook.SaveAs Filename'? | Excel Worksheet Functions |