wincc 压缩数据能够导入Excel 制作报表

2017年7月30日上午11:10 • SIMATIC WinCC

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

wincc 压缩数据能够导入Excel 制作报表

相关推荐