VBA技術(shù)在熱軋模型數(shù)據(jù)分析中的應(yīng)用

王 濤, 李孝明

(新疆八一鋼鐵股份有限公司軋鋼廠)

前言

八鋼熱軋生產(chǎn)過程中，軋制工藝參數(shù)計算所需的區(qū)域跟蹤、數(shù)據(jù)采集、自學(xué)習(xí)、工藝參數(shù)計算及下發(fā)均通過模型系統(tǒng)完成。模型系統(tǒng)是八鋼1750熱軋生產(chǎn)運行的核心，模型系統(tǒng)的順行，需要工藝人員在生產(chǎn)過程、設(shè)備精度變化時及時跟蹤、分析、調(diào)優(yōu)。投產(chǎn)以來，模型系統(tǒng)經(jīng)過升級擴充，目前能夠處理125個出鋼記號，每個出鋼記號下又劃分寬度層別6個、厚度層別7個、溫度層別5個，累計疊加工藝參數(shù)的量超過1萬個，這些參數(shù)存儲在系統(tǒng)的Oracle數(shù)據(jù)庫中。Oracle數(shù)據(jù)庫操作比較專業(yè)，一般現(xiàn)場生產(chǎn)工藝人員還不熟悉?；谏a(chǎn)工藝人員最熟悉的處理數(shù)據(jù)的工具，如Office Excel，WPS的表格工具，讓工藝人員用最熟悉的方式操作數(shù)據(jù)、處理問題，需要在專業(yè)數(shù)據(jù)庫數(shù)據(jù)與辦公表格之間建立連接，實現(xiàn)自如操作。

經(jīng)過分析實踐，八鋼1750熱軋廠工藝人員決定采用VBA技術(shù)解決模型數(shù)據(jù)信息化的方案。VBA(Visual Basic for Applications)是一種宏語言，是微軟公司開發(fā)的在其桌面應(yīng)用程序中執(zhí)行通用的自動化(OLE)任務(wù)的編程語言，主要能用來擴展Windows的應(yīng)用程序功能。目前OFFICE Excel和WPS表格都支持VBA，可以通過ADO方式連接到Oracle并操作Oracle，結(jié)合Excel的數(shù)據(jù)處理與圖表制作，就能讓生產(chǎn)工藝人員輕松便捷的處理數(shù)據(jù)。

1 建立工作目標(biāo)

基于VBA技術(shù)要求，八鋼1750熱軋廠工藝人員利用模型系統(tǒng)主要考慮三個方面：(1)模型自學(xué)習(xí)系數(shù)跟蹤分析；(2)與質(zhì)量密切相關(guān)的數(shù)據(jù)跟蹤分析；(3)生產(chǎn)過程跟蹤分析。

任何方面的工作內(nèi)容都涉及到很多數(shù)據(jù)，以成品寬度為例，決定熱軋成品寬度質(zhì)量的要素包括板坯寬度、立輥各道次設(shè)定及實際測壓量、粗軋道次、模型粗軋目標(biāo)寬度、寬度自學(xué)習(xí)、精軋后機架軋制力偏差、活套設(shè)定、張力、操作工寬度干預(yù)量等，這些數(shù)據(jù)共同決定一塊帶鋼的寬度質(zhì)量，而寬度質(zhì)量在實際工作中又需要研究頭部、尾部及均值等。梳理出的熱軋工藝控制要點與需要歸集的工藝參數(shù)如表1所示。

表1 熱軋工藝控制要點與需要歸集的工藝參數(shù)

在確定了工藝控制要點與需要歸集的工藝參數(shù)后，需要做的工作是如何按照卷號或者鋼種規(guī)格進行數(shù)據(jù)匹配歸集，如何通過VBA技術(shù)將存儲在不同數(shù)據(jù)庫中的關(guān)鍵相關(guān)數(shù)據(jù)自動采集，按鋼卷號分鋼種規(guī)格呈現(xiàn)在EXCEL表中。

