我的系统是Win7，因为有WinCC运行一段时间后，曲线控件会消失，打400电话后建议重装系统，后来我就重装系统了。装完系统后就出现了现在的问题，我用一个按钮执行以下脚本，系统没装之前是运行正常。装了之后就感觉不执行了。不知是哪里有问题，请高手帮忙指点下，非常感谢！
按钮脚本：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim xlApp,xlBook,xlSheet
Dim i
Dim gyming
Set gyming = ScreenItems("组合框1")
Set xlApp=CreateObject("Excel.Application")
'xlApp.Visible = True
Set xlBook=xlApp.Workbooks.open ("E:\工艺配方.xlsx")
For i = 1 To xlBook.Worksheets.Count
gyming.Index=i
gyming.Text = xlBook.Worksheets(i).Name
Next
Set xlsheet=Nothing
xlBook.close(True)
Set xlbook=Nothing
xlapp.quit
xlapp.quit
Set xlapp=Nothing
End Sub
问题补充：
Win7操作系统重新安装的，WinCC也重新安装了。
最佳答案
你操作系统也是重新安装的吗？你需要重新安装操作系统然后安装wincc。
1、百度"wincc读写Excel"的脚本，网上很多源代码。
2、在脚本中插入msgbox函数显示不同的内容，然后运行判断执行到哪个msgbox函数不执行了，采用二分法很快就能定位你的脚本的问题所在了。
提问者对于答案的评价：
感谢。谢谢。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc211876.html
微信扫一扫 
支付宝扫一扫 