wincc全局脚本生成Excel日报表的问题-技术论坛-工业支持中心-西门子中国

wincc全局脚本生成Excel日报表的问题

bianconeri

帖子

156
精华

0
被关注

5

论坛等级：侠圣

注册时间：2012-03-23

普通如何晋级?

wincc全局脚本生成Excel日报表的问题

6011

4

2012-05-09 09:31:51

利用wincc全局脚本生成Excel日报表，以每天的日期为名生成Excel文件，脚本如下：

Set myfile=fso.GetFile("E:\日报表\模版.xls")''''''''''''''''''''''''''''''''''''''''''''''''''报表模板路径

fname="E:\日报表\"& FormatDateTime(Date,2) & ".xls"''''''''''''''''''''''''''''''''''''''''''''''定义报表名为当日日期
MyFile.Copy(fname)'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''将模板以当日日期为名另存

Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.workbooks.open fname'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''打开表格准备写入数据

StrBtime=CStr(Year(Date))+"-"+CStr(Month(Date))+"-"+CStr(Day(Date)-1)+" "+"16:00:00"
StrEtime=CStr(Year(Date))+"-"+CStr(Month(Date))+"-"+CStr(Day(Date))+" "+"15:59:59"'''''''''''''''''''''''''定义查询初始及终止时间（格林尼治时间）

现在发现一个问题，每月1号生成的日报表没有数据记录，在脚本中，查询数据是以每日日期减1来查询，Data-1，似乎1号减1无法查询，有什么办法可以解决？