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