要求:
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