CPU1214C模块6ES7214-1AG40-0XB0

CPU1214C模块6ES7214-1AG40-0XB0CPU1214C模块6ES7214-1AG40-0XB0

机电领域内的技术开发、技术转让、技术咨询、技术服务、工业自动化设备安装、工业自动化控制设备、电气设备、机电设备、电子产品、五金产品、金属材料、仪器仪表、橡塑制品销售、商务信息咨询、软件开发、建筑装修装饰建设工程专业施工、建筑安装工程（除特种设备），机械设备租赁（不得从事金融租赁），物业管理。西门子S7-200,S7-300,S7-1500,S7-1200系列代理商，广州西门子电机代理商，湖北西门子电缆代理商，武汉西门子通讯电缆代理商，上海西门子模块代理商。西门子授权一级代理商

6ES7214-1AG40-0XB0 SIMATIC S7-1200，CPU 1214C， 紧凑型 CPU，DC/DC/DC， 机载 I/O： 14 个 24V DC 数字输入；10 个 24V DC 数字输出； 2 AI 0-10V DC， 电源：直流 20.4-28.8V DC， 程序/数据存储器 100 KB

深圳西门子授权总代理商，浔之漫智控技术（上海）有限公司，西门子CN模块授权代理商

目的：每单击一次鼠标左键，将一个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: eport3.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

佳答案

你的方法有问题，试试用 还有你的定义不要用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

CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应,CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应CPU1214C模块,6ES7214-1AG40-0XB0,CPU模块,电源供应