hanbo116 2015-11-05 00:14 采纳率: 0%
浏览 3032
已结题

wincc自动定时生成以日期作为we文件名的EXCEL表格

使用wincc7.03.要求自动生成泵当日运行时间的报表，wincc里有泵累积时间的变量，
    思路是这样的，一个泵累计时间，当日早上八点的泵累计时间作为昨日EXCEL表格的第二行，昨日早上八点的泵累计时间作为excel表格的第一行，然后用EXCEL表格第二行减去第一行，得出泵的累计时间，
    这些布在wincc全局脚本里有写，关键问题是，如何提取两个时间的泵的累计时间，
    以及如何定时八点生成excel报表。
    相关脚本附上

 Option Explicit
Function action
Dim fso,myfile,daystr,dstr,fname,fname2,dstr2

dstr = FormatDateTime(Date)
fname=HMIRuntime.ActiveProject.Path+"\excel\"+dstr+".xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(fname)) Then
Else
Set MyFile = fso.GetFile(HMIRuntime.ActiveProject.Path+"\excel\日报表.xls")
MyFile.Copy (fname)
End If

Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
'objExCelApp.Visible = True
objExcelApp.Workbooks.Open fname

objExcelApp.worksheets ("sheet1").Cells(5, 4).VAluE = HMIRuntime.Tags("myxbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(5, 5).VAluE = HMIRuntime.Tags("myxbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(5, 6).VAluE = HMIRuntime.Tags("myxliuliang").read

objExcelApp.worksheets ("sheet1").Cells(9, 4).VAluE = HMIRuntime.Tags("xlxbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(9, 5).VAluE = HMIRuntime.Tags("xlxbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(9, 6).VALUE = HMIRuntime.Tags("xlxliuliang").read


objExcelApp.worksheets ("sheet1").Cells(13, 4).VAlUE = HMIRuntime.Tags("hawbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(13, 5).VAlUE = HMIRuntime.Tags("hawbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(13, 6).VALUE = HMIRuntime.Tags("hawliuliang").read


objExcelApp.worksheets ("sheet1").Cells(17, 4).VAlUE = HMIRuntime.Tags("hayC5_21_ACC").read
objExcelApp.worksheets ("sheet1").Cells(17, 5).VAlUE = HMIRuntime.Tags("hayC5_22_ACC").read
objExcelApp.worksheets ("sheet1").Cells(17, 6).VAlUE = HMIRuntime.Tags("hayF8_0").read



objExcelApp.worksheets ("sheet1").Cells(21, 4).VAlUE = HMIRuntime.Tags("yclbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(21, 5).VAlUE = HMIRuntime.Tags("yclbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(21, 6).VAlUE = HMIRuntime.Tags("yclbeng3_time").read
objExcelApp.worksheets ("sheet1").Cells(21, 7).VAlUE = HMIRuntime.Tags("yclliuliang").read


objExcelApp.worksheets ("sheet1").Cells(25, 4).VAlUE = HMIRuntime.Tags("tlbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(25, 5).VAlUE = HMIRuntime.Tags("tlbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(25, 6).VAlUE = HMIRuntime.Tags("tlbeng3_time").read
objExcelApp.worksheets ("sheet1").Cells(25, 7).VAlUE = HMIRuntime.Tags("tlbeng4_time").read
objExcelApp.worksheets ("sheet1").Cells(25, 8).VAlUE = HMIRuntime.Tags("tlliuliang").read

objExcelApp.worksheets ("sheet1").Cells(29, 4).VAlUE = HMIRuntime.Tags("fswbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(29, 5).VAlUE = HMIRuntime.Tags("fswbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(29, 6).VALUE = HMIRuntime.Tags("fswliuliang").read

objExcelApp.worksheets ("sheet1").Cells(33, 4).VAlUE = HMIRuntime.Tags("zylbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(33, 5).VAlUE = HMIRuntime.Tags("zylbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(33, 6).VAlUE = HMIRuntime.Tags("zylbeng3_time").read
objExcelApp.worksheets ("sheet1").Cells(33, 7).VAlUE = HMIRuntime.Tags("zylbeng4_time").read
objExcelApp.worksheets ("sheet1").Cells(33, 8).VAlUE = HMIRuntime.Tags("zylliuliang").read

objExcelApp.worksheets ("sheet1").Cells(37, 4).VAlUE = HMIRuntime.Tags("rjlbeng1_time").read
objExcelApp.worksheets ("sheet1").Cells(37, 5).VAlUE = HMIRuntime.Tags("rjlbeng2_time").read
objExcelApp.worksheets ("sheet1").Cells(37, 6).VAlUE = HMIRuntime.Tags("rjlbeng3_time").read
objExcelApp.worksheets ("sheet1").Cells(37, 7).VAlUE = HMIRuntime.Tags("rjlbeng4_time").read
objExcelApp.worksheets ("sheet1").Cells(37, 8).VAlUE = HMIRuntime.Tags("rjlliuliang").read

objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.Close
objExcelApp.QuiT
Set ObjExceLapp = Nothing

dstr2 = FormatDateTime(Date-1)
fname2=HMIRuntime.ActiveProject.Path+"\excel\"+dstr2+".xls"
Dim ObjExcelApp2
Set objExcelApp2 = CreateObject("Excel.Application")
objExcelApp2.Workbooks.Open fname2
objExcelApp2.worksheets ("sheet1").Cells(6, 4).VAluE = HMIRuntime.Tags("myxbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(6, 5).VAluE = HMIRuntime.Tags("myxbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(6, 6).VAluE = HMIRuntime.Tags("myxliuliang").read

objExcelApp2.worksheets ("sheet1").Cells(10, 4).VAluE = HMIRuntime.Tags("xlxbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(10, 5).VAluE = HMIRuntime.Tags("xlxbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(10, 6).VALUE = HMIRuntime.Tags("xlxliuliang").read


objExcelApp2.worksheets ("sheet1").Cells(14, 4).VAlUE = HMIRuntime.Tags("hawbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(14, 5).VAlUE = HMIRuntime.Tags("hawbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(14, 6).VALUE = HMIRuntime.Tags("hawliuliang").read


objExcelApp2.worksheets ("sheet1").Cells(18, 4).VAlUE = HMIRuntime.Tags("hayC5_21_ACC").read
objExcelApp2.worksheets ("sheet1").Cells(18, 5).VAlUE = HMIRuntime.Tags("hayC5_22_ACC").read
objExcelApp2.worksheets ("sheet1").Cells(18, 6).VAlUE = HMIRuntime.Tags("hayF8_0").read



objExcelApp2.worksheets ("sheet1").Cells(22, 4).VAlUE = HMIRuntime.Tags("yclbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(22, 5).VAlUE = HMIRuntime.Tags("yclbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(22, 6).VAlUE = HMIRuntime.Tags("yclbeng3_time").read
objExcelApp2.worksheets ("sheet1").Cells(22, 7).VAlUE = HMIRuntime.Tags("yclliuliang").read


objExcelApp2.worksheets ("sheet1").Cells(26, 4).VAlUE = HMIRuntime.Tags("tlbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(26, 5).VAlUE = HMIRuntime.Tags("tlbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(26, 6).VAlUE = HMIRuntime.Tags("tlbeng3_time").read
objExcelApp2.worksheets ("sheet1").Cells(26, 7).VAlUE = HMIRuntime.Tags("tlbeng4_time").read
objExcelApp2.worksheets ("sheet1").Cells(26, 8).VAlUE = HMIRuntime.Tags("tlliuliang").read

objExcelApp2.worksheets ("sheet1").Cells(30, 4).VAlUE = HMIRuntime.Tags("fswbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(30, 5).VAlUE = HMIRuntime.Tags("fswbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(30, 6).VALUE = HMIRuntime.Tags("fswliuliang").read

objExcelApp2.worksheets ("sheet1").Cells(34, 4).VAlUE = HMIRuntime.Tags("zylbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(34, 5).VAlUE = HMIRuntime.Tags("zylbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(34, 6).VAlUE = HMIRuntime.Tags("zylbeng3_time").read
objExcelApp2.worksheets ("sheet1").Cells(34, 7).VAlUE = HMIRuntime.Tags("zylbeng4_time").read
objExcelApp2.worksheets ("sheet1").Cells(34, 8).VAlUE = HMIRuntime.Tags("zylliuliang").read

objExcelApp2.worksheets ("sheet1").Cells(38, 4).VAlUE = HMIRuntime.Tags("rjlbeng1_time").read
objExcelApp2.worksheets ("sheet1").Cells(38, 5).VAlUE = HMIRuntime.Tags("rjlbeng2_time").read
objExcelApp2.worksheets ("sheet1").Cells(38, 6).VAlUE = HMIRuntime.Tags("rjlbeng3_time").read
objExcelApp2.worksheets ("sheet1").Cells(38, 7).VAlUE = HMIRuntime.Tags("rjlbeng4_time").read
objExcelApp2.worksheets ("sheet1").Cells(38, 8).VAlUE = HMIRuntime.Tags("rjlliuliang").read


objExcelApp2.ActiveWorkbook.Save
objExcelApp2.Workbooks.Close
objExcelApp2.QuiT
Set ObjExceLapp2 = Nothing

End Function

这个是excel报表
图片说明

  • 写回答

1条回答 默认 最新

  • csdn7758521 2015-11-05 01:03
    关注

    你这些什么？你要做什么？

    评论

报告相同问题？

悬赏问题

  • ¥15 fluent的在模拟压强时使用希望得到一些建议
  • ¥15 STM32驱动继电器
  • ¥15 Windows server update services
  • ¥15 关于#c语言#的问题：我现在在做一个墨水屏设计，2.9英寸的小屏怎么换4.2英寸大屏
  • ¥15 模糊pid与pid仿真结果几乎一样
  • ¥15 java的GUI的运用
  • ¥15 Web.config连不上数据库
  • ¥15 我想付费需要AKM公司DSP开发资料及相关开发。
  • ¥15 怎么配置广告联盟瀑布流
  • ¥15 Rstudio 保存代码闪退