WINCC打开EXCEL并让EXCEL前置问题

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2017年6月6日
下一篇 2017年6月6日

相关推荐