资源描述：
《EXCEL宏在转换地籍测量野外采集数据中的应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、EXCEL宏在转换地籍测量野外采集数据中的应用常州市武进土地登记中心（勘测队）龚有良王雪文摘要：本文介绍了用EXCEL2003宏将天宝捷创力全站仪野外测量数据文件转换成CASS数据格式的方法。关键词：全站仪测量文件、CASS数据格式、EXCEL数据转换、EXCEL宏1、引言由于CASS软件采用的是CAD平台，以及软件本身丰富的功能，CASS软件越来越受到许多测量者的喜爱。但软件本身没有捷创力全站仪的数据导入功能，因此我们采用EXCEL2003录制了将捷创力全站仪数据文件转换成CASS数据格式的宏。使用中，感到我
2、们的方法还不错，比较方便。现介绍如下，以供有兴趣的同行借鉴。2、CASS数据格式及捷创力全站仪数据格式CASS数据格式是：点号，点码，Y，X，H。文件的后缀是DAT。我们用于全站仪的数据采集程序文件PRO2的格式是：标号正文类型类型含义37X0从全站仪得到的原始数据38Y0从全站仪得到的原始数据11平距8观察标号39H0从全站仪得到的原始数据5点号4增加/减少4点码3复制/半自动79结束5循环/半自动上述程序文件采用仪器的PRO40程序输入。其中-4-平距只显示不记录，供无反射棱镜方法测量时起检核用。仪器的工作
3、文件后缀是DC，文件导入计算机后其格式如下：00NMSDR33V0400002011-5-2411111110NM4912111108TP1100000.21489999.2631.951F08TP2100003.60089999.4301.883F08TP3100004.76890000.8781.858F08TP0501100004.48890002.4031.856F08TP0502100000.80089997.4301.921F08TP050399999.00189996.1801.917F08TP0
4、50499998.28589995.7441.911F3、用EXCEL2003进行数据转换3.1双击EXCEL2003图标，打开EXCEL，检查光标是否在A1单元格，如不在点击A1单元格。3.2在菜单数据栏点击导入外部数据、导入数据，击活对话框，选取数据源。本例中，选D：211CAD49.DC，打开；然后再在击活的对话框中，导入起始行选3，再点击下一步；再在标尺20处用鼠标左键点击，再下一步;再在列数据格式中选不导入此列，再点击完成、确定，此时数据就导入了SHEET1表了。3.3此时数据的排列为：点号，X，
5、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,89
6、999.263,100000.214,1.9512,F,89999.43,100003.6,1.8833,F,90000.878,100004.768,1.858-4-501,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
7、、用EXCEL2003录制宏上述数据转换是大量重复的劳动，所以，可以通过录制宏的办法解决中间繁琐的过程，使重复的任务自动化。下面简述录制宏过程。4.1在主屏幕右击，在弹出的对话框中单击新建、EXCEL工作表，再重命名EXCEL工作表名为测绘.XLS。4.2打开测绘.XLS，点击菜单栏工具、宏、安全性，将安全级别设置中。4.3点击菜单栏工具、宏、录制新宏，击活录制新宏对话框，本例宏名写数据转换，快捷键[CTRL]+[K]，保存在选个人工作薄，点击确定后开始录制。4.4录制过程与3.2、3.3、3.4操作步骤相同，
8、3.4过程结束后，再点击停止录制。需要注意的是在文件退出的对话框中，应单击是、是，若选择其它退出，宏并没有保存在工作薄内。5、宏的启动宏的启动有5种方法，我们采用以下两种方法即可。5.1快捷键在录制过程中指定了快捷键[CTRL]+[K]，例如在运行本例中录制的宏数据转换，按下[CTRL]+[K]快捷键即可。5.2由自定义工具栏按纽启动宏5.2.1在工具菜单上单击自定义命令，打开自定义对
