Wincc V7.3 vbs 读取多个变量归档数据到exc el.docVIP

Wincc?V7.3?vbs?读取多个变量归档数据到excel 前面的一篇博客记录了如何读取多个变量归档数据到mshgrid控件，根据的是西门子官网的教学。有网友询问为什么他照着官网方法就是无法导出到excel。我自己也做了一遍，没有问题。本篇主要记录导出按钮的脚本。 ? 前面的准备工作与上一篇一致，导出按钮的vbs脚本如下： Sub OnClick(ByVal Item)??Dim myCatalog,myDS,PCName,cnstr,sqlstr1,sqlstr2Dim xlapp,BTime,ETime,utcbtime,utcetime,utcbtstr,utcetstrDim conobj,rsobj1,comobj1Dim rsobj2,comobj2Dim rscount,i,curRowDim filenamemyCatalog=HMIRuntime.Tags(@DatasourceNameRT).ReadPCName=HMIRuntime.Tags(@LocalMachineName).Read?myDS=PCName \WinccSet BTime=HMIRuntime.Tags(btime)Set ETime=HMIRuntime.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) - Month(utcetime) - Day(utcetime) Hour(utcetime) : Minute(utcetime) : Second(utcetime)连接字符串cnstr=Provider=WinCCOLEDBProvider.1; Catalog= myCatalog ; Data Source= ??myDS创建连接对象Set conobj=CreateObject(ADODB.Connection)conobj.connectionstring=cnstrconobj.CursorLocation = 3conobj.Open查询字符串sqlstr = Tag:R,(VA\flow1;VA\flow2), utcbtstr , utcetstr , order by Timestamp ASC,TimeStep=1,1sqlstr1 = Tag:R,(VA\flow1), utcbtstr , utcetstr , order by Timestamp ASC,TimeStep=1,1sqlstr2 = Tag:R,(VA\flow2), utcbtstr , utcetstr , order by Timestamp ASC,TimeStep=1,1 进行查询Set rsobj1 = CreateObject(ADODB.Recordset)Set comobj1 = CreateObject(ADODB.Command)comobj1.CommandType = 1Set comobj1.ActiveConnection = conobjcomobj1.CommandText = sqlstr1Set rsobj1 = comobj1.Execute Set rsobj2 = CreateObject(ADODB.Recordset)Set comobj2 = CreateObject(ADODB.Command)comobj2.CommandType = 1Set comobj2.ActiveConnection = conobjcomobj2.CommandText = sqlstr2Set rsobj2 = comobj2.Execute rscount=rsobj1.recordcountrsobj1.movefirstrsobj2.movefirst if rscount=0 then ???msgbox 没有记录 ???exit sub end if Set xlapp=CreateObject(Excel.Application)xlapp.visible=Falsexlapp.workb