EXCEL宏在转换地籍测量野外采集数据中的应用.doc

EXCEL宏在转换地籍测量野外采集数据中的应用常州市武进土地登记中心（勘测队） 龚有良 王雪文摘要：本文介绍了用EXCEL2003宏将天宝捷创力全站仪野外测量数据文件转换成CASS数据格式的方法。关键词：全站仪测量文件、CASS数据格式、EXCEL数据转换、EXCEL宏1、引言由于CASS软件采用的是CAD平台，以及软件本身丰富的功能，CASS软件越来越受到许多测量者的喜爱。但软件本身没有捷创力全站仪的数据导入功能，因此我们采用EXCEL2003录制了将捷创力全站仪数据文件转换成CASS数据格式的宏。使用中，感到我们的方法还不错，比较方便。现介绍如下，以供有兴趣的同行借鉴。2、CASS数据格式及捷创力全站仪数据格式CASS数据格式是：点号，点码，Y，X，H。文件的后缀是DAT。我们用于全站仪的数据采集程序文件PRO2的格式是：标号 正文 类型 类型含义37 X 0 从全站仪得到的原始数据38 Y 0 从全站仪得到的原始数据11 平距 8 观察标号39 H 0 从全站仪得到的原始数据5 点号 4 增加/减少4 点码 3 复制/半自动79 结束 5 循环/半自动上述程序文件采用仪器的PRO40程序输入。其中平距只显示不记录，供无反射棱镜方法测量时起检核用。仪器的工作文件后缀是DC，文件导入计算机后其格式如下：00NMSDR33 V04 00002011-5-24 11111110NM49 12111108TP 1100000.214 89999.263 1.951 F08TP 2100003.600 89999.430 1.883 F08TP 3100004.768 90000.878 1.858 F08TP 0501100004.488 90002.403 1.856 F08TP 0502100000.800 89997.430 1.921 F08TP 050399999.001 89996.180 1.917 F08TP 050499998.285 89995.744 1.911 F3、用EXCEL2003进行数据转换3.1双击EXCEL2003图标，打开EXCEL，检查光标是否在A1单元格，如不在点击A1单元格。3.2在菜单数据栏点击导入外部数据、导入数据，击活对话框，选取数据源。本例中，选D：211CAD49.DC，打开；然后再在击活的对话框中，导入起始行选3，再点击下一步；再在标尺20处用鼠标左键点击，再下一步; 再在列数据格式中选不导入此列，再点击完成、确定，此时数据就导入了SHEET1表了。3.3此时数据的排列为：点号，X，Y，H，点码；不符合CASS格式。为此要进行列操作，将数据调整到CASS格式。我们可按顺序将SHEET1表的A、E、C、B、D列分别复制到SHEET2表的A、B、C、D、E列，SHEET2表即为CASS格式数据了。3.4再将SHEET2表另存成CSV格式文件。点击标题栏文件、另存为，击活另存为对话框，选择保存类型为CSV（逗号分隔），本例中保存到目标地址D:211DATBOOK1.CSV，再点击确定、是键，SHEET2表就以BOOK1.CSV名保存在C:211DAT目录下了。此时的数据格式是：1,F,89999.263,100000.214,1.9512,F,89999.43,100003.6,1.8833,F,90000.878,100004.768,1.858501,F,90002.403,100004.488,1.856502,F,89997.43,100000.8,1.921503,F,89996.18,99999.001,1.917504,F,89995.744,99998.285,1.9113.5再将BOOK1.CSV文件重命名成49.DAT文件,此时就全部完成，数据就可转入CASS系统了。4、用EXCEL2003录制宏上述数据转换是大量重复的劳动，所以，可以通过录制宏的办法解决中间繁琐的过程，使重复的任务自动化。下面简述录制宏过程。4.1在主屏幕右击，在弹出的对话框中单击新建、EXCEL工作表，再重命名EXCEL工作表名为测绘.XLS。4.2打开测绘.XLS，点击菜单栏工具、宏、安全性，将安全级别设置中。4.3点击菜单栏工具、宏、录制新宏，击活录制新宏对话框，本例宏名写数据转换，快捷键CTRL+K，保存在选个人工作薄，点击确定后开始录制。4.4录制过程与3.2、3.3、3.4操作步骤相同，3.4过程结束后，再点击停止录制。需要注意的是在文件退出的对话框中，应单击是、是，若选择其它退出，宏并没有保存在工作薄内。5、宏的启动宏的启动有5种方法，我们采用以下两种方法即可。5.1快捷键在录制过程中指定了快捷键CTRL+K，例如在运行本例中录制的宏数据转换，按下CTRL+K快捷键即可。5.2由自定义工具栏按纽启动宏5.2.1在工具菜单上单击自定义命令，打开自定义对话框；5.2.2在自定义对话框中单击命令选项卡，在类别列表中单击宏选项，在命令列表中将自定义按纽拖动到工具栏上，右键单击此工具栏按纽，在弹出的快捷菜单上单击指定宏命令；5.2.3在弹出的指定宏对话框中，选择数据转换宏名，单击确定；5.2.4右击工具栏上的自定义图形按纽，在弹出的下拉菜单中，在命名栏将自定义更名为数据转换；5.2.5关闭自定义对话框。操作完成，鼠标移动到自定义按纽上能显示“数据转换”字出来，左键单击此自定义按纽即可启动数据转换宏。6、宏的代码单击工具栏、宏、宏，击活宏对话框，选择数据转换宏名，再单击编辑，即可看到数据转换宏的代码。从代码中可以看到快捷键名称；看到源数据的路径、文件名及目标数据路径、文件名。了解这些，当时间长了忘记了这些必要的条件后可以在宏的代码中来找到它。另外，也可在代码中来修改源数据的路径、文件名和目标数据的路径、文件名。但文件的后缀不能修改。7、几点注意7.1用EXCEL录制宏的方法解决问题比编制程序方便和快捷得多，但不能提供人机对话。在操作中，需对宏名