WINCC和EXCEL结合实现报表

怎样用WINCC下全局脚本来实现报表。

问题补充:
有例子吗

最佳答案

Dim excelapp
 Dim aa,bb,cc
 Set excelapp = CreateObject("Excel.Application")

 Set aa = HMIRuntime.tags("tag1")
 excelapp.visible = False ''True

 excelapp.workbooks.open "D:\excel.xls"
 bb = Now
 aa.Read

 MsgBox CStr(bb)

 excelapp.cells(1,1).value = "rrrrrr"      ''111111 
 excelapp.cells(1,2).value = CStr(bb)
 excelapp.cells(2,2).value = CStr(aa.value)
 excelapp.cells(3,2).value = CInt(aa.value)
 excelapp.cells(4,2).value = CSng(aa.value)
 excelapp.cells(5,2).value = CDbl(aa.value)
 excelapp.cells(6,2).value = CLng(aa.value)

 excelapp.cells(3,3).value = ScreenItems("33").outputvalue
 excelapp.cells(4,4).value = ScreenItems("35").outputvalue

 cc = "D:\excel" + Mid(CStr(bb), 1, 4)+ Mid(CStr(bb), 6, 2)+ Mid(CStr(bb), 9, 2)+ Mid(CStr(bb), 12, 2)+ Mid(CStr(bb), 15, 2)+ Mid(CStr(bb), 18, 2) + ".xls"
 MsgBox cc

 excelapp.DisplayAlerts = False ''对打开的文件,直接保存时,避免弹出对话框窗口,而是直接覆盖

 excelapp.activeworkbook.saveas cc  ''根据当前日期时间,另存为新的文件

    ''excelapp.activeworkbook.save   ’对打开的文件,直接保存
 ''excelapp.activeworkbook.saveAs "D:\excelcopy.xls"   ’直接另存为新的文件

 
 excelapp.workbooks.close

 excelapp.quit

 Set excelapp = Nothing

提问者对于答案的评价:
你的程序是在全局脚本下来实现的吧,我可以试试。谢谢

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc277915.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐

  • WINCC上升沿触发归档遇到的问题

    大家好!   按照http://www.ad.siemens.com.cn/Service/elearning/cn/Course.aspx?Cour…

    SIMATIC WinCC 2017年11月29日
  • WINCC或STEP7 时限加密

    我希望程序能正常运行一年,一年后无法使用,需要购买新的授权。    不知道这两种软件中是否有此种加密方式。 问题补充:我自己没接触过这样的程…

    SIMATIC WinCC 2017年8月15日
  • wincc修改过的报警文本不显示

    修改了wincc的故障信息文本和故障位置信息文本,然后修改过的这些都不显示了,没修改过的plc地址可以正常显示 图片说明:       钻石…

    2020年11月1日
  • wincc使用问题

    请问在哪里可以找到simatic wincc的使用手册,中文的,给我一个网址,谢谢了.另外请问protool和wincc flexble是同一个软件吗,我现在使…

    SIMATIC WinCC 2019年6月11日
  • wincc注册OCX控件提示不能

    wincc注册OCX控件提示不能装载控件应该怎么处理? 图片说明:    钻石用户推荐最佳答案 你使用的什么控件?试试其他的控件呢如果所有的都是这样的话,那应该…

    2021年7月5日
  • 看懂C脚本应具备什么样的基础

    小弟想学习WINCC ,可小弟不会C语言,更看不懂C语言了。我想问的是WINCC中的C脚本语言和单片机编程的C语言一样么?如果会单片机的C语言,那么依靠单片机的C语言能看…

    SIMATIC WinCC 2019年6月11日
  • 装好了WINCC7.3后桌面上没有图标

    装好了WINCC7.3后桌面上没有图标,安装好的程序见下面 问题补充:我就是这么做的。但是我不知道那个是,都点了也不行。你可以看下我传上去的图 最佳答案 在安装路径$:\Progr…

    SIMATIC WinCC 2017年6月10日
  • WinCC 用户名归档

    小弟现在有个项目想把用户名归档,想在数据库中记录哪个时间由哪个用户在进行操作,请问高人如何解决。小弟万分感激。 补充:本来想在变量记录中记录current us…

    SIMATIC WinCC 2019年6月11日
  • wincc数字输入负号输不进去

    wincc6.0画面,数据变量定义成是浮点数32位IEEE754,画面数据显示设成输入/输出型,结果是我用键盘输入数据下装到PLC,键盘负号输不进去,只可以输数字按回车输入,我试了…

    SIMATIC WinCC 2019年6月11日
  • script 卡死 所有按钮失效

    一般是程序激活后,按下按钮稍快时出现。在涉及到脚本动作的按钮时可能性更大。问题出现后,画面上所有的按钮按下无反应,或者无法弹起。画面可以切换。无法在激活的程序内停止激活(退出按钮无…

    SIMATIC WinCC 2019年6月11日