电子水准仪数据的表格输出【摘 要】 本文主要是对拓普康数字水准仪记录数据的后期处理，利用VB6.0开发的小程序，对原始观测数据进行提取，生成水准规范中要求的观测手簿格式，提高电子水准仪一体化、自动化程度的效果关键词】 数字水准仪 观测手簿 VB一 引言1994年蔡司厂研制出了电子水准仪DiNi10/20，同年拓普康厂也研制出了电子水准仪DL101/102这意味着电子水准仪也将普及，并开始了激烈的市场竞争同时也说明，目前还是几何水准测量的精度高，没有其它方法可以取代GPS技术只能确定大地高，大地高换算成工程上感兴趣的正高，还需要知道高程异常，确定高程异常还少不了精密水准测量二 电子水准仪的原理及数据格式数字水准仪又称数字电子水准仪，它是在自动安平水准仪的基础上发展起来的数字水准仪具有能减轻作业劳动强度、测量数据便于输入计算机和容易实现水准测量内外业一体化的特点当前数字水准仪采用了原理上相差较大的三种自动电子读数方法：1）相关法（徕卡NA3002/3003）2) 几何法（蔡司DiNi10/20）3) 相位法（拓普康DL101C/102C）它与传统仪器相比有以下共同特点：1)读数客观2)精度高。
3)速度快4)效率高本文主要以拓普康DL系列电子水准仪为例，具体的仪器设定和外业操作就不再叙述，详见说明书外业仪器采集的数据格式如下（本文中以“后后前前(ghij)”观测数序）：g,A8,+92121,+8412,,,,HX72,HX72,0809,?,h,A8,+92126,+8410,,,,HX72,HX72,0809,C,i,A8,+257668,+6790,+36734453,,,1,HX72,0809,A,j,A8,+257677,+6791,+36734449,,,1,HX72,0809,H,g,A8,+56810,+5976,,,,1,HX72,0811,1,h,A8,+56835,+5970,,,,1,HX72,0811,3,i,A8,+232108,+8894,+36559155,,,2,HX72,0811,4,j,A8,+232109,+8892,+36559175,,,2,HX72,0811,6,……此格式每连续四行记录了完整一站的观测数据，本文中我们只关心有用的数据，如：测站代码，，中丝读数，视距，，，，点号或点名，，，，三 程序实现3.1 首先提取原始数据中可用的部分利用VB中字符串截取函数转换其中有用的数据，生成后期程序所需要的数据格式，把四行的数据合并为一行，部分程序代码如下：运行程序生成如下数据格式：3.2 根据上面的数据在Excel中格式化输出在Excel中可以打开内容被TAB符或逗号分割的文件，并且能正确的分解数据到相应的单元格中。
如果文本文件具有.csv扩展名，Excel直接打开文件而不会出现导入向导所以我们直接根据上面的数据文件生成后缀名为.csv的文件，并根据测站数量分页，还应在输出过程中计算高差、累计高差、视距、视距差、累计视距等数据对于观测手簿表头我们也进行了程序自动生成输出的文本文件数据格式如下：后台运行EXCEL Dim SZExcel As Object Dim SZBook As Object Dim P As Integer, DygZ As String, DygP As String Set SZExcel = CreateObject("Excel.Application")向EXCEL中传输数据 Set SZBook = SZExcel.Workbooks.Open("C:\观测表格.csv") 在表格中设置单元格的字体、行高、对齐方式以及格式化显示等如 DygZ = "A1:M" + Trim(Str(PageY * 65)) 'PageY为页码的变量 .Range(DygZ).RowHeight = 11 '行高 .Range(DygZ).Font.Size = 9 '字体大小 .Range(DygZ).HorizontalAlignment = 3 '居中 .Range(DygZ).VerticalAlignment = 2 '垂直居中……保存文件并退出 SZBook.SaveAs MIDfile, xlWorkbookNormal 'MIDfile变量为表格存放路径及文件 SZExcel.Quit最后生成的观测手簿如下图：在表格中设置了红黑读数和上下丝读数，是出于对传统表格和光学仪器观测数据转换等方面的考虑，在使用中可以根据实际情况修改表格内容。
四 结束语 由于篇幅有限，本文只简单介绍了程序实现的基本方法，在实际编程中还有重测测站的筛选、闭合差计算以及高程自动配赋等工作就不一一叙述对于表格细节设计中一些程序代码，我们可以通过调用VBA宏的方法来查看具体方法是：在Excel中录制一段宏，这段宏是与所编程序的操作有关系的，然后编辑此宏，就得到Visual Basic代码，再查找相对应的属性或方法，复制下来粘贴到VB程序中去有了这些VBA代码，就可以在VB程序中操作相应的Office对象了，从而使我们的程序如虎添翼参考文献【1】 张树兵等.VisualBasic6.0中文版入门与提高.北京:清华大学出版社，1999【2】 赵栋伟,松蕊等,Excel2000中文版速成[M].北京:机械工业出版社,1999【3】 孙敬杰,Excel VBA入门与实例演练[M].北京:中国青年出版社,2005。