关于wincc 7.0.2全局脚本按日期生成报表无法运行

已锁定

老头老太

  • 帖子

    12
  • 精华

    0
  • 被关注

    0

论坛等级:游民

注册时间:2011-09-19

普通 普通 如何晋级?

关于wincc 7.0.2全局脚本按日期生成报表无法运行

1441

4

2013-12-04 15:32:54

我在wincc 6.2中编写了wincc vbs脚本程序,能够每日生成报表。但是我把项目移植到wincc 7.0.2后脚本没有运行,不能自动生成报表。脚本程序如下:

Function settag(tagname,tagvalue)
Dim a
Set a=HMIRuntime.Tags(tagname)
a.Write(tagvalue)
End Function


Function gettag(tagname)
Dim a
Set a=HMIRuntime.Tags(tagname)
a.read
gettag=a.Value

End Function

Function gettagreal(tagname)
Dim a
Set a=HMIRuntime.Tags(tagname)
a.read(1)
gettagreal=a.Value

End Function

Option Explicit
Function action
Dim objExcelApp,a
'MsgBox("begin")
a=gettag("date")
'MsgBox(a)

Set objExceLApp = CreateObject("Excel.Application")

objExcelApp.Visible = false

objExcelApp.Workbooks.Open "C:\DATAS\date.xlsx"

objExcelApp.ActiveWorkbook.SaveAs "C:\DATAHIS\"+a+".xlsx"


objExcelApp.ActiveWorkbook.Save

objExcelApp.ActiveWorkbook.close


objexcelapp.Quit

'settag "leijia",0
End Function
触发设置为时间有变化时,
我想问一下大家,如何在wincc 查看脚本有无运行。。如何进行调试
关于wincc 7.0.2全局脚本按日期生成报表无法运行 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32574条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。