基于VBA實驗數(shù)據(jù)高速處理系統(tǒng)的實現(xiàn)

鄭磊，黃向勝，閆琢玉，劉沖，張東峰

(1.中海油能源發(fā)展股份有限公司工程技術(shù)湛江分公司，廣東 湛江 524057；2.廣東省海上高溫高壓油氣藏勘探開發(fā)企業(yè)重點實驗室，廣東 湛江 524057)

0 引言

如今是一個數(shù)據(jù)高速處理時代，如果能用程序自動實現(xiàn)，不但能充分利用人力資源，大大提高工作效率，而且能降低分析數(shù)據(jù)過程中的出錯率[2]。利用VBA架構(gòu)提高實驗室的處理效率，降低運營成本，通過現(xiàn)代化科技手段，建立完善的自動化處理系統(tǒng)[1]。通過VBA語言的機制，用戶可以任意自定義數(shù)據(jù)，自定義數(shù)據(jù)類型豐富了VBA中原有的數(shù)據(jù)類型，并拓展VBA數(shù)據(jù)類型的應用范圍[3]。VBA語言提供了豐富的數(shù)據(jù)類型，每種數(shù)據(jù)類型都是具有相同性質(zhì)的數(shù)據(jù)集合，每種數(shù)據(jù)類型都針對不同的具體應用[4]。巖礦數(shù)據(jù)高效處理系統(tǒng)就是基于VBA架構(gòu)進行多層開發(fā)而誕生的智能化辦公系統(tǒng)，針對巖礦鑒定過程中產(chǎn)生的基礎實驗數(shù)據(jù)，進行數(shù)據(jù)整合及應用，極大的提高了數(shù)據(jù)處理效率，提升了實驗數(shù)據(jù)的準確性。

1 碎屑巖巖石薄片鑒定數(shù)據(jù)審核

該功能能夠批量將sheets(“砂巖數(shù)據(jù)”)一個樣品一行信息轉(zhuǎn)化為一個樣品一頁報告表格式，并同步對錄入的數(shù)據(jù)進行審核，主要審核兩個方面，一是審核各項數(shù)據(jù)總和是否為100%，二是審核巖石定名是否準確。在sheets(“砂巖數(shù)據(jù)”)錄入完整的原始數(shù)據(jù)后，點擊sheets(“功能”)頁面中的“砂巖數(shù)據(jù)審核”按鈕(如圖1所示)，即可運行數(shù)據(jù)審核功能，功能運行時會彈出運行信息框，信息框中顯示運行的步驟和完成率。碎屑巖數(shù)據(jù)審核運行完畢后，會自動跳轉(zhuǎn)到sheets (“砂巖報告審核”)頁面，數(shù)據(jù)轉(zhuǎn)化后將行數(shù)據(jù)轉(zhuǎn)為為報告數(shù)據(jù)，左邊為碎屑巖鑒定報告表，右邊為數(shù)據(jù)審核，右上為百分含量100%審核，如果含量不等于100%，則會紅色顯示；右下為最終的巖石定名審核，如果計算機IFS函數(shù)自動判別的巖石定名和人工鑒定巖石定名不一致，則會在右下標紅處理。如果所有信息都正確，則右邊的數(shù)據(jù)審核信息無特殊標志，默認黑色字體。

圖1 巖礦數(shù)據(jù)高效處理系統(tǒng)主界面

IFS函數(shù)相當于VBA宏程序的IF判斷，采用函數(shù)的優(yōu)點在于程序運行結(jié)束后函數(shù)的功能仍然有效。利用IFS函數(shù)提取巖石粒度和成分信息，進行判別定名，然后利用CONCATENATE函數(shù)，組合成巖石綜合定名。IFS、CONCATENATE函數(shù)巖石綜合定名準確率≥99.9%以上。

當百分含量或巖石定名被標紅時，檢測人員需要仔細辨識問題所在，如果確實存在問題，則需更改報告表中的數(shù)據(jù)，報告表中的數(shù)據(jù)更改后，右邊的數(shù)據(jù)審核的一系列數(shù)據(jù)也會實時進行更改，方便用戶再檢查判斷。檢測人員對所有的樣品依次進行檢查，直至確認無誤。

2 碎屑巖巖石薄片鑒定報告審核后數(shù)據(jù)反轉(zhuǎn)化

通過以上步驟，確保了報告表中的巖石薄片鑒定數(shù)據(jù)準確后，點擊“重新生成砂巖數(shù)據(jù)”按鈕，即可將審核后的sheets (“砂巖報告審核”)中的砂巖數(shù)據(jù)反轉(zhuǎn)到sheets(“砂巖數(shù)據(jù)”)中，以確保所原始的行數(shù)據(jù)和報告數(shù)據(jù)一致性，減少了重新輸入的易錯率，保證了數(shù)據(jù)的準確性。

3 碎屑巖巖石薄片鑒定報告生成

該功能能夠根據(jù)檢測報告和檢測原始記錄所需的格式及信息，提取sheets(“砂巖數(shù)據(jù)”)中的相應數(shù)據(jù)，一鍵生成檢測報告和原始數(shù)據(jù)兩個文件。具體功能實現(xiàn)如下：

(1)在桌面新建文件夾。文件夾命名原則為：“井號”&“(通知單編號)”&“巖石薄片鑒定”&“樣品數(shù)量”&“樣品類型”&“樣”。

