WinCC笔记：02.MSHFlex控件 —— (3) 从数据库中导入并导出到Excel图表中

目录

一、准备工作

1.数据库准备

 2.WinCC准备

二、读取数据库中的值 

三、导出到Excel文件并自动生成图表

---

一、准备工作

1.数据库准备

这里用到的是WinCC中数据记录的数据库，我已在WinCC中仿真了几个值，如下图所示。

在数据库中使用查询语句：

select * from openquery(LnkRtDb_WINCCOLEDB,'Tag:R,26,''2023-04-19 02:34:52.000'',''2023-04-19 02:41:02.000'',''TIMESTEP=18,257''')

 

 2.WinCC准备

（1）插入一个MSHFlex控件，命名为Grid。

（2）插入一个按钮，负责导出到Excel

二、读取数据库中的值 

这里将TimeStamp和Realvalue写入

在打开画面中写入脚本

Sub OnOpen()                                                                                                                                
Dim Grid,row,i
Dim conn,oRs,oCom
Set Grid=ScreenItems("Grid")
Set conn=Createobject("ADODB.Connection")
conn.Connectionstring="Provider=WinCCOLEDBProvider.1;Catalog="&SmartTags("@DatasourceNameRT")&";Data Source=.\WinCC"
conn.Cursorlocation=3
conn.open
Set oRs=Createobject(