VBS脚本如下：
Dim path,xlApp
path= "c:\myxls.xlsm"
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlapp.DisplayAlerts =False
xlApp.Workbooks.Open path
If xlapp.WorkBooks("myxls.xlsm").ReadOnly Then
xlApp.WorkBooks.Close
Set xlApp=Nothing
Exit Sub
Else
xlApp.Visible=True
End If
能判断文件是否打开，没打开的话也能打开。
问题：打开后EXCEL不能显示在最前端，如何解决？
我想达到这样的目的：判断打开的话，就显示到最前端；没打开的话，打开并显示在最前端。
最佳答案
xlapp.Visible = True ''这个地方必须得改为显示
Dim shell
Set shell = CreateObject("wscript.shell")
shell.AppActivate "窗口标题"
提问者对于答案的评价：
都不行呢。
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc155523.html
微信扫一扫 
支付宝扫一扫