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