Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save with dates
Following is my code, basically this report is run weekly from previous
Monday date to Sunday date. This macro does everything except add in those dates to the file name. Any suggestions? Dim wb As Workbook Dim ws As Worksheet Dim x As Variant Dim y As Variant Dim strFileName As String Set wb = ActiveWorkbook Set ws = wb.Worksheets("idrmterm") x = Format(Date - 7, mm - dd - yy) y = Format(Date - 1, mm - dd - yy) Dim strPath As String strPath = "H:\REPORTS\Every Monday Reports\" '===strFileName = x & " " & y & ws & ".xls"<<<=== ActiveWorkbook.SaveAs Filename:=strPath & strFileName Set wb = Nothing Set ws = Nothing Application.Dialogs(xlDialogSendMail).Show ActiveWorkbook.Close End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change 2006 calendar to 2007 and save dates in Excel | Excel Discussion (Misc queries) | |||
Disable save, save as, but allow save via command button | Excel Programming | |||
How to diasble save and save as menu but allow a save button | Excel Programming | |||
How to create command button to save the dates and time | Excel Discussion (Misc queries) | |||
Totally Disabling (^ save ) (Save as) and Save Icon – Which code do I use: | Excel Programming |