如何将WINCC数据存储到EXCEL中?

要求:
 1,将多组数据存储到EXCEL中,
 2,EXCEL文件名是:日期+文本
 3,存储时间间隔30分钟,
 4,EXCEL文件是表格类型(XLS),可以拷贝出去打印。
 5,开机生成文件,关机结束表格存储。不排除一天有 多个报表。
 我查了 一些资料,好像要通过全局脚本实现,我是 新手,理解不够深刻,求高人帮助。

问题补充:
还是比较晕,SG9提供的是 是不是还要安装“工业连接桥”的附件,我的WINCC里找不到。在补充一下,要求5里的 开机,关机是控制的设备开关,第开机有记录,没有开机不记录。请大家再接再厉,最好是 通过 c 脚本实现。多谢

最佳答案

变量导入EXCEL文件里
 Dim g_excelfilename
 Dim excel
 g_excelfilename = HMIRuntime.Tags("ProjectPath").Read & "\Excel1.xls"
 'MsgBox g_excelfilename
 Set excel = CreateObject("Excel.Application")
 excel.Visible = True
 excel.Workbooks.Open g_excelfilename
 excel.Cells(4, 3).Value = ScreenItems("V6_ExcelWrite_1").OutputValue
 excel.Cells(5, 3).Value = ScreenItems("V6_ExcelWrite_2").OutputValue
 excel.Cells(6, 3).Value = ScreenItems("V6_ExcelWrite_3").OutputValue
 excel.ActiveWorkbook.Save
 MsgBox ("Continue ?")
 ScreenItems("V6_ExcelRead_1").OutputValue = excel.Cells(4, 5).Value
 ScreenItems("V6_ExcelRead_2").OutputValue = excel.Cells(5, 5).Value
 ScreenItems("V6_ExcelRead_3").OutputValue = excel.Cells(6, 5).Value
 excel.ActiveWorkbook.Save
 excel.Workbooks.Close
 excel.Quit
 Set excel = Nothing
 这段程序是dcount107给我的,试了可以运行,我也是一只菜鸟能帮的就这些了--猛虎

提问者对于答案的评价:
咨询西门子后,可以实现,但需要脚本编程,感谢你的程序,虽然不全,要 实现我需要的 还要完善,应该可以实现,探索中

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

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

相关推荐