求脚本，谢谢大神！
最佳答案
填充spreadsheet控件代码：这是一路的
连接字符串：
Dim tagDSNName,sPro,sDsn,sSer,sCon
Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")
sdsn=tagDSNName.Read
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=" & sDsn & ";"
sSer = "Data Source=.\WinCC"
sCon = sPro & sDsn & sSer
查询字符串：
sSql = "Tag:R,(''''''''ProcessValueArchive\INCOD''''''''),''''''''" & sStart & "'''''''',''''''''" & sStop & "''''''''"
oCom.CommandText = sSql
Set oRs = oCom.Execute
m = oRs.recordCount
If m > 0 Then
EL1=1
oRs.MoveFirst
i = 0
k = 0
Do While Not oRs.EOF
tim=GetLocalDate(oRs.Fields(1).Value) ''''''''得到当地时间，从格林尼治时间转换过来的
If Hour(tim)=k Then
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 = "#"
End If
i = i + 1
k = k + 1
Loop
k=24-k
For j=0 To k-1
objExcelApp.Worksheets(sheetname).cells(24-k+8+j,2).value = "#"
Next
Else
EL1=0
End If
oRs.Close
这段读取代码加了空值的处理，希望你能看懂。
淘宝有卖报表培训教材的，搜wincc报表就能看到，带实例。
如果有其他问题，可以加2606352062联系我
提问者对于答案的评价：
求针对 Spreadsheet 的关键代码 董工 谢谢你！
最佳答案作者回复:
spreadsheet没有关键代码，他就是个显示控件而已 跟其他的控件一样，都需要操作他的属性和方法来显示东西。我倒是整理了这个控件的大多数操作代码，还有其他控件的属性方法。不过这个东西我只写在了自己的教程里。所以不方便给你。网上你可以搜一下。很多。只不过没经过wincc的测试而已。你可以自己去实际测试一下。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc188189.html
微信扫一扫 
支付宝扫一扫 