非常不解，同样的方法，我在笔记本上正常实现，在现场的电脑上打开就不前置，需要切换才能看EXCEL。求大神帮忙！

代码如下：（电脑的e:路径下有"test.xls"文件）

Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)        

Dim fso,myfile,daystr,dstr,fname   

dstr = "test"

fname="e:\" + dstr + ".xls"    

Dim ObjExcelApp   

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.visible = True   

objExcelApp.Workbooks.Open fname

Set ObjEXcelApp = Nothing

End Sub