使用VBS读取变量归档数据到EXCEL中(含全脚本)

使用VBS读取变量归档数据到EXCEL

1、 创建变量。过程归档变量、查询时间变量（一个起始时间、一个结束时间、时间间隔）

过程变量为模拟量，其实时间和结束时间是文本变量8位字符集（时间的格式是XXXX-XX-XX XX:XX:XX），时间间隔位10进制数（单位秒）

2、 创建归档。变量记录中选择好要记录的过程变量，设置好归档的时间等。

3、 创建EXCEL表格模版，XXX.XLSX.

4、 界面上3个输入输入输出域（一个起始时间，一个结束时间，一个时间间隔），一个查

询并生成EXCEL表格的按钮

5、 脚本主要分2块。1是时间的转换，WINCC归档使用的时间是UTC（国际协调时间），所

以需要进行时间的转换。2是查询并生成EXCEL表格的脚本。

6、 过程值归档的记录结构如下：

脚本见文本文档

'查询按钮中的代码

Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)

Dim sPro,sDsn,sSer,sCon,conn,sSql,oRs,oCom

Dim tagDSNName

Dim m,i

Dim LocalBeginTime, LocalEndTime,UTCBeginTime, UTCEndTime,sVal

Dim objExcelApp,objExcelBook,objExcelSheet,sheetname

item.Enabled = False

On Error Resume Next

sheetname="Sheet1"

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = False

objExcelApp.Workbooks.Open "D:\WinCCWriteExcel\abc.xlsx"

objExcelApp.Worksheets(sheetname).Activate

Set tagDSNName = HMIRuntime.Tags("@DatasourceNameRT")

tagDSNName.Read

Set LocalBeginTime = HMIRuntime.Tags("strBeginTime")

LocalBeginTime.Read

Set LocalEndTime = HMIRuntime.Tags("strEndTime")

LocalEndTime.Read

UTCBeginTime = DateAdd("h" ,-8,LocalBeginTime.Value)

UTCEndTime= DateAdd("h" ,-8,LocalEndTime.Value)

第1页下一页