運用VBA代碼智能化構建單井地質數據管理模型

1.目的

科研項目完成過程中，前期數據收集整理工作量大、耗時長。為了將科研人員從繁瑣、單調、重復的手工收集資料工作中徹底解放出來，利用WPS表格中VBA工具開展編程，實現了批量處理、智能化提取數據，快速生成適用范圍廣泛的二維清單表，以應用于石文、GeoMap等地質繪圖軟件及建模軟件，極大地減輕了科研人員的工作負擔、提高了工作效率。

2.方法

先在Vba編輯器中編寫數據提取核心代碼。利用單井卡片電子文檔由若干WPS表格文件組成，一個WPS表格文件包含一個氣田所有單井的地質數據，實行1井1表格，每張表格都包含“基礎數據”“地層分層”“測試情況”“油氣水漏顯示”“井身結構洗井液”“天然氣組分分析”“地層水分析”“測井綜合解釋”等8個部分數據信息。由于數據信息雖在各表格的單元格位置不固定，但數據區域連續而不間斷，因此代碼設計的關鍵是利用LIKE運算符查找8個部分對應關鍵字，以確定每個部分數據的起止邊界；然后按照在各WPS表格文件中循環、在各表格循環的順序，智能提取所有氣田、所有單井數據，生成二維清單表格；最后將編寫好的代碼利用VB封裝成COM加載宏并添加到WPS表格程序的功能區。其中的關鍵是聲明一個變量將用于添加功能區按鈕的XML代碼（自定義功能區代碼，可用UI工具提前編寫完成）連接起來，再用IRibbonExtensibility_GetCustomUI函數獲得這個代碼并添加到功能區。封裝完成后形成的Dll文件需要編寫一個bat文件，運行這個bat文件注冊，就能在WPS表格功能區看到“基礎數據”等8個部分對應的按鈕，點擊任意按鈕就能執行對應數據的提取任務（圖1）。

圖1 程序加載宏命令按鈕截屏圖

3.作用和效果

以收集四川盆地某研究區寒武系滄浪鋪組顯示資料作為驗證實例，采用上述方法能在1分鐘內完成該研究區1 600多口井的顯示情況收集，通過層位篩選，快速整理完成該研究區滄浪鋪組的顯示資料，導入GeoMap地質繪圖軟件中生成油氣水顯示圖，以便于后續對滄浪鋪組的儲層研究。該管理模型的應用創建，實現了數據提取從人工復制粘貼到智能化批量提取的轉變，相同工作量從過去的耗時數月縮減至目前的幾分鐘，極大地提高了數據收集整理的效率。該方法不僅為A1、A2數據系統的高效利用開辟了更為廣闊的途徑，同時也為油氣勘探開發工作的數據化、信息化、智能化進行了有益的探索。