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无法连接新的电脑

    WINCC无法连接新的电脑 钻石用户推荐最佳答案 把截图上传一下,描述清楚问题的原因《WinCC V7.2 Modbus TCP 通信》ht…

    SIMATIC WinCC 2021年7月5日
  • step7与wincc

    我安装了STEP7是SP3的,用WINCC可以是SP2的吗? 最佳答案 step7 v5.3 sp3与wincc v6.0 sp2是吗?&n…

    SIMATIC WinCC 2019年6月11日
  • wincc画面怎么调大

    wincc画面怎么调大。有图怎么把图2调大大,在图1里成全图 问题补充:密码设置全屏 图片说明:       最佳答案 想把图2在图1中变为…

    2019年6月10日
  • wincc的opc服务器无法连接变量

    情况如下图,不管我怎么添加条目,%ignore_a_1%_WinCC_1中都没有出现我选择连接的变量,这是出了什么情况?求各位大佬解答下。 图片说明:    &…

    2021年7月5日
  • Wincc窗口问题

    "画面窗口用了变量前缀,致使该画面中的所有变量自动加了前缀。"怎么解决?谢谢! 问题补充:我为了同一窗口能显示不同的画面以及标题,画面窗口使用变量前缀,结果运行…

    SIMATIC WinCC 2019年6月11日
  • WINCC导出数据

    现在我用WINCC做了一个监控画面,需要监控某个变量的过程数据,1秒钟2个数据,最多不会超过三十秒,过程完成之后把数据保存在ACCESS数据库中,我用U盘把数据库考走在办公室也能看…

    SIMATIC WinCC 2019年6月11日
  • 关于储存数据到sql表中的问题

    Dim objConnection Dim strConnectionString Dim lngValue Dim&n…

    SIMATIC WinCC 2019年6月11日
  • 请问 wincc Webnavigator 客户端能否在 WINDOWS10 IOT 版 运行?

    请问 WINDOWS10 IOT和专业版什么区别?  wincc Webnavigator  客户端能否在 WINDOWS10 IOT 版 …

    SIMATIC WinCC 2021年7月5日
  • 博途多国语言包

    博途多国语言包哪里有,怎么下载,怎么安装 最佳答案 不要额外的语言包分为两步1、在项目树中“语言与资源 > 项目语言”(Languages &&…

    2020年11月1日
  • 如何查询历史趋势

    各位大侠,我在WINCC里做了个流量的趋势图  用的是WINCC  function   trend&nbsp…

    SIMATIC WinCC 2019年6月11日