求脚本,谢谢大神!
最佳答案
填充spreadsheet控件代码:这是一路的
连接字符串:
DimtagDSNName,sPro,sDsn,sSer,sCon
SettagDSNName=HMIRuntime.Tags("@DatASourCENameRT")
sdsn=tagDSNName.Read
sPro="Provider=winccOLEDBProvider.1;"
sDsn="Catalog="&sDsn&";"
sSer="DataSource=.\WinCC"
sCon=sPro&sDsn&sSer
查询字符串:
sSql="Tag:R,(””””ProcessValueArchive\INCOD””””),””””"&sSTart&"””””,””””"&sStop&"””””"
oCom.CommandText=sSql
SetoRs=oCom.Execute
m=oRs.recordCount
Ifm>0Then
EL1=1
oRs.MoveFirst
i=0
k=0
DoWhileNotoRs.EOF
tim=GetLocalDate(oRs.Fields(1).Value)””””得到当地时间,从格林尼治时间转换过来的
IfHour(tim)=kThen
objExcelApp.Worksheets(sheetname).cells(i+8,2).value=Round(oRs.Fields(2).Value,2)
oRs.MoveNext
Else
objExcelApp.Worksheets(sheetname).cells(i+8,2).value="#"
EndIf
i=i+1
k=k+1
Loop
k=24-k
Forj=0Tok-1
objExcelApp.Worksheets(sheetname).cells(24-k+8+j,2).value="#"
Next
Else
EL1=0
EndIf
oRs.Close
这段读取代码加了空值的处理,希望你能看懂。
淘宝有卖报表培训教材的,搜wincc报表就能看到,带实例。
如果有其他问题,可以加2606352062联系我
提问者对于答案的评价:
求针对Spreadsheet的关键代码董工谢谢你!
最佳答案作者回复:
spreadsheet没有关键代码,他就是个显示控件而已跟其他的控件一样,都需要操作他的属性和方法来显示东西。我倒是整理了这个控件的大多数操作代码,还有其他控件的属性方法。不过这个东西我只写在了自己的教程里。所以不方便给你。网上你可以搜一下。很多。只不过没经过wincc的测试而已。你可以自己去实际测试一下。