Needed Macro

craigwojo

Board Regular
Joined
Jan 7, 2005
Messages
214
Hi everyone,

I there a way to assign a macro that saves the file as the year_month_day - hour_minute_second.xls and place it in "My Documents".

Even more so - it can make a new folder labeled "Orders To Go" in "My Documents Folder" (area) and place the file in it. In the case that there is a folder already with "Orders To Go" in it, it will place the file in that folder.

Note: This file (with this macro) will be used on many different computers.

Thank you,
Craig
 

Some videos you may like

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
For the first you can use something along these lines:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">Dim</SPAN> CurrentUser <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
        CurrentUser = LCase(Environ("UserName"))
        
        ActiveWorkbook.SaveAs _
        "C:\Documents and Settings\" & CurrentUser & "\My Documents\" & Format(Date, "yyyy-mm-dd") & " - " & Format(Now, "hh-mm-ss") & ".xls"

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

For the second, check out the VB helpfile for the CreateFolder Method.

HTH,

Smitty
 

craigwojo

Board Regular
Joined
Jan 7, 2005
Messages
214
Thank you,

I really don't understand on what to do here. What do I put where? I apologize for being a novice when it comes to this.

Thank you,
Craig
 

Watch MrExcel Video

Forum statistics

Threads
1,114,407
Messages
5,547,766
Members
410,811
Latest member
adustin42
Top