通过VBS脚本将wincc数据导出至excel

精

奖

官

2939 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

目的：每单击一次鼠标左键，将一个wincc内部变量"tag1"写入excel表格中。第一次单击鼠标，数据存进表格的第一行，其中第一列为单击鼠标的时间，第二列为当前"tag1"的数值；第二次单击鼠标时，数据存进第二行。。。依此类推，代码如下：但问题是功能始终实现不了，请高手看看这段代码问题出在哪里了，谢谢！
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byvaly)
Dim value,k
Set value = HMIRuntime.Tags("i")   // 变量“i”是内部变量无符号32数，
k = value.Read                              // 记录鼠标单机的次数

Dim fname
fname="D:\report3.xlsx"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.worksheets ("sheet1").Cells(k, 2).Value = HMIRuntime.Tags("tag1").read
objExcelApp.worksheets ("sheet1").Cells(k, 1).Value = Now

k = k + 1
HMIRuntime.Tags ("i").Write k

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set ObjExcelApp = Nothing

End Sub

问题补充：谢谢你们的回答，我的这种方法还是可以的，问题出在 i 的初始值上了，从第一行开始记录初始值需要设定为1

扫码小程序：

一键登录查看全部问答

qjw 学长

被采纳率 50.00%

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

你的方法有问题，试试用还有你的定义不要用value。这是属性词
Set tag = HMIRuntime.Tags("i")
With objExcelApp.worksheets(sheetname)
  .cells(t,1).value=NOW
tag.read
  .cells(t,2).value=tag.value
  End With
  Next