找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
我要把WINCC上的数据生成excel文件,并把此文件放到D盘。 要实现excel里的数据可根据wincc里的数据变化,wincc的数据是PLC发给的,在D盘每个月生成一个excel文件。例如在2009年6月如果运行WICC程序,会在D盘生成一个名为NO200906的excel文件,在2009年7月如果运行WICC程序,会在D盘生成一个名为NO200907的excel文件.excel的数据每5分钟从wicc取一次数据
怎么实现啊,各位大侠请帮帮忙吧,我这里先谢过啦!
小程序查看
手机扫码追踪该问题
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
1:先做好excel报表模版,存放在电脑中,比如e:\excel.xls
2:每个月一号把excel报表模版复制到需要的路径,比如e:\baobiao\
Dim fso,myfile,daystr,dstr,fname
dstr = FormatDateTime(Date,2)
fname="e:\baobiao\" + dstr + ".xls"
Set fso = CreateObject("scripting.FileSystemObject")
Set MyFile = fso.GetFile("e:\excel.xls")
If fso.FileExists(fname) Then
''MsgBox "文件已经存在"
''文件存在则不执行
else
MyFile.Copy(fname) ''不存在则把你的文件复制过来
End If
3.用全局脚本每5分钟往里面写数据
Dim fso,myfilep,daystr,dstr,fname
Set fso = CreateObject("scripting.FileSystemObject")
dstr = FormatDateTime(Date,2)
fname="e:\baobiao\" + dstr + ".xls"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.worksheets ("sheet1").Cells(i, 2).VAlue = HMIRuntime.Tags("tag1").read
objExcelApp.worksheets ("sheet1").Cells(i, 3).VAlue = HMIRuntime.Tags("tag2").read
objExcelApp.worksheets ("sheet1").Cells(i, 4).VAlue = HMIRuntime.Tags("tag3").read
objExcelApp.worksheets ("sheet1").Cells(i, 1).VAlue =Now
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.ClosE
objExcelApp.QuiT
Set ObjEXceLapp = Nothing
整个功能用两个全局脚本可实现,第一个脚本每月的1号执行一次
第二个脚本每5分钟执行一次.
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!