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

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

1 引言

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

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单元格或选中区域的各种控制。 应用实例

Microsoft Office EXCEL有十分强大报表功能,使用VBA便可以非常方便地调用EXC

EL的功能来生成我们所需的报表。下面将详细介绍如何使用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中，并给出表单形式的数据报表;用同样的方法，也可生成柱状图等形式的报表，可根据具体需要编制相应的程序来实现，可作为低成本的报表实现方法，方便了操作与生产。