EXCEL脚本不执行了，没装系统前是好的

我的系统是Win7，因为有wincc运行一段时间后，曲线控件会消失，打400电话后建议重装系统，后来我就重装系统了。装完系统后就出现了现在的问题，我用一个按钮执行以下脚本，系统没装之前是运行正常。装了之后就感觉不执行了。不知是哪里有问题，请高手帮忙指点下，非常感谢！
按钮脚本：
SubOnLButTOnDown(ByValItem,ByValFlags,ByValx,ByValy)
DimxlApp,xlBook,xlSheet
Dimi
Dimgyming
Setgyming=ScreenItems("组合框1")

SetxlApp=CreateObject("ExCEl.Application")
‘xlApp.Visible=True
SetxlBook=xlApp.Workbooks.open("E:\工艺配方.xlsx")

Fori=1ToxlBook.Worksheets.Count
gyming.Index=i
gyming.Text=xlBook.Worksheets(i).Name

Next

Setxlsheet=Nothing
xlBook.close(True)
Setxlbook=Nothing
xlapp.quit
xlapp.quit
Setxlapp=Nothing
EndSub

问题补充：
Win7操作系统重新安装的，WinCC也重新安装了。

最佳答案

你操作系统也是重新安装的吗？你需要重新安装操作系统然后安装wincc。

1、百度"wincc读写EXCEL"的脚本，网上很多源代码。
2、在脚本中插入msgbox函数显示不同的内容，然后运行判断执行到哪个msgbox函数不执行了，采用二分法很快就能定位你的脚本的问题所在了。

提问者对于答案的评价：
感谢。谢谢。