非常不解，同样的方法，我在笔记本上正常实现，在现场的电脑上打开就不前置，需要切换才能看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
钻石用户推荐最佳答案
在开头添加dim shell
然后在objExcelApp.Workbooks.Open fname后面添加
set shell =CreateObject("wscript,shell")
shell.AppActivate "Microsoft Excel - 1"
这个名字已你实际excel表格属性为准，不同版本的offic可能不一样。
提问者对于答案的评价：
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc360027.html
微信扫一扫 
支付宝扫一扫 