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("ADODB.RecordSet")
Set oCom=Createobject("ADODB.Command")
oCom.Commandtype=1
Set oCom.Activeconnection=conn
oCom.Commandtext="TAG:R,26,'2023-04-19 02:34:52.000','2023-04-19 02:41:02.000','TIMESTEP=18,257'" 
Set oRs=oCom.Execute
row=oRs.recordcount
row=row+1
i=0
If Not oRs.EOF ThenoRs.MoveFirstWith Grid.Rows=row.Cols=3.Colwidth(0)=100.Colwidth(1)=2500.Colwidth(2)=1500.TextMatrix(0,1)="时间".TextMatrix(0,2)="数据"Do While Not oRs.EOFi=i+1.TextMatrix(i,1)=oRs("TimeStamp").TextMatrix(i,2)=oRs("Realvalue")oRs.MoveNextLoopEnd With
End IfSet oRs=Nothing
Set oCom=Nothing
conn.close
Set conn=Nothing
Set Grid=Nothing
End Sub

效果如下：

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

Sub OnClick(ByVal Item)                                         
Dim xls,sheet,Grid,Range
Dim i,j,row,filename
Set Grid=ScreenItems("Grid")
If Grid.Rows>1 ThenSet xls=Createobject("Excel.Application")  xls.visible=Truexls.workbooks.addSet sheet=xls.worksheets(1)With sheet.cells(1,1)="XX装置生产工艺参数报表".cells(2,1)="生成时间：".cells(2,2)=Year(Now)&"年"&Month(Now)&"月"&Day(Now)For j=1 To Grid.Cols-1.cells(3,j)=Grid.TextMatrix(0,j)NextFor i=1 To Grid.Rows-1For j=1 To Grid.Cols-1.cells(i+3,j)=Grid.TextMatrix(i,j)NextNext.range("a1:b1").mergecells=True'合并单元格.range("a4:a"&CStr(2+Grid.Rows)).NumberFormat="yyyy/mm/dd hh:mm:ss".range("a1").columnwidth=20.cells(1,1).horizontalalignment=3.range("a3:b"&CStr(2+Grid.Rows)).borders(1).linestyle=9 '表格边框线条样式.range("a3:b"&CStr(2+Grid.Rows)).borders(1).weight=2   '表格边框线条粗细.range("a3:b"&CStr(2+Grid.Rows)).borders(2).linestyle=9 .range("a3:b"&CStr(2+Grid.Rows)).borders(2).weight=2   .range("a3:b"&CStr(2+Grid.Rows)).borders(3).linestyle=9 .range("a3:b"&CStr(2+Grid.Rows)).borders(3).weight=2.range("a3:b"&CStr(2+Grid.Rows)).borders(4).linestyle=9 .range("a3:b"&CStr(2+Grid.Rows)).borders(4).weight=2End With'添加图表以及修改位置和大小With xls.worksheets.add.sheets("sheet2").Select.activesheet.Shapes.AddChart "xlXYScatterSmooth",30,30,600,600  '平滑散点图;Left=30;Top=30;Width=600;Height=400.activesheet.Shapes.item(1).Select                '选中当前图表 Set Range=xls.Worksheets("Sheet1").Range("a3:b" & CStr(2+Grid.rows))'设置数据来源范围.ActiveChart.SetSourceData Range,2 ' xlColumns.ActiveChart.Axes(1).TickLabelPosition = -4134	'底部xlLow.ActiveChart.Axes(1).TickLabelSpacing = 4	'时间轴间距.ActiveChart.Axes(1).TickLabels.Orientation = 60  '时间轴的字体为60° .ActiveChart.PlotArea.Select.ActiveChart.ChartType =72  '平滑散点图.ActiveChart.FullSeriesCollection(1).Select.ActiveChart.FullSeriesCollection(1).ApplyDataLabels  '曲线上标注数据'设置图表标题.ActiveChart.HasTitle=True.ActiveChart.ChartTitle.Characters.Text="**装置温度压力流量液位曲线图".ActiveChart.ChartTitle.font.size=20End Withfilename="C:\Users\Laura\Desktop\ABC.xlsx"xls.Activeworkbook.saveas(filename)xls.workbooks.closexls.quit
End If
End Sub

1.AddChart (样式，类型，左侧，顶部，宽度，高度，NewLayout)

2.CStr(2+Grid.rows)  把变量变为字符串格式

3.TickLabelPosition

4.TickLabelSpacing   设置分类轴上刻度线标签之间的分类数目。

5.ChartType

     具体见(26条消息) Excel中的VBA常量和编码值所代表的标准图表类型_vb xlxyscattersmoothnomarkers_Augusdi的博客-CSDN博客

6.PlotArea  该对象代表图表的绘图区。 此为只读属性

7.XlRowCol 

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！