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