当前位置：主页 > PLC控制

wincc7.0 通过VBS脚本将数据写入excel 表生成了但是没有数据填入

请高手帮忙看看脚本1、2加上下面这些为一套脚本
If(a=0)Then
objExCElApp.Worksheets(sheetname).cells(i,2).vaLUe=GetLocalDate(oRs1.Fields(1).Value)
objEXCELApp.Worksheets(sheetname).cells(i,4).value=oRs1.Fields(2).Value
objExcelApp.Worksheets(sheetname).cells(i,5).value=GetLocalDate(oRs1.Fields(3).Value)
objExcelApp.Worksheets(sheetname).cells(i,7).value=oRs1.Fields(4).Value
a=oRs1.Fields(2).Value
SelectCASeoRs2.Fields(2).Value
Case1
objExcelApp.Worksheets(sheetname).cells(i,3).value="DN15"
Case101
objExcelApp.Worksheets(sheetname).cells(i,6).value="DN50"
Case201
objExcelApp.Worksheets(sheetname).cells(i,9).value="DN80"
oRs1.MoveNext
oRs2.MoveNext
i=i+1
Else
objExcelApp.Worksheets(sheetname).cells(i-1,2).value=GetLocalDate(oRs1.Fields(1).Value)
objExcelApp.Worksheets(sheetname).cells(i-1,4).value=oRs1.Fields(2).Value
a=oRs1.Fields(2).Value
oRs1.MoveNext
oRs2.MoveNext
EndIf
EndIf
Loop
oRs1.Close
oRs2.Close
Else
EndIf
SetoRs1=Nothing
SetoRs2=Nothing
conn.Close
Setconn=Nothing
Dimpatch,filename
filename=CSTr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))&""&CStr(Hour(Now))&"."&CStr(Minute(Now))&"."&CStr(Second(Now))
patch="d:\baobiao\chongzheng\"&filename&".xlsx"
objExcelApp.ActiveWorkbook.SaveAspatch
objExcelApp.Workbooks.Close
objExcelApp.Quit
SetobjExcelApp=Nothing