Macro using save as Sttright table to QVD

[Surya]

Hello .,

sub Export

set obj1 = ActiveDocument.GetSheetObject("CH197")

obj1.ExportBiff "C:\User 4\Surya\Date.qvd"

end sub

I Reload every day my dashboard on that time the QVD save as Today's Date.,Plase help me 

Thanks In Advance

[Surya · Accepted solution]

sub Export
set obj1 = ActiveDocument.GetSheetObject("CH197")

strDate = Day(Date()) &"-"& month(date()) &"-"& Year(Date())

obj1.ExportBiff "C:\User 4\Surya\"&strDate&".xlsx"

end sub