应用Excel VBA编制煤田钻孔孔斜批量处理程序

王乔¹，万单静²，张博¹，陈龙¹，石立华³

1. 贵州省煤田地质局地质勘察研究院2. 中原油田分公司内蒙采油厂3. 陕西延长石油(集团)有限责任公司研究院

摘 要：煤田钻孔孔斜的校正计算,是地层界线和煤层坐标确定、勘探线剖面图、储量平面图绘制的重要基础工作,直接影响煤炭储量的计算。传统的孔斜校正工作一般是借助于Excel表格,但是手动输入耗费时力,且容易出错。基于地质工作实践,从孔斜校正的计算法基本理论知识出发,应用内嵌于Excel的VBA语言开发了一个钻孔孔斜批量处理程序,并在《贵州省都匀市江洲镇青山煤矿(预留)资源储量核实及勘探》项目中得到很好的应用。

关键词：Excel;VBA;孔斜;计算法;测斜点;煤层;