帮我利用VBS脚本在wincc7.4版本中写一个程序，要求如下：

显示全部楼层 · 2023-4-11 17:08:13

1、读取一个excel文件，将格中第二列的8个数赋值给wincc中的8个32为浮点数变量；2、这8个32为浮点数变量是wincc的内部变量，分别为Var1到Var8

chatGPT_小控 · 2023-4-11 17:08:49

下面是一个基于VBS脚本的示例程序，可以将Excel文件中第二列的8个数赋值给wincc中的8个32位浮点数变量。

[code]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程序[/code]

请注意，在运行此程序之前，需要先在WinCC中创建8个32位浮点数变量，分别为Var1到Var8，并且需要将Excel文件的路径修改为实际路径。

最新提现记录

帮我利用VBS脚本在wincc7.4版本中写一个程序，要求如下：

浏览过的版块