Adding date when using ExportAsHtml

[aarondewberry]

Hi All. I have this AFTER REFRESH code to export my data as Html. As this report is daily I want it to export and save as that days date. ie. "Daily Report 26/05/06". How do I export and save this report adding todays date without going into the code and changing the date everytime.
Any ideas

Dim DOC As Document
Dim REP As Report
Set DOC = Application.Documents.Item(1)
Set REP = DOC.Reports.Item(1)
REP.ExportAsHtml ("string\Daily Report 26/05/06" + ".xls")

 

[DrSmyth]

dim mydate as string
Dim DOC As Document
Dim REP As Report
mydate = date
Set DOC = Application.Documents.Item(1)
Set REP = DOC.Reports.Item(1)
REP.ExportAsHtml ("string\Daily Report " & format(mydate, "dd-mm-yy") + ".xls")

this should work...

 

[aarondewberry]

Thanks for the response.
I added this extra string to my code but it still only saves as Daily Report.

 

[DrSmyth]

sorry should be:
dim mydate as date