wincc 压缩数据能够导入Excel 中进行报表制作？注意是压缩数据。求代码，谢谢
问题补充：
看到网上有将excel嵌入到wincc中的，就是在图形编辑器上添加excel，请问是如何将excel插入的？通过添加控件吗？但是我没有找到，谢谢
最佳答案
既然是求代码，那我就不废话了：
连接字符串：
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联系我。
网上所谓的嵌入excel其实是一个控件，叫做spreadsheet。有11.0和10.0两个版本。
这个控件在你的画面编辑器中可以找到。但是他只是个控件，也是需要VBS进行操作才可以实现数据的显示。实在搞不清楚，建议你去看看这个帖子
http://bbs.gongkong.com/d/201507/631310_1.shtml
里边有个教程连接，希望能帮到你。
提问者对于答案的评价：
问题已解决，谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc189491.html
微信扫一扫 
支付宝扫一扫