资源描述：
《使用vbs读取变量归档数据到excel中(含全脚本)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、使用VBS读取变量归档数据到EXCEL1、创建变量。过程归档变量、查询时间变量（一个起始时间、一个结束时间、时间间隔）过程变量为模拟量，其实时间和结束时间是文本变量8位字符集（时间的格式是XXXX-XX-XXXX:XX:XX），时间间隔位10进制数（单位秒）2、创建归档。变量记录中选择好要记录的过程变量，设置好归档的时间等。3、创建EXCEL表格模版，XXX.XLSX.4、界面上3个输入输入输出域（一个起始时间，一个结束时间，一个时间间隔），一个查询并生成EXCEL表格的按钮5、脚本主要分2块。1是时间
2、的转换，WINCC归档使用的时间是UTC（国际协调时间），所以需要进行时间的转换。2是查询并生成EXCEL表格的脚本。6、过程值归档的记录结构如下：脚本见文本文档'查询按钮中的代码SubOnLButtonUp(ByValItem,ByValFlags,ByValx,ByValy)DimsPro,sDsn,sSer,sCon,conn,sSql,oRs,oComDimtagDSNNameDimm,iDimLocalBeginTime,LocalEndTime,UTCBeginTime,UTCEndTime
3、,sValDimobjExcelApp,objExcelBook,objExcelSheet,sheetnameitem.Enabled=FalseOnErrorResumeNextsheetname="Sheet1"SetobjExcelApp=CreateObject("Excel.Application")objExcelApp.Visible=FalseobjExcelApp.Workbooks.Open"D:WinCCWriteExcelabc.xlsx"objExcelApp.Works
4、heets(sheetname).ActivateSettagDSNName=HMIRuntime.Tags("@DatasourceNameRT")tagDSNName.ReadSetLocalBeginTime=HMIRuntime.Tags("strBeginTime")LocalBeginTime.ReadSetLocalEndTime=HMIRuntime.Tags("strEndTime")LocalEndTime.ReadUTCBeginTime=DateAdd("h",-8,LocalB
5、eginTime.Value)UTCEndTime=DateAdd("h",-8,LocalEndTime.Value)locatedintheTomb,DongShenJiabang,deferthenextdayfocusedontheassassination.Linping,Zhejiang,1ofwhichliquorwinemasters(WuzhensaidinformationisCarpenter),whogotAfewbayonets,duetomissedfatal,whennig
6、htcameUTCBeginTime=Year(UTCBeginTime)&"-"&Month(UTCBeginTime)&"-"&Day(UTCBeginTime)&""&Hour(UTCBeginTime)&":"&Minute(UTCBeginTime)&":"&Second(UTCBeginTime)UTCEndTime=Year(UTCEndTime)&"-"&Month(UTCEndTime)&"-"&Day(UTCEndTime)&""&Hour(UTCEndTime)&":"&Minut
7、e(UTCEndTime)&":"&Second(UTCEndTime)HMIRuntime.Trace"UTCBeginTime:"&UTCBeginTime&vbCrLfHMIRuntime.Trace"UTCendTime:"&UTCEndTime&vbCrLfSetsVal=HMIRuntime.Tags("sVal")sVal.ReadsPro="Provider=WinCCOLEDBProvider.1;"sDsn="Catalog="&tagDSNName.Value&";"sSer="D
8、ataSource=.WinCC"sCon=sPro+sDsn+sSerSetconn=CreateObject("ADODB.Connection")conn.ConnectionString=sConconn.CursorLocation=3conn.OpensSql="Tag:R,('PVArchiveNewTag'),'"&UTCBeginTime&"','"&UTCEndTime&"',"sSql=sSql+"'orderby
