Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")

Dim DateObj
Set DateObj = ScreenItems("DatePick")

Dim filename
filename = "e:\control\tsqn\report\" + CStr(DateValue(DateObj.Value)) +"日报表.xml"

objExcelApp.Visible = True
ObjExcelApp.Workbooks.Open filename
ObjExcelApp.activeworkbook.Sheets(1).Printpreview
objExcelApp.Quit

Set objExcelApp = Nothing


应该是调用EXCEL的预览，实际应用意义不大。
建议建立EXCEL模板，报表数据定时写入。用户打开EXCEL文件进行打印等操作。