以下是一段WINCC和EXCEL交换数据的代码,由按钮触发的时间
Dim objexcelApp
Set objexcelApp=CreateObject("excel.application")
objexcelApp.visible=True
objexcelapp.workbooks.open"e:\zzj\excelexample.xls"
objexcelapp.cells(4,3).value=ScreenItems("输入输出域1").outputvalue
objexcelapp.activeworkbooks.save
objexcelapp.workbooks.close
objexcelapp.quit
Set objexcelapp=nothing
以上的代码是连接成功的(WINCC6.0,XP,OFFICE2003)
代码中第5行,我一开始用SCREENITEMS("IOFIELD1"),死活都不能用WINCC来改变EXCEL的单元格数据.
OK,改成中文的试试,看看附件,嘿嘿,这也通过了,居然还连接成功了
可能脚本编辑器还有BUG
点击此处查看附件