利用VBA简化录井资料处理过程的两个实例

摘 要：当前在录井资料处理过程中，使用最多的软件仍然是微软Office组件中的Excel、Word和Access，其中经常要进行的大量机械和重复性的信息、数据处理工作，为了提高工作效率，我们可以利用Office自带的Visual Basic for Application（简称vba）来实现操作自动化，为录井技术人员节约时间和精力，为更出色的完成地质录井工作提供保障。

关键词：VBA 微软Office 资料处理 操作自动化

中图分类号：P631.84 文献标识码：A 文章编号：1674-098X（2014）01（c）-0241-04

Visual Basic for Application（简称VBA）是内置于Office系列产品中的一套开发平台，与Office产品高度集成。VBA是非常流行的应用程序开发语言Visual Basic（VB）的子集，具有VB语言的大多数特征和易用性，可以利用简单的语法和规则，通过简易快速的编程手法来实现软件的高级功能，将一些重复的输入和操作过程进行简化，以提高工作效率。而且VBA可以直接应用Office 套装软件的各项功能，如Excel具有打印、文件处理和文本编辑功能；具有大量可供选择的内置函数；且可连接到多种格式的数据库，等等。

1 岩屑描述代码转换

如图所示，在目前新生代软件录入的资料数据库中，岩屑描述记录中岩性和颜色是用代码来表示的，对不熟悉代码的人来说不易利用（如图1）。把这样的内容转换成汉字表述是经常要进行的操作。因此，利用宏对平时经常要进行的操作进行合理的录制，并与代码的含义结合，编制了一个包含可以对颜色、岩性、含油级别栏从代码到汉字的转换的宏。在打开包含这个宏的一个空工作表后，选中岩屑描述记录要转换的列，运行宏（图2），即可自动转换为（图3）所示的汉字表示。

代码的转换按照新生代软件代码表的定义进行，不会产生转换错误。需要说明的是，这个宏的编写也不是很劳累的一行接着一行写下来的，而是利用EXCEL表格的公式产生后粘贴过来的。

2 合并多张工作表

综合录井班报表一般都是用EXCEL编写的，有的分队采用一个班一张工作表，这样一个班报表文件如果是一个月就有60张左右的工作表。在上交过程中，有时又要求所有的内容都在一张工作表上。对于内容少的班报表来说，这个操作不算太费事，一张一张复制粘贴过来即可；但是如果是建井周期比较长的井呢？因此，编者采用VBA语言，针对录井班报表的特点，编制了一个宏，利用它可以快速对一个EXCEL文件中多张工作表的内容复制到一张工作表上，并调整好格式。3 结语

这两个实例就是使用宏记录器记录的用户的各种操作代码以及VBA自带的编程语言，使日常工作转换为VBA 程序代码，实现工作自动化。

我把这两个程序也推荐给其他作业队和地质评价中心使用，反映良好，大大的节约了时间。

以后的工作设想是争取利用VBA实现资料数据在多种软件之间的快速迁移。避免在A7系统、勘探生产信息系统和新生代软件中重复多次地进行资料录入。

事实上，VBA比较容易于学习掌握，利用好它，可以充分提高我们的工作效率，如果普遍使用，一定会使我们的工作有一个崭新的面貌。

参考文献

[1] 李兆群.录井技术现状及发展趋势[J].石油科技论坛，2010（6）.

[2] 黄晨翔.油田录井技术应用现状与发展对策分析[J].现代商贸工业，2011（11）.

[3] 窦景山.如何利用VBA对word操作自动评分[J].科技致富向导，2013（17）.

[4] 王志华，蒲前梅，张玉波，等.利用VBA实现Excel电子表格（工资报表）自动分页统计[J].青海石油，2008（4）.