博途WINCCRTProfessional通过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")
vbs基本教程
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。