基于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架构进行多层次开发使得实验室数据处理效率得到了提高。主要介绍了实验室数据处理系统的设计过程，运用软件工程原理，完成了系统背景研究、需求分析、技术分析、系统功能设计等工作，同时对系统各功能模块进行了测试，系统功能均能正常使用，系统界面友好、功能完善、操作简单、运行稳定，可以满足实验室日益增加的数据处理需求实现了实验室数据的信息化管理。通过数据化的管理，提升实验室的数据处理能力，降低运营成本。