2 用VBA技術(shù)處理Oracle數(shù)據(jù)庫

2.1 使用VBA鏈接Oracle數(shù)據(jù)庫，取得數(shù)據(jù)

使用VBA技術(shù)處理Oracle數(shù)據(jù)庫中數(shù)據(jù)的流程：

(1)安裝Oracle客戶端軟件，連接Oracle服務(wù)器。

(2)在EXCEL 或者WPS表格啟用VBA功能；VBA不是EXCEL或者WPS的必備功能，需要安裝時選擇安裝。

(3)在VBA中啟動數(shù)據(jù)庫連接支持。

VBA功能啟用后在VBA菜單欄選擇“工具”-“引用”，在彈出的引用窗口中，找到"Microsoft ActiveX Data Objects 6.1 Library"和"Microsoft ActiveX Data Objects Recordset 2.8 Library"，把前面的框勾選上，點擊確定即可。 (如果不是這兩個版本，則選擇一個版本號最高的勾選即可)

圖1 EXCEL WPS表格啟用數(shù)據(jù)庫連接

(4)連接Oracle數(shù)據(jù)庫，打開數(shù)據(jù)表，提取數(shù)據(jù)到EXCEL表格中。

在按照上述步驟配置了環(huán)境支持后，就可以在VBA中就可以使用代碼連接Oracle了。

①首先需定義連接對象：

Dim conn as ADODB.Connection

Set conn=new ADODB.Connection

②連接數(shù)據(jù)庫

strConn = "Driver={Oracle in OraClient11g_home1};Dbq=TNS服務(wù)名;Uid=數(shù)據(jù)庫登錄賬戶;Pwd=數(shù)據(jù)庫登錄密碼;"

conn.Open strConn' 打開數(shù)據(jù)庫

③提起數(shù)據(jù)到EXCEL表中。

2.2 啟用VBA的Application.ontime函數(shù)跟蹤數(shù)據(jù)

生產(chǎn)單位一直在生產(chǎn)，為了及時跟蹤數(shù)據(jù)，VBA程序需要自動運行，VBA中Application.ontime函數(shù)定時能夠自動運行。

Sub 自動運行()

MyTime = Now + TimeValue("00:00:05" )

獲取工藝數(shù)據(jù)

Application.OnTime MyTime, "自動運行"

[a1]= Now ‘單線程運行通過時間顯示運行狀態(tài)

End Sub

2.3 使用VBA ChartObjects對象繪制圖表

數(shù)據(jù)圖形化更能使過程一目了然，使用VBA 包含的Chartobjects可以方便的繪制圖形。通過規(guī)劃，可以通過Chartobjects設(shè)置圖表的位置，圖表類型，標(biāo)題，X軸Y軸刻度，數(shù)據(jù)源，作圖的每一個細節(jié)都在控制范圍內(nèi)。

圖2 通過VBAChartObject用圖表跟蹤顯示工藝參數(shù)

3 應(yīng)用數(shù)據(jù)解決問題

結(jié)合經(jīng)驗邏輯，通過現(xiàn)場實際數(shù)據(jù)對數(shù)據(jù)進行自動判斷，對可能造成缺陷的過程進行抓取，工藝人員根據(jù)提示進行驗證，發(fā)現(xiàn)問題，快速解決。工藝控制過程判斷系統(tǒng)提示如表2所示。

表2 熱軋工藝控制過程缺陷判斷邏輯表

4 結(jié)語

基于規(guī)律的認識是解決問題的方法之一。隨著信息技術(shù)的發(fā)展，信息化越來越多應(yīng)用到產(chǎn)品制造中，將對規(guī)律的認識轉(zhuǎn)換成信息完成數(shù)據(jù)分析。很多編程語言都支持對EXCEL的二次開發(fā)，八鋼1750熱軋廠工藝人員選用EXCEL 、WPS內(nèi)嵌的VBA語言進行工藝數(shù)據(jù)處理，易于學(xué)習(xí)掌握，使用便捷，提高了工作效率。