View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
nbaj2k[_29_] nbaj2k[_29_] is offline
external usenet poster
 
Posts: 1
Default Save spreadsheet into folder based on today's Date?


Below is what I have right now, I can't figure out how to put the dat
in the filename also. I wanted it to say DailyReports-Aug-04-06.xl
(with the date of course being the day prior of the current day. I'
not sure where to move the quotes on the bolded line so that I ca
include that.

Is there a way to do that?

Thanks,

~J

MyDate = Trim(VBA.Format(Now(), "MM-DD-YY"))
Application.DisplayAlerts = False
MkDir "G:\DailyReportsTest\" & MyDate
ACTIVEWORKBOOK.SAVEAS FILENAME:=\"G:\DAILYREPORTSTEST\\" & _
MYDATE & \"\DAILYREPORT.XLS\
'ActiveWorkbook.Close False
Application.DisplayAlerts = Tru

--
nbaj2
-----------------------------------------------------------------------
nbaj2k's Profile: http://www.excelforum.com/member.php...fo&userid=3648
View this thread: http://www.excelforum.com/showthread.php?threadid=56830