Wincc V7.3 采集excel文件数据填入Microsoft Hierarchical Flexg

Wincc V7.3 采集excel文件数据填入Microsoft Hierarchical Flexgrid

案例：有时候我们需要将excel文件中数据采集出来存放入grid类型的控件进行显示，excel文件显示如下：

wincc页面放置一个按钮，用于弹出消息框显示行数；放置Microsoft Hierarchical Flexgrid控件，设置名称为MSHFlex。wincc新建一个内部变量path，用于存放excel文件的路径。在wincc页面打开事件中写入一下VBS脚本。 Sub OnOpen() Dim path

Set path=hmiruntime.Tags(\

path.writeHMIRuntime.ActiveProject.Path& \End Sub

在按钮的点击事件中写入以下脚本： Sub OnClick(ByVal Item)

Dim objflex,xlApp,xlBook,path,RowCount,ColCount Dim i,j

Set objflex=ScreenItems(\path=HMIRuntime.Tags(\

Set xlApp=CreateObject(\xlApp.Visible=False

xlApp.Workbooks.Open path

xlApp.Worksheets(\

RowCount=xlApp.Worksheets(\ColCount=xlApp.Worksheets(\objflex.Cols=ColCount+1 objflex.Rows=RowCount For i=1 To ColCount

objflex.TextMatrix(0,i)=xlApp.Worksheets(\Next

For i=2 To RowCount For j=1 To ColCount

objflex.TextMatrix(i-1,j)=xlApp.Worksheets(\ Next Next

xlApp.Workbooks.Close xlApp.Quit

Set xlApp=Nothing End Sub

本文来源：https://www.bwwdw.com/article/ics.html