用ExcelVBA进行数据格式转换.docVIP

Excel VBA在数据格式转换中的应用 谭志光 核工业华东建工集团公司九江公司（江西 九江332000） 0前言 在工作中，我们经常使用各种各样的仪器。然而，不同的仪器使用的数据格式常常是不一样的。所以，我们常常碰到数据格式的转换。有南方Cass格式（点号，，Y，X，H）、中翰全站仪数据格式（点号，X，Y，H，代码）和华星GPS的数据格式（点号，X，Y，H，E，F，是否）。使用Excel VBA编辑一些小程序，在它们之间相互进行不同数据格式转换非常方便。 一、例子 1、如何将Cass数据格式转换成华星GPS的数据格式呢？ Cass数据格式： 1760z,,502305.518,289902.972,0.000 1760y,,502343.972,289835.109,0.000 2120z,,502634.477,290025.697,0.000 2120y,,502692.670,289955.736,0.000 程序运行 程序运行后得到： 华星GPS的数据格式： 1760z,289902.972,502305.518,0,0,F 1760y,289835.109,502343.972,0,0,F 2120z,290025.697,502634.477,0,0,F 2120y,289955.736,502692.670,0,0,F 2、如何将中翰全站仪的数