使用VB将变量记录中的数据写入EXCEL.docxVIP

使用VBS读取变量归档数据到EXCEL创建变量。过程归档变量、查询时间变量（一个起始时间、一个结束时间、时间间隔）过程变量为模拟量，其实时间和结束时间是文本变量8位字符集（时间的格式是XXXX-XX-XX XX:XX:XX），时间间隔位10进制数（单位秒）创建归档。变量记录中选择好要记录的过程变量，设置好归档的时间等。创建EXCEL表格模版，XXX.XLSX.界面上3个输入输入输出域（一个起始时间，一个结束时间，一个时间间隔），一个查询并生成EXCEL表格的按钮脚本主要分2块。1是时间的转换，WINCC归档使用的时间是UTC（国际协调时间），所以需要进行时间的转换。2是查询并生成EXCEL表格的脚本。过程值归档的记录结构如下：脚本见文本文档查询按钮中的代码（按钮）Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim sPro,sDsn,sSer,sCon,conn,sSql,oRs,oComDim tagDSNNameDim m,iDim LocalBeginTime, LocalEndTime,UTCBeginTime, UTCEndTime,sValDim objExcelApp,objExcelBook,objExcelSheet,sheetnameitem.Enabled = FalseOn Error Resume Next sheetname=Sheet1Set objExcelApp = CreateObject(Excel.Application)objExcelApp.Visible = FalseobjExcelApp.Workbooks.Open D:\WinCCWriteExcel\abc.xlsxobjExcelApp.Worksheets(sheetname).ActivateSet tagDSNName = HMIRuntime.Tags(@DatasourceNameRT)tagDSNName.Read Set LocalBeginTime = HMIRuntime.Tags(strBeginTime)LocalBeginTime.Read Set LocalEndTime = HMIRuntime.Tags(strEndTime)LocalEndTime.ReadUTCBeginTime = DateAdd(h ,-8,LocalBeginTime.Value)UTCEndTime= DateAdd(h ,-8,LocalEndTime.Value)UTCBeginTime = Year(UTCBeginTime) - Month(UTCBeginTime) - Day(UTCBeginTime) Hour(UTCBeginTime) : Minute(UTCBeginTime) : Second(UTCBeginTime)UTCEndTime = Year(UTCEndTime) - Month(UTCEndTime) - Day(UTCEndTime) Hour(UTCEndTime) : Minute(UTCEndTime) : Second(UTCEndTime)HMIRuntime.Trace UTC Begin Time: UTCBeginTime vbCrLfHMIRuntime.Trace UTC end Time: UTCEndTime vbCrLfSet sVal = HMIRuntime.Tags(sVal)sVal.Read sPro = Provider=WinCCOLEDBProvider.1;sDsn = Catalog= tagDSNName.Value ;sSer = Data Source=.\WinCCsCon = sPro + sDsn + sSerSet conn = CreateObject(ADODB.Connection)conn.ConnectionString = sConconn.CursorLocation = 3conn.OpensSql = Tag:R,(PVArchive\NewTag), UTCBeginTime , UTCEndTime ,sSql=sSql+order by Timestamp ASC,TimeStep= sVal.Value ,1MsgBox sSqlSet oRs = CreateObject(ADODB.Recordset)Set oCom = CreateObject(ADODB.Command)oCom.CommandType = 1Set oCom.Ac