资源描述：
《Wincc V7.3 vbs 读取多个变量归档数据到excel》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Wincc V7.3 vbs 读取多个变量归档数据到excel前面的一篇博客记录了如何读取多个变量归档数据到mshgrid控件，根据的是西门子官网的教学。有网友询问为什么他照着官网方法就是无法导出到excel。我自己也做了一遍，没有问题。本篇主要记录导出按钮的脚本。 前面的准备工作与上一篇一致，导出按钮的vbs脚本如下：SubOnClick(ByValItem) DimmyCatalog,myDS,PCName,cnstr,sqlstr1,sqlstr2Dimxlapp,BTime,ETime,utcbtime,utcetime,utcbtstr,u
2、tcetstrDimconobj,rsobj1,comobj1Dimrsobj2,comobj2Dimrscount,i,curRowDimfilenamemyCatalog=HMIRuntime.Tags("@DatasourceNameRT").ReadPCName=HMIRuntime.Tags("@LocalMachineName").Read myDS=PCName&"Wincc"SetBTime=HMIRuntime.Tags("btime")SetETime=HMIRuntime.Tags("etime")'北京时间时区修正utcbti
3、me=Dateadd("h",-8,BTime.Read)'起始时间utcetime=Dateadd("h",-8,ETime.Read)'结束时间'日期时间格式修正utcbtstr=Year(utcbtime)&"-"&Month(utcbtime)&"-"&Day(utcbtime)&""&Hour(utcbtime)&":"&Minute(utcbtime)&":"&Second(utcbtime)utcetstr=Year(utcetime)&"-"&Month(utcetime)&"-"&Day(utcetime)&""&Hour(utcet
4、ime)&":"&Minute(utcetime)&":"&Second(utcetime)'连接字符串cnstr="Provider=WinCCOLEDBProvider.1;Catalog="&myCatalog&";DataSource="& myDS'创建连接对象Setconobj=CreateObject("ADODB.Connection")conobj.connectionstring=cnstrconobj.CursorLocation=3conobj.Open'查询字符串'sqlstr="Tag:R,('VAflow1';'VA
5、flow2'),'"&utcbtstr&"','"&utcetstr&"',"&"'orderbyTimestampASC','TimeStep=1,1'"sqlstr1="Tag:R,('VAflow1'),'"&utcbtstr&"','"&utcetstr&"',"&"'orderbyTimestampASC','TimeStep=1,1'"sqlstr2="Tag:R,('VAflow2'),'"&utcbtstr&"','"&utcetstr&"',"&"'orderbyTimestampASC','TimeStep=1,1'"'进行查询
6、Setrsobj1=CreateObject("ADODB.Recordset")Setcomobj1=CreateObject("ADODB.Command")comobj1.CommandType=1Setcomobj1.ActiveConnection=conobjcomobj1.CommandText=sqlstr1Setrsobj1=comobj1.ExecuteSetrsobj2=CreateObject("ADODB.Recordset")Setcomobj2=CreateObject("ADODB.Command")comobj2.Co
7、mmandType=1Setcomobj2.ActiveConnection=conobjcomobj2.CommandText=sqlstr2Setrsobj2=comobj2.Executerscount=rsobj1.recordcountrsobj1.movefirstrsobj2.movefirstifrscount=0then msgbox"没有记录" exitsubendifSetxlapp=CreateObject("Excel.Application")xlapp.visible=Falsexlapp.workbooks.ad
8、d'初始化excelxlapp.worksheets(1).cells(1,1)="编号："x
