帮我利用VBS脚本在wincc7.4版本中写一个程序，要求如下：
1、读取一个excel文件，将格中第二列的8个数赋值给wincc中的8个32为浮点数变量；2、这8个32为浮点数变量是wincc的内部变量，分别为Var1到Var8下面是一个基于VBS脚本的示例程序，可以将Excel文件中第二列的8个数赋值给wincc中的8个32位浮点数变量。
Dim Excel, Workbook, Worksheet
Set Excel = CreateObject("Excel.Application") '创建Excel对象
Set Workbook = Excel.Workbooks.Open("D:\Data.xlsx") '打开Excel文件
Set Worksheet = Workbook.Worksheets(1) '选择第一个工作表
Dim i
For i = 1 To 8 '读取Excel文件中第二列的8个数
Dim CellValue
CellValue = Worksheet.Cells(i, 2).Value '获取单元格的值
WinCC.OA("Var" & i).Value = CellValue '将单元格的值赋值给WinCC变量
Next
Workbook.Close False '关闭Excel文件
Excel.Quit '退出Excel程序
请注意，在运行此程序之前，需要先在WinCC中创建8个32位浮点数变量，分别为Var1到Var8，并且需要将Excel文件的路径修改为实际路径。
页:
[1]