Trying to save a worksheet
Help!!!
I recorded a macro to save as a worksheet in a workbook. I get the save as dialog box. What I want to do is once my data is populated in the worksheet to click my button (i want to attach my macro to ) save a new worksheet to the same directory every time with a different name like a date. for example c:\temp\07152004 And also not show the save as box I don't want to have to click any button just look in the temp directory and see file names. is this doable? |
Trying to save a worksheet
Hi
try something like sub save_it dim fname dim fpath fpath="c:\temp\" fname=Format(now,"MMDDYYYY_hhmmss") activeworkbook.saveas fpath & fname end sub -- Regards Frank Kabel Frankfurt, Germany Saving a worksheet with different names wrote: Help!!! I recorded a macro to save as a worksheet in a workbook. I get the save as dialog box. What I want to do is once my data is populated in the worksheet to click my button (i want to attach my macro to ) save a new worksheet to the same directory every time with a different name like a date. for example c:\temp\07152004 And also not show the save as box I don't want to have to click any button just look in the temp directory and see file names. is this doable? |
Trying to save a worksheet
Frank you are awesome. This is what I wanted.
Thank you Ptree Chicago, Illinois "Frank Kabel" wrote: Hi try something like sub save_it dim fname dim fpath fpath="c:\temp\" fname=Format(now,"MMDDYYYY_hhmmss") activeworkbook.saveas fpath & fname end sub -- Regards Frank Kabel Frankfurt, Germany Saving a worksheet with different names wrote: Help!!! I recorded a macro to save as a worksheet in a workbook. I get the save as dialog box. What I want to do is once my data is populated in the worksheet to click my button (i want to attach my macro to ) save a new worksheet to the same directory every time with a different name like a date. for example c:\temp\07152004 And also not show the save as box I don't want to have to click any button just look in the temp directory and see file names. is this doable? |
Trying to save a worksheet
I would modify Frank's macro to put the year in front as
in YYYYMMDD_hhmmss in your backup. That would make sure you know when you created it rather than just going by what you see in the directory which is usually the date modified. "Frank Kabel" wrote in message ... Hi try something like sub save_it dim fname dim fpath fpath="c:\temp\" fname=Format(now,"MMDDYYYY_hhmmss") activeworkbook.saveas fpath & fname end sub |
Trying to save a worksheet
Hi Ptree,
Please avoid changing the subject. It makes for confusion, because it looks like it is in a separate thread. In Outlook Express we will see replies below ours in RED. Since you posted through Communities, I don't know what you see but you are able to identify replies to your questions in some marked manner. Even if you supply the thankyou to a different subthread chances are everyone in the thread will have seen it. When a Thank You is really important in a thread is when you get divergent answers not replies that enhance each other but completely different interpretations of the problem or different ways of solving the same problem -- that is when the Thank You indicates which solution is was actually used and why. --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Thank you" <Thank wrote in message ... Frank you are awesome. This is what I wanted. Thank you Ptree Chicago, Illinois |
Trying to save a worksheet
Works great for me Frank but there's always something more, right? Can I
make the contents of a cell a prefix to the date code. In my case the contents of cell c15 of the original workbook is a customer core that we put in. This work help us sort saved files by customer when necessary. "Frank Kabel" wrote: Hi try something like sub save_it dim fname dim fpath fpath="c:\temp\" fname=Format(now,"MMDDYYYY_hhmmss") activeworkbook.saveas fpath & fname end sub -- Regards Frank Kabel Frankfurt, Germany Saving a worksheet with different names wrote: Help!!! I recorded a macro to save as a worksheet in a workbook. I get the save as dialog box. What I want to do is once my data is populated in the worksheet to click my button (i want to attach my macro to ) save a new worksheet to the same directory every time with a different name like a date. for example c:\temp\07152004 And also not show the save as box I don't want to have to click any button just look in the temp directory and see file names. is this doable? |
Trying to save a worksheet
Option explicit
Sub SaveIt2() dim fName as string dim fPath as string fpath = "c:\temp\" with activeworkbook fname = .worksheets("sheet999").range("c15").value _ & format(now, "mmddyyyy_hhmmss") & ".xls" .saveas filename:=fpath & fname, fileformat:=xlworkbooknormal end with End Sub kennected wrote: Works great for me Frank but there's always something more, right? Can I make the contents of a cell a prefix to the date code. In my case the contents of cell c15 of the original workbook is a customer core that we put in. This work help us sort saved files by customer when necessary. "Frank Kabel" wrote: Hi try something like sub save_it dim fname dim fpath fpath="c:\temp\" fname=Format(now,"MMDDYYYY_hhmmss") activeworkbook.saveas fpath & fname end sub -- Regards Frank Kabel Frankfurt, Germany Saving a worksheet with different names wrote: Help!!! I recorded a macro to save as a worksheet in a workbook. I get the save as dialog box. What I want to do is once my data is populated in the worksheet to click my button (i want to attach my macro to ) save a new worksheet to the same directory every time with a different name like a date. for example c:\temp\07152004 And also not show the save as box I don't want to have to click any button just look in the temp directory and see file names. is this doable? -- Dave Peterson |
All times are GMT +1. The time now is 11:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com