用下面这段代码打开的只是excel主程序，根本不是我的文件，为什么？

Sub OnClick(ByVal Item)
Dim myfile,dstr,fname

dstr = FormatDateTime(Date)


fname=HMIRuntime.ActiveProject.Path +"\"+dstr+".xls"

Dim ObjExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExCelApp.Visible =True

objExcelApp.Workbooks.Open fnamee

'objExcelApp.ActiveWorkbook.Save
'
'objExcelApp.Workbooks.Close
'
'objExcelApp.Quit

'Set objExcelApp = Nothing
End Sub