(2)在新建的文件夾下新建兩個2個xlsx格式的Excel文件，其中一個文件包含sheets(“砂巖報告表”)和sheets(“砂巖數(shù)據(jù)”)2個工作表，該 Excel文件命名原則為：“井號”&“(通知單編號)”&“巖石薄片鑒定”&“樣品數(shù)量”&“樣品類型”&“樣”。另一個文件包含sheets(“報告封面”)、sheets(“封面第二頁”)、sheets(“薄片報告扉頁”)、sheets(“原始記錄封面”)、sheets(“原始記錄表”)等5個工作表，該Excel文件命名原則為：“井號”&“(通知單編號)”&“巖石薄片鑒定報告封面及原始記錄”。

以上功能通過點擊sheets(“功能”)頁面中的“砂巖報告導出”按鈕一鍵實現(xiàn)，軟件會提取檢測報告和檢測原始記錄相關數(shù)據(jù)，完善報告封面、原始記錄等文件信息，自動新建文件夾和文件，設置打印區(qū)域、頁碼、頁邊距等信息。實驗人員可以直接打開Excel文件打印檢測報告。

4 碎屑巖巖石薄片鑒定數(shù)據(jù)A2數(shù)據(jù)庫、勘探成果庫轉(zhuǎn)化

該功能能夠針對A2數(shù)據(jù)庫和勘探成果庫所需的格式，提取sheets(“砂巖數(shù)據(jù)”)中的相應數(shù)據(jù)，分別一鍵轉(zhuǎn)化生成兩個文件夾，不同的文件夾下生成所需的實驗數(shù)據(jù)主表、子表信息。具體功能實現(xiàn)如下：

(1)在桌面檢查是否有文件夾名為 “井號”&“(通知單編號)”&“巖石薄片鑒定”&“樣品數(shù)量”&“樣品類型”&“樣”的文件夾，如果沒有則新建文件夾，一般情況下，該文件夾已經(jīng)在步驟3中新建完成。

(2)在文件夾下載分別新建兩個文件夾，文件夾名分別為“井號”&“井A2數(shù)據(jù)庫”、“井號”&“井勘探成果庫”。在各自的文件夾下分別創(chuàng)建成分子表、孔縫子表、主表等3個xlsx格式的Excel文件。

以上工功能通過點擊sheets(“功能”)頁面中的“砂巖A2數(shù)據(jù)庫導出”、“砂巖勘探成果庫導出”2個按鈕分別實現(xiàn)。

5 巖石薄片鑒定顯微圖片排版

該功能能夠?qū)r石薄片顯微照片在Excel中一鍵排版，具體功能實現(xiàn)如下：

(1)顯微拍照。對需要將薄片拍照并排版的樣品依次拍照，照片保存格式為“樣品深度”&“-”&“編號”。注意照片命名中樣品深度末尾不帶“0”，編號從1開始，如2 865.10 m，則該深度的顯微照片依次命名為2865.1-1、2865.1-2….程序?qū)霑r會導入編號為1-6的樣品，編號＞6的樣品則不會導入。

(2)基本信息錄入。通過點擊sheets(“功能”)頁面中的“掃描電鏡、薄片圖像”按鈕，頁面跳轉(zhuǎn)至sheets(“掃描電鏡顯微照片排版”)(該工作表在不使用時一般是隱藏狀態(tài))，在sheets(“掃描電鏡顯微照片排版”)工作表的A-F列依次錄入需要導入的顯微照片對應的相關信息，如果已經(jīng)有其他井的信息，可以通過該頁面中的“原數(shù)據(jù)清理”實現(xiàn)原數(shù)據(jù)一鍵清除功能。

(3)顯微圖像導入。點擊sheets(“掃描電鏡顯微照片排版”)頁面中的“薄片顯微圖版”，則會彈出文件夾對話框，在彈出的對話框中選擇需要導入的顯微圖片的文件夾，點擊“確認”，則會彈出程序運行進度提示框，待程序運行進度提示框自動關閉后，則顯微照片圖版已經(jīng)保存在顯微照片所在的文件夾中的文件名為“井號”&“(通知單編號)”&“顯微特征及描述”的Excel文件中。

6 結(jié)語

為了滿足實驗室的數(shù)據(jù)快速處理的需求，提高實驗室的工作效率和客戶的滿意度，本文設計開發(fā)了一個實驗室數(shù)據(jù)處理系統(tǒng)，通過VBA架構(gòu)進行多層次開發(fā)使得實驗室數(shù)據(jù)處理效率得到了提高。主要介紹了實驗室數(shù)據(jù)處理系統(tǒng)的設計過程，運用軟件工程原理，完成了系統(tǒng)背景研究、需求分析、技術(shù)分析、系統(tǒng)功能設計等工作，同時對系統(tǒng)各功能模塊進行了測試，系統(tǒng)功能均能正常使用，系統(tǒng)界面友好、功能完善、操作簡單、運行穩(wěn)定，可以滿足實驗室日益增加的數(shù)據(jù)處理需求實現(xiàn)了實驗室數(shù)據(jù)的信息化管理。通過數(shù)據(jù)化的管理，提升實驗室的數(shù)據(jù)處理能力，降低運營成本。