基于VBA的GeoIPAS地面磁法入库数据的快速准备方法

杨超 李红超

摘要：金维软件系统（GeoIPAS）是国家科技部和新疆维吾尔自治区“科技型中小企业技术创新基金”、新疆地矿局共同支持下开发完成的软件产品，是西北地区地质勘查类项目资料归档、成果提交中较为常用的工具。各模块原始数据都要求为某种特定的格式。如何快速而准确的准备好这些原始数据文件。较为简单的方法是通过Excel的VBA功能将这一过程自动化。以某磁测数据为例，通过分析这一过程的几个关键步骤的特点，得出了通过vba快速准备金维原始数据的通用模式，为其他数据格式的转换提供了思路。

关键词：GeoIPAS；VBA；格式转换；资料归档

1. GeoIPAS系统简介

金维软件系统（GeoIPAS）是一个跨平台的地学信息处理研究应用系统。它通过了中国地质调查局软件资质的认定，功能定位为辅助矿产勘查成果数据建库、成果分析、成果图制作等。是西北地区的地质勘查类项目资料归档、成果提交中较为常用的工具。其模块涵盖“数据预处理、重磁、电法、数学地质、水文地质、专题图件、三维可视化、工具、系统设置、系统帮助”等。为了更好统一地勘类项目资料归档的规范性，金维软件被广泛推广与认可。

2. VBA简介

VBA是基于Visual Basic发展而来的，它们具有相似的语言结构。Visual Basic是Microsoft的主要图形界面开发工具，VBA 5.0（亦即VBA 97）则是Visual Basic 5.0的子集。Visual Basic是由Basic发展而来的第四代语言。Visual Basic作为一套独立的Windows系统开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。VB的程序语言简单、便捷，利用其事件驱动的编程机制，新颖易用的可视化设计工具，并使用Windows应用程序接口（API）函数，采用动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）以及开放式数据库访问（ODBC）等技术，可以高效、快速地编制出Windows环境下功能强大、图形界面丰富的应用软件系统。[2]

3. VBA程序的制作及应用实践

GeoIPAS的归档結构虽然统一规范，但在日常工作中，不同单位所使用的仪器和惯用的工作过程千差万别，以致形成的最初原始资料不尽相同，这就产生了一个数据格式转换的问题。数据预处理和归档犹如一条自动化的流水线，但是数据格式转换的步骤将这一流水线断为两段，本文旨在通过Excel的VBA功能将这一步骤填补，恢复这一流水线的通畅，提高工作效率。

下面以新疆某地的磁法数据为例引出其他数据格式转换的统一套路。最初仪器传出的原始数据的格式为表1所示。

金维软件的归档格式为将磁测与gps数据分开，以逗号为分割符，磁测去掉开头的早基和结尾的晚基，另外磁测和gps数据还要加入仪器编号和操作者。为了达到金维要求的信息量首先设计一个vba窗口来输入所缺少的信息，如图1所示。并将这些信息存储到一个固定的文件中以便下次默认值为上次的输入。

4.总结

在此基础上去掉仪器号和操作员的信息，并转为读取基站数据的信息就可生成金维格式的日变基站原始数据文件，由上述利用vba做格式转换的过程得出了一个vba格式转换的基本模式。首先比较现有数据信息是否满足金维数据信息的要求，然后筛选出所需信息数据体，最后保存文件。注意的是在比较现有数据信息的时候文件名也是一个信息，筛选中剔除不需要的数据常用的算法就是if选择法，利用循环控制将数据读入临时数据库，同样利用循环控制将数据保存成为金维格式相应文件。

在大部分日常数据整理过程中Excel已经先入为主地成了原始数据的第一整理格式。然而格式转换产生了大量重复的操作，使得转换为金维格式这一过程降低了整个数据整理效率。vba的批处理能力恰好弥补了这一缺憾，从一定程度上降低了金维软件的使用难度。

参考文献：

[1]李万忠，彭仲秋，黄显义等.跨平台地学软件开发及其应用.物探与化探，2008，32（5），509-512.

[2]Excel VBA语法辞典[M].北京：机械工业出版社，2010.