WinccV7.3 使用VBS脚本读取excel文件数值的疑问-技术论坛-工业支持中心-西门子中国

WinccV7.3 使用VBS脚本读取excel文件数值的疑问

温柔的郎

帖子

242
精华

0
被关注

15

论坛等级：侠客

注册时间：2008-04-07

白金如何晋级?

WinccV7.3 使用VBS脚本读取excel文件数值的疑问

311

3

2020-09-15 13:33:38

各位大神，下面这段描述，是某位网友写的，用于在wincc7.3中，按下按钮，自动把某一变量保存到excel中指定地址的功能的文章，

对里面的一些红色字体的描述的功能不明白如何操作，请能明白的大神指点指点！！

1 wincc项目路径，指的是wincc项目文件里的哪个文件？

2 在wincc页面打开事件中写入一下VBS脚本，这个具体是咋操作的？

原文如下：

案例：wincc项目路径下有一个excel文件，数据表sheet1内容如下：

现在我们需要把这个文件中的数据读取出来，显示在输入输出域当中，本例以读取R1C1和R2C2为例。

在wincc页面上放置两个输入输出域，名字分别为R1C1和R2C2，R1C1数据类型为字符串，R2C2数据类型为十进制数，页面上放置一个按钮，用于读取数据。wincc新建一个内部变量path，用于存放excel文件的路径。在wincc页面打开事件中写入一下VBS脚本。

Sub OnOpen()
Dim path
Set path=hmiruntime.Tags("path")
path.write HMIRuntime.ActiveProject.Path & "myxls.xlsx"
End Sub

在按钮的点击事件中写入以下脚本：

Sub OnClick(Byval Item)
Dim xlApp,xlBook,path
Dim r1c1,r2c2
Set r1c1=ScreenItems("r1c1")
Set r2c2=ScreenItems("r2c2")
path=HMIRuntime.Tags("path").Read
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlApp.Workbooks.Open path
xlApp.Worksheets("Sheet1").Activate
r1c1.outputvalue= xlApp.Worksheets("Sheet1").cells(1,1).value
r2c2.outputvalue= xlApp.Worksheets("Sheet1").cells(2,2).value
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub