有时候我们需要计算excel文件中数据行数，excel文件显示如下：

现在我们需要计算有多少行数据，wincc页面放置一个按钮，用于弹出消息框显示行数。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,ColCount
path=HMIRuntime.Tags("path").Read
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlApp.Workbooks.Open path
xlApp.Worksheets("Sheet1").Activate
ColCount=xlApp.Worksheets("Sheet1").usedrange.columns.count
Msgbox ColCount
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

 

运行后点击按钮会弹出消息框显示excel文件的数据行数