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

如何在组态软件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便可以非常方便地调用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.AddEXCEL生成报表后全屏显示. 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 5objExcel.Columns(nColumn).HorizontalAlignment= -4108 -4108=xlCenterNext 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_pvEnd With4.2 数据读出的步骤建立与数据库的连接,从中读出我们所需要的数据来填充我们的报表,下面的代码实现了这样的功能,把采集到的时间写入EXCEL的第一列中; Ingred1/pv、Ingred1/sup_pv、Ingred2/pv和Ingred2/sup_pv的数据写入EXCEL的第二、三、四和五列中。(1) 建立与数据库的连接Set conn = New ADODB.Connectionstr = FileDSN=db.dsn;conn.Open strSet 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.EOFnColumn = 0 表中的第1列b(i) = Trim(rs.Fields(nColumn).Value)nColumn = 1 表中的第2列a(i) = Trim(rs.Fields(nColumn).Value)i = i + 1rs.MoveNextirow = irow + 1Loop(3) 将数据写到EXCEL表中j = 2y = 1Do While y inColumn_excel = 1 EXCEL的列objExcel.cells(j, nColumn_excel).Value = b(y)objExcel.cells(j, nColumn_excel).numberformatLocal = yyyy-m-d h:mm:ssFor nColumn_excel = 2 To 5objExcel.cells(j, nColumn_excel).Value = a(y)y = y + 1Next nColumn_excelj = j + 1Loop最后在RSView32中通过RSView32函数调用VBA程序，利用VBA与EXCEL结合编程，实现了生成当日报表的功能。5 结束语本文例中将RSView32采集的数据通过ODBC接口存储到数据库Microsoft Access中，并利用RSView32自带的VBA编辑器导入到EXCEL中，并给出表单形式的数据报表;用同样的方法，也可生成柱状图等形式的报表，可根据具体需要编制相应的程序来实现，可作为低成本的报表实现方法，方便了操作与生产。