1 引言
作為組態(tài)軟件，羅克韋爾RSView32提供了強(qiáng)大的數(shù)據(jù)監(jiān)控能力，方便用戶進(jìn)行上位機(jī)的畫面組態(tài)。由于RSView32并沒有提供強(qiáng)大的報(bào)表功能，如果只進(jìn)行簡單的數(shù)據(jù)分析，報(bào)表變化不是很復(fù)雜，并且對數(shù)據(jù)可移動(dòng)性無太高要求，組態(tài)軟件可實(shí)現(xiàn)。然而一旦涉及到復(fù)雜的數(shù)據(jù)處理，組態(tài)軟件往往表現(xiàn)得力不從心。但是RSView32內(nèi)嵌有VBA，VBA是Visual Basic for Application的簡寫，它以VB語言為基礎(chǔ)，經(jīng)過修改并運(yùn)行在Microsoft Office的應(yīng)用程序。只要使用VBA進(jìn)行簡單的編程便可以實(shí)現(xiàn)大多數(shù)報(bào)表功能了。在PLC——計(jì)算機(jī)監(jiān)控系統(tǒng)中，界面設(shè)計(jì)通常組態(tài)軟件來實(shí)現(xiàn)。

2 開發(fā)環(huán)境及數(shù)據(jù)記錄格式簡介
RSView32是RockWell SoftWare公司的組態(tài)軟件，它提供集成的、組態(tài)化的人機(jī)接口，廣泛的用來監(jiān)視和控制自動(dòng)化設(shè)備和過程。它除了可以方便的與ALLEN -BRADLEY PLC進(jìn)行無縫的結(jié)合應(yīng)用，也可以通過使用OPC的通訊方式與其它公司的設(shè)備進(jìn)行連接。
ODBC(Open Database Connectivity開放式數(shù)據(jù)庫互連)是由微軟推出的工業(yè)標(biāo)準(zhǔn)，一種開放的獨(dú)立于廠商的API應(yīng)用程序接口，可以跨平臺(tái)訪問各種個(gè)人計(jì)算機(jī)、小型機(jī)以及主機(jī)系統(tǒng)。ODBC作為一個(gè)工業(yè)標(biāo)準(zhǔn)，絕大多數(shù)數(shù)據(jù)庫廠商都為自己的產(chǎn)品提供了ODBC接口或提供了ODBC支持，這其中就包括常用的SQL SERVER、ORACLE、INFORMIX等，當(dāng)然也包括了Access。
RSView32的數(shù)據(jù)記錄是一個(gè)在特定條件下保存指定的標(biāo)記數(shù)值或數(shù)據(jù)的過程。在“數(shù)據(jù)記錄設(shè)置”編輯器里,可以創(chuàng)建定義不同條件的數(shù)據(jù)記錄模式,本文將數(shù)據(jù)通過ODBC接口存儲(chǔ)到數(shù)據(jù)庫Access里,即將標(biāo)記值被記錄到用ODBC接口連接到的數(shù)據(jù)庫Access的三個(gè)表格里:
標(biāo)記表格(TagTable):把標(biāo)記名存儲(chǔ)到一個(gè)索引里;
符點(diǎn)數(shù)表格(FloatTable):存儲(chǔ)模擬量和開關(guān)量標(biāo)記數(shù)值;
字符串表格(StringTable):存儲(chǔ)字符串?dāng)?shù)值。
本文中關(guān)心的是符點(diǎn)數(shù)表格(FloatTable)，但在符點(diǎn)數(shù)表格中(FloatTable)沒有代表標(biāo)記名稱的Tagname字段，代替它的是標(biāo)記索引號(hào)TagIndex字段，這樣在分析報(bào)表時(shí)很不方便,而在本文中將使用VBA解決表格帶來的不便。

3 實(shí)現(xiàn)原理
RSView32從PLC采集的實(shí)時(shí)數(shù)據(jù)，通過ODBC接口存儲(chǔ)到數(shù)據(jù)庫Access中，在利用RSView32自帶的VBA開發(fā)，訪問Access數(shù)據(jù)庫，對實(shí)時(shí)數(shù)據(jù)進(jìn)行復(fù)雜的操作，可以通過VBA調(diào)用Excel，顯示和打印出美觀復(fù)雜的報(bào)表;也可以在通過VBA的窗體，表格控件，回顯在RSView32的人機(jī)界面上，作到無縫連接;本文介紹前一種方法。
通過Excel可以用VBA程序生成Excel報(bào)表及圖表，并利用Excel的功能完成打印預(yù)覽、打印等功能;Excel對象封裝了微軟Excel的全部元素，例如Application對象表示Excel應(yīng)用程序，Worksheet對象表示Excel工作表等，利用Excel對象提供的屬性、方法和事件，在應(yīng)用程序中生成Excel報(bào)表及圖表Excel對象模型描述了Excel中對象之間的結(jié)構(gòu)關(guān)系，如圖1所示。

