Excel二次开发在物探数据处理中的应用.pdf

《Excel二次开发在物探数据处理中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江西煤炭科技2011年第2期JIANGXICOALSCIENCE&TECHNOLOGYN0．22011Excel二次开发在物搽数据处理巾昀应用徐昌革，戈俊，廖志伟(1．江西煤田地质局227地质队，江西吉安343000；2．江西煤田地质局普查综合大队，江西南昌330001)摘要：如果没有现成软件的支持，当数据量大时，物探数据处理是一项非常繁重、乏味，而且出错率较高的体力劳动。而利用Excel强大的二次开发平台，可以使数据处理效率大大增加，既减轻了劳动强度，又保证了数据处理的准确性。关键词：Excel；二次开发；物探；

2、数据处理中图分类号：TP317．3文献标识码：B文章编号：1006—2572(2011)02-0105-02ApplicationofExcelSecondaryDevelopmentinDataProcessingofGeophysicalProspectingXuChangge，GeJun2，LiaoZhiwei(1．No．227GeologicalTeam，JiangxiCoalfieldGeologyBureau，Ji'an，jiangxi343000；2．ComprehensiveSurveyTeam，J

3、iangxiCoalfieldGeologyBureau，Nanchang，Jiangxi330001)Abstract：ThepaperintroducestheapplicationofExcelsecondarydevelopmentindataprocessingofgeophysicalprospecting，whichhasincreasedtheefficiencyofdataprocessing，reducedlabourintensityandensuredtheac—curacy．Keyword

4、s：Excel；secondarydevelopment；geophysicalprospecting；dataprocessing1概述的体力劳动，而利用Excel强大的二次开发平台VBA，可以很好地解决这一问题。Excel是微软办公套装软件的一个重要的组成部分，是世界上第一个带有图形界面开发语言VBA的表处理软2二次开发过程件，它为用户提供了丰富的表制作工具和菜单程序命令、1)数据准备强大的函数功能和数据分析处理功能“。为了方便用户每种程序都有其特定的数据格式。此二次开发的数使用，降低劳动强度，提高工作效率，E

5、xcel除了其强大的据格式如图1所示。其中“点号”列数据为每个测点的标数据处理和表格编辑功能外，还提供了一个良好的二次开记，不同的测点用不同的数据区别开来，不能有重复点号。发平台VBA。用户可以根据自己的需要，让Excel按照事“深度”列数据是每个测点从地面开始起算的探测深度，计先预定的步骤，自动进行数据处理。算时程序自动将每个测点的深度转换成标高。“视电阻在一般的物探方法中，如电测深、瞬变等，其数据处理率”列程序计算时没有用到。“高程”列数据是每个测点的流程基本上都为：匝囹一匝一匾卜匝圈一圆高程，把所有测点的高程

6、放在该列，顺序必须对应“点号”其中，中问参数的计算和深度转换均有专门的软件。列的点号顺序。数据格式是保证计算结果正确的前提，只而高程转换，因项目要求和各种方法的数据格式不一样，要数据格式无误，程序会自动进行深度和高程的运算。目前还没有开发出专门的软件，需要手动进行大量的重复2)具体步骤加减运算。当数据较多时，是一项非常繁重且出错率较高此次代码编写和运行直接采用Office的VBA开发环·】05·选择区参数，通过选择区的范围来确定高程点的个数(即转换测点数)。rownulTl=Selection．ROW．rowcou

7、nts=Selection．Rows．Count。判断选择区位置，将选择区所处的单元格位置赋给变量rownum和roweounts。gaoc(i—rownum+1)=Cells(i，Selection．Col—umn)．Value。将需要转换的测点高程数据读取到数组gaoc中，为下面的深度标高转换做准备。Cells(i，2)．Value—Cells(j，2)．Value+gaoc(n)。将对应测点的深度转换为高程，Cells(i，2)：Value是指第二列第i行的数据，即深度数据。将以上代码加以循环，即可实现深度标

8、高的批量转图1二次开发数据格式换，极大地提高了数据转换的效率，也消除转换过程中带境。进入VBA编辑环境后，先定义程序编写需要的代码来的人为误差。变量，也可以在编写过程中根据需要定义。因为程序的主3应用效果要功能是让计算机实现深度和标高的自动转换，所以计算在江西省丰城市某煤矿水患探测中，完成瞬变测点的前提是正确读取高程。将高程正确读取后就可以进行232个，每测