搬家第一天-13.WinccV7.3 使用VBS脚本读取excel文件数值

案例：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

 

经测试可以实现需要的功能。