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