基于VBA實驗數據高速處理系統的實現

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

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

0 引言

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

1 碎屑巖巖石薄片鑒定數據審核

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

圖1 巖礦數據高效處理系統主界面

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

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

2 碎屑巖巖石薄片鑒定報告審核后數據反轉化

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

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

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

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

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

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

4 碎屑巖巖石薄片鑒定數據A2數據庫、勘探成果庫轉化

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

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

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

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

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

該功能能夠對巖石薄片顯微照片在Excel中一鍵排版，具體功能實現如下：

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

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

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

6 結語

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