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日

相关推荐

  • 博图用PLC,HMI仿真时,提示链接中断代号190011

    原来仿真是正常,今天再次仿真时,HMI显示链接中断。不得其要领,希望高手给个解决办法。PLC仿真监控正常。 问题补充:经过N次试验,刚打开本本,马上用博图仿真HMI,大部分正常。若…

    SIMATIC WinCC 2017年6月1日
  • 请教大家用户归档控件单元格颜色能改变吗?

    请教大家用户归档的控件单元格颜色能用VBS脚本去改变吗?我用用户归档做了个报表,对于那些超过限值的数值显示黄色,能做吗?如果不行是不是可以listview或者mindspread做…

    SIMATIC WinCC 2020年11月1日
  • WINCC字体扩散

    记得在很多年前看到过字体的一种效果,就是报警来的时候,画面上的报警数值做往外的扩散,是均匀渐变的颜色,对报警提示相当清晰,但现在还不知道怎么实现,大家有做过的吗?教教我如果有什么没…

    SIMATIC WinCC 2018年12月7日
  • wincc的项目打开问题

    我从别人那考了一个WINCC例子看   可是为什么一打开就是显示“组态服务器不可用,是否打开项目,将本地计算机作为服务器” 我点了启动本地服…

    SIMATIC WinCC 2019年6月11日
  • wincc 用户管理

    怎么样能在界面上显示当前登录的用户名? 最佳答案 WINCC有一个内部变量@CurrentUser,读取这个变量值即可. 提问者对于答案的评价:谢谢

    SIMATIC WinCC 2019年6月11日
  • 如何在wincc中实现一个信号变化触发另一个信号置位

    如何在wincc中实现一个模拟量信号变化触发另一个信号置位,如一个模拟量信号变化就认为某一工序开始 问题补充:请问用c脚本的时候,如何保留上一采样的变量值,是不是定义一个变量,然后…

    SIMATIC WinCC 2019年6月11日
  • WINCC 控件 无法加载

    我在wincc加载控件,显示无法加载控件,如图所示,请问是什么问题? 图片说明:       最佳答案 此回答已完善 使用WINCC&nbs…

    2020年11月1日
  • 触摸屏程序问题

    请问下6AV66480BC113AX0 的程序怎么下载到新屏6AV66480CC113AX0 里面 钻石用户推荐最佳答案 通过WinCC flexib…

    SIMATIC WinCC 2021年7月5日
  • pptouchinputpc.exe和键盘存在冲突

    安装完wincc重启电脑,电脑键盘就不可以用了,请问这是什么问题,应该怎样解决呢? 图片说明:    最佳答案 尝试用驱动精灵修复下驱动http://www.d…

    2021年7月5日
  • wincc静态文本的文字如何换行

    wincc静态文本的文字如何换行,就是把一段文字分两行显示出来。一行地方不够。 最佳答案 还一个好办法就是你在"文本文档"里写上你要的文字,包括换行,然后剪切再…

    SIMATIC WinCC 2019年6月11日