博途WINCC RT Professional通过VBS脚本链接数据库查询数据库显示并导出EXCEL

博途WINCC RT Professional通过VBS脚本链接数据库查询数据库显示并导出EXCEL

Wincc作为西门子可视化系统，可以用于数据追溯功能。本文将讲述博途WINCC RT Professional通过VBS脚本链接数据库查询数据库显示并导出EXCEL。

1. 查询SQL数据库，将数据显示到MSFlexGrid控件上
   打开数据库：

Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persis Security Info=False;Initial Catalog=Data;Data Source=.\WINCC"
Set conn=CreateObject("ADODB.Connection")
conn.ConnectionString=Con
conn.CursorLocation=3
conn.Open

接下来需要根据自己需求，编写SQL查询语句，涉及各种查询条件
执行SQL语句：

Set oRs=CreateObject("ADODB.Recordset")
Set oCom=CreateObject("ADODB.Command")
Set oCom.ActiveConnection=conn
oCom.CommandType=1
oCom.CommandText=sSql
Set oRs=oCom.Execute

其次将查询到的数据填写到MSFlexGrid控件上，表格的宽高可以通过脚本定义

MSFlexGrid1.TextMatrix(i,0)=oRs.Fields(0).value
MSFlexGrid1.TextMatrix(i,1)=oRs.Fields(1).value

2. 查询SQL数据库，将数据导出EXCEL
导出EXCEL与显示数据到MSFlexGrid控件上基本类似，也是先进行查询，唯一区别是需要设置EXCEL模板，填充对象为EXCEL。
打开EXCEL模板：

Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible=False
objExcelApp.Workbooks.Open "D:\模板\record.xlsx"
`

最后将EXCEL另存为：

objExcelApp.DisplayAlerts=False
objExcelApp.activeworkbook.saveas excel_name
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing

在这里要感谢某卖家给予的帮助：https://item.taobao.com/item.htm?spm=a2oq0.12575281.0.0.50111debAj2cJd&ft=t&id=587359488903