我WINCC中的压力之类的监测变量为32位浮点数，传送变量到EXCEL报表中就是传不上，程序如下
On Error Resume Next
Dim objExcelAPP,xlbook,xlsname,isOpen
xlsname="D:\shengchanjilu\R2012\R2012-baobiao.xls" Set objExcelAPP=GetObject(,"Excel.Application") objExcelAPP.Visible=True
If Typename(objExcelAPP)="Application" Then
For Each xlbook In objExcelAPP.Workbooks
If xlbook.FullName=xlsname Then
isOpen=True
Exit for
End if
Next
End if
If isOpen Then
objExcelapp.Cells(13, 4).Value=HMIRuntime.Tags("R2012_31TYS").read
objExcelapp.Cells(13, 5).Value=HMIRuntime.Tags("R2012_31ZLRJ").read
objExcelapp.Cells(14, 4).Value=HMIRuntime.Tags("R2012_31TQPS").read
objExcelapp.Cells(14, 5).Value=HMIRuntime.Tags("R2012_311TQRJ").read
objExcelapp.Cells(15, 5).Value=HMIRuntime.Tags("R2012_312TQRJ").read
objExcelapp.Cells(16, 5).Value=HMIRuntime.Tags("R2012_313TQRJ").read
objExcelapp.Cells(14, 9).Value=HMIRuntime.Tags("R2012_311CYL").read
objExcelapp.Cells(15, 9).Value=HMIRuntime.Tags("R2012_312CYL").read
objExcelapp.Cells(16, 9).Value=HMIRuntime.Tags("R2012_313CYL").read
objExcelAPP.Cells(13,4).Value = HMIRuntime.Tags("NewTag").read
objExcelAPP.Cells(13,5).Value =Time
Else
Msgbox
End if
在按钮中实验可以，但是在全局脚本中，触发器为2秒，但是就是写不进去，是不是变量的数据类型不对还是什么的，请高手们讲解！
最佳答案
看看全局脚本有没有启用，可以用msgbox测试下看看脚本运行到哪里失败了，再想解决办法。
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc263585.html
微信扫一扫 
支付宝扫一扫 