VBS脚本如下：
Dimpath,xlApp
path="c:\myxls.xlsm"
SetxlApp=CreateObject("exCEl.application")
xlApp.Visible=False
xlapp.DisplayAleRTs=False
xlApp.Workbooks.OPenpath
Ifxlapp.WorkBooks("myxls.xlsm").ReadOnlyThen
xlApp.WorkBooks.Close
SetxlApp=Nothing
ExitSub
Else
xlApp.Visible=True
EndIf
能判断文件是否打开，没打开的话也能打开。
问题：打开后EXCEL不能显示在最前端，如何解决？
我想达到这样的目的：判断打开的话，就显示到最前端；没打开的话，打开并显示在最前端。
最佳答案
xlapp.Visible=True”这个地方必须得改为显示
Dimshell
Setshell=CreateObject("wscrIPt.shell")
shell.AppActivate"窗口标题"
提问者对于答案的评价：
都不行呢。
专家置评
已阅，最佳答案正确。
