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