圖1 EXCEL對象模型

(1) Application對象表示Excel應(yīng)用程序,在Excel對象模型中該對象處于模型的頂端，通過使用可以訪問模型中其它對象，從而控制Excel應(yīng)用程序的外觀或功能。
(2) Workbook對象表示Excel中的工作簿，即對應(yīng)一個(gè)Excel文件，通過使用該對象可以實(shí)現(xiàn)對Excel工作簿的各種控制。
(3) Worksheet對象表示Excel中的工作表，通過使用該對象可以實(shí)現(xiàn)對Excel工作表的各種控制。
(4) Range對象表示Excel中的區(qū)間，可以表示Excel的單元格、幾個(gè)單元格、行、列或一個(gè)選中的區(qū)域，使用Range對象可以實(shí)現(xiàn)對Excel單元格或選中區(qū)域的各種控制。

4 應(yīng)用實(shí)例
Microsoft Office EXCEL有十分強(qiáng)大報(bào)表功能,使用VBA便可以非常方便地調(diào)用EXCEL的功能來生成我們所需的報(bào)表。下面將詳細(xì)介紹如何使用VBA通過EXCEL來生成當(dāng)日的報(bào)表。
解決方案框圖如圖2所示。

圖2 解決方案框圖

4.1 打開EXCEL
為了使用EXCEL為我們生成報(bào)表，我們必須事先打開EXCEL,下面的VBA語句顯示了如何在RSView中打開EXCEL。
‘ 創(chuàng)建 EXCEL對象
Set objExcel = CreateObject("Excel.Application")
‘ 設(shè)置EXCEL的屬性
With objExcel
‘顯示EXCEL
.Application.Visible = True
‘創(chuàng)建新的工作簿
. Application.Workbooks.Add
‘EXCEL生成報(bào)表后全屏顯示
. Application.WindowState=-4137
‘激活一個(gè)第一個(gè)工作表
.Worksheets("Sheet1").Activate
‘定義列寬
. Columns(1).ColumnWidth = 23
.Columns(2).ColumnWidth = 15
. Columns(3).ColumnWidth = 17
.Columns(4).ColumnWidth = 15
.Columns(5).ColumnWidth = 17
‘每列的內(nèi)容居中顯示
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 數(shù)據(jù)讀出的步驟
建立與數(shù)據(jù)庫的連接,從中讀出我們所需要的數(shù)據(jù)來填充我們的報(bào)表,下面的代碼實(shí)現(xiàn)了這樣的功能,把采集到的時(shí)間寫入EXCEL的第一列中; "Ingred1/pv"、"Ingred1/sup_pv"、"Ingred2/pv"和"Ingred2/sup_pv"的數(shù)據(jù)寫入EXCEL的第二、三、四和五列中。
(1) 建立與數(shù)據(jù)庫的連接
Set conn = New ADODB.Connection
str = "FileDSN=db.dsn;;;"
conn.Open str
Set rs = New ADODB.Recordset
‘采集當(dāng)日的數(shù)據(jù)
SQL=”select DateAndTime, Millitm from FloatTable where datediff(‘d’,DateAndTime,date())=0”
rs.Open SQL, conn
(2) 讀取符點(diǎn)數(shù)表格(FloatTable)中的數(shù)據(jù)
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) 將數(shù)據(jù)寫到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函數(shù)調(diào)用VBA程序，利用VBA與EXCEL結(jié)合編程，實(shí)現(xiàn)了生成當(dāng)日報(bào)表的功能。

5 結(jié)束語
本文例中將RSView32采集的數(shù)據(jù)通過ODBC接口存儲(chǔ)到數(shù)據(jù)庫Microsoft Access中，并利用RSView32自帶的VBA編輯器導(dǎo)入到EXCEL中，并給出表單形式的數(shù)據(jù)報(bào)表;用同樣的方法，也可生成柱狀圖等形式的報(bào)表，可根據(jù)具體需要編制相應(yīng)的程序來實(shí)現(xiàn)，可作為低成本的報(bào)表實(shí)現(xiàn)方法，方便了操作與生產(chǎn)。