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 Then
   oRs.MoveFirst
   With Grid
      .Rows=row
      .Cols=3
      .Colwidth(0)=100
      .Colwidth(1)=2500
      .Colwidth(2)=1500
      .TextMatrix(0,1)="时间"
      .TextMatrix(0,2)="数据"
      Do While Not oRs.EOF
         i=i+1
         .TextMatrix(i,1)=oRs("TimeStamp")
         .TextMatrix(i,2)=oRs("Realvalue")
         oRs.MoveNext
      Loop
   End With
End If

Set 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 Then
   Set xls=Createobject("Excel.Application")  
   xls.visible=True
   xls.workbooks.add
   Set 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)
      Next
      For i=1 To Grid.Rows-1
         For j=1 To Grid.Cols-1
            .cells(i+3,j)=Grid.TextMatrix(i,j)
         Next
      Next
      .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=2
   End 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=20
   End With
   
   filename="C:\Users\Laura\Desktop\ABC.xlsx"
   xls.Activeworkbook.saveas(filename)
   xls.workbooks.close
   xls.quit
End If
End Sub

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

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

3.TickLabelPosition

xlTickLabelPositionHigh	-4127	图表的顶部或右侧
xlTickLabelPositionLow	-4134	图表的底部或左侧
xlTickLabelPositionNextToAxis	4	坐标轴旁边（其中坐标轴不在图表的任意一侧）
xlTickLabelPositionNone	-4142	无刻度线

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

5.ChartType

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

簇状柱形图	xlColumnClustered	51
3D簇状柱形图	xl3DColumnClustered	54
簇状条形图	xlBarClustered	57
3D簇状条形图	xl3DBarClustered	60
折线图	xlLine	4
数据点折线图	xlLineMarkers	65
饼图	xlPie	5
分离型饼图	xlPieExploded	69
散点图	xlXYScatter	-4169
平滑线散点图	xlXYScatterSmooth	72
折线散点图	xlXYScatterLine	74

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

7.XlRowCol 

xlColumns	2	数据系列在行中。
xlRows	1	数据系列在列中。