如何在组态软件RSView32中用VBA实现报表

1 引言
作为组态软件，罗克韦尔RSView32提供了强大的数据监控能力，方便用户进行上位机的画面组态。由于RSView32并没有提供强大的报表功能，如果只进行简单的数据分析，报表变化不是很复杂，并且对数据可移动性无太高要求，组态软件可实现。然而一旦涉及到复杂的数据处理，组态软件往往表现得力不从心。但是RSView32内嵌有VBA，VBA是Visual Basic for Application的简写，它以VB语言为基础，经过修改并运行在Microsoft Office的应用程序。只要使用VBA进行简单的编程便可以实现大多数报表功能了。在PLC——计算机监控系统中，界面设计通常组态软件来实现。

2 开发环境及数据记录格式简介
RSView32是RockWell SoftWare公司的组态软件，它提供集成的、组态化的人机接口，广泛的用来监视和控制自动化设备和过程。它除了可以方便的与ALLEN -BRADLEY PLC进行无缝的结合应用，也可以通过使用OPC的通讯方式与其它公司的设备进行连接。
ODBC(Open Database Connectivity开放式数据库互连)是由微软推出的工业标准，一种开放的独立于厂商的API应用程序接口，可以跨平台访问各种个人计算机、小型机以及主机系统。ODBC作为一个工业标准，绝大多数数据库厂商都为自己的产品提供了ODBC接口或提供了ODBC支持，这其中就包括常用的SQL SERVER、ORACLE、INFORMIX等，当然也包括了Access。
RSView32的数据记录是一个在特定条件下保存指定的标记数值或数据的过程。在“数据记录设置”编辑器里,可以创建定义不同条件的数据记录模式,本文将数据通过ODBC接口存储到数据库Access里,即将标记值被记录到用ODBC接口连接到的数据库Access的三个表格里:
标记表格(TagTable):把标记名存储到一个索引里;
符点数表格(FloatTable):存储模拟量和开关量标记数值;
字符串表格(StringTable):存储字符串数值。
本文中关心的是符点数表格(FloatTable)，但在符点数表格中(FloatTable)没有代表标记名称的Tagname字段，代替它的是标记索引号TagIndex字段，这样在分析报表时很不方便,而在本文中将使用VBA解决表格带来的不便。

3 实现原理
RSView32从PLC采集的实时数据，通过ODBC接口存储到数据库Access中，在利用RSView32自带的VBA开发，访问Access数据库，对实时数据进行复杂的操作，可以通过VBA调用Excel，显示和打印出美观复杂的报表;也可以在通过VBA的窗体，表格控件，回显在RSView32的人机界面上，作到无缝连接;本文介绍前一种方法。
通过Excel可以用VBA程序生成Excel报表及图表，并利用Excel的功能完成打印预览、打印等功能;Excel对象封装了微软Excel的全部元素，例如Application对象表示Excel应用程序，Worksheet对象表示Excel工作表等，利用Excel对象提供的属性、方法和事件，在应用程序中生成Excel报表及图表Excel对象模型描述了Excel中对象之间的结构关系，如图1所示。

图1 EXCEL对象模型

(1) Application对象表示Excel应用程序,在Excel对象模型中该对象处于模型的顶端，通过使用可以访问模型中其它对象，从而控制Excel应用程序的外观或功能。
(2) Workbook对象表示Excel中的工作簿，即对应一个Excel文件，通过使用该对象可以实现对Excel工作簿的各种控制。
(3) Worksheet对象表示Excel中的工作表，通过使用该对象可以实现对Excel工作表的各种控制。
(4) Range对象表示Excel中的区间，可以表示Excel的单元格、几个单元格、行、列或一个选中的区域，使用Range对象可以实现对Excel单元格或选中区域的各种控制。

4 应用实例
Microsoft Office EXCEL有十分强大报表功能,使用VBA便可以非常方便地调用EXCEL的功能来生成我们所需的报表。下面将详细介绍如何使用VBA通过EXCEL来生成当日的报表。
解决方案框图如图2所示。

图2 解决方案框图

4.1 打开EXCEL
为了使用EXCEL为我们生成报表，我们必须事先打开EXCEL,下面的VBA语句显示了如何在RSView中打开EXCEL。
‘ 创建 EXCEL对象
Set objExcel = CreateObject("Excel.Application")
‘ 设置EXCEL的属性
With objExcel
‘显示EXCEL
.Application.Visible = True
‘创建新的工作簿
. Application.Workbooks.Add
‘EXCEL生成报表后全屏显示
. Application.WindowState=-4137
‘激活一个第一个工作表
.Worksheets("Sheet1").Activate
‘定义列宽
. Columns(1).ColumnWidth = 23
.Columns(2).ColumnWidth = 15
. Columns(3).ColumnWidth = 17
.Columns(4).ColumnWidth = 15
.Columns(5).ColumnWidth = 17
‘每列的内容居中显示
For nColumn = 1 To 5
objExcel.Columns(nColumn).HorizontalAlignment= -4108 '-4108=xlCenter
Next nColumn
定义EXCEL表的列名
.Rows(1).Font.Bold = True
.cells(1, 1).Value = "Data and Time"
.cells(1, 2).Value = "Ingred1/pv"
.cells(1, 3).Value = "Ingred1/sup_pv"
.cells(1, 4).Value = "Ingred2/pv"
.cells(1, 5).Value = "Ingred2/sup_pv"
End With
4.2 数据读出的步骤
建立与数据库的连接,从中读出我们所需要的数据来填充我们的报表,下面的代码实现了这样的功能,把采集到的时间写入EXCEL的第一列中; "Ingred1/pv"、"Ingred1/sup_pv"、"Ingred2/pv"和"Ingred2/sup_pv"的数据写入EXCEL的第二、三、四和五列中。
(1) 建立与数据库的连接
Set conn = New ADODB.Connection
str = "FileDSN=db.dsn;;;"
conn.Open str
Set rs = New ADODB.Recordset
‘采集当日的数据
SQL=”select DateAndTime, Millitm from FloatTable where datediff(‘d’,DateAndTime,date())=0”
rs.Open SQL, conn
(2) 读取符点数表格(FloatTable)中的数据
Do While Not rs.EOF
nColumn = 0 '表中的第1列
b(i) = Trim(rs.Fields(nColumn).Value)
nColumn = 1 '表中的第2列
a(i) = Trim(rs.Fields(nColumn).Value)
i = i + 1
rs.MoveNext
irow = irow + 1
Loop
(3) 将数据写到EXCEL表中
j = 2
y = 1
Do While y <> i
nColumn_excel = 1 'EXCEL的列
objExcel.cells(j, nColumn_excel).Value = b(y)
objExcel.cells(j, nColumn_excel).numberformatLocal = "yyyy-m-d h:mm:ss"
For nColumn_excel = 2 To 5
objExcel.cells(j, nColumn_excel).Value = a(y)
y = y + 1
Next nColumn_excel
j = j + 1
Loop
最后在RSView32中通过RSView32函数调用VBA程序，利用VBA与EXCEL结合编程，实现了生成当日报表的功能。

5 结束语
本文例中将RSView32采集的数据通过ODBC接口存储到数据库Microsoft Access中，并利用RSView32自带的VBA编辑器导入到EXCEL中，并给出表单形式的数据报表;用同样的方法，也可生成柱状图等形式的报表，可根据具体需要编制相应的程序来实现，可作为低成本的报表实现方法，方便了操作与生产。