Insert Todays Date - 3 in file name

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have the following code which save a file from one directory to another and adds the date with each save:

ChDir "I:\EXLDATA\BatchTracking"
Workbooks.Open Filename:="I:\EXLDATA\BatchTracking\AttyPlace.xls"
ChDir "I:\EXLDATA\ATTYMGMT\Batch Tracking"
ActiveWorkbook.SaveAs Filename:= _
"I:\EXLDATA\ATTYMGMT\Batch Tracking\AttyPlace" & _
Format(Date, "yyyy-mm-dd") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub

I run the file on Monday, but would like it to save with Friday's date. Would it be possible to do something like TodaysDate - 3, or Date, "yyyy-mm-dd - 3"?
 
If you just want 3 days ago use

Format(Date-3, "yyyy-mm-dd")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

Hargrove said:
I have the following code which save a file from one directory to another
Click to expand...
and adds the date with each save:
ChDir "I:\EXLDATA\BatchTracking"
Workbooks.Open Filename:="I:\EXLDATA\BatchTracking\AttyPlace.xls"
ChDir "I:\EXLDATA\ATTYMGMT\Batch Tracking"
ActiveWorkbook.SaveAs Filename:= _
"I:\EXLDATA\ATTYMGMT\Batch Tracking\AttyPlace" & _
Format(Date, "yyyy-mm-dd") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub

I run the file on Monday, but would like it to save with Friday's date.
Click to expand...
Would it be possible to do something like TodaysDate - 3, or Date,
"yyyy-mm-dd - 3"?
 
Back
Top