用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、如何将中翰全站仪的数据格式转换Cass的数据格式呢？ 中翰全站仪的格式数据 1760z,289902.972,502305.518,0.000,ZZ 1760y,289835.109,502343.972,0.000,ZZ 2120z,290025.697,502634.477,0.000,ZZ 2120y,289955.736,502692.670,0.000,ZZ 程序运行 程序运行后得到： 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 二、编程简介 通过上面两个例子可以看出，使用Excel VBA的程序进行数据转换非常方便。一面我简单介绍Excel VBA的编程方法。 Excel VBA即 Visual Basic语言的简称。学过Basic语言或FORTRAN语言Visual Basic就比较容易了。Visual Basic语言和Basic语言一样都有If...Then...Else语句、For...Next语句。不同的是Visual Basic语言运行的是一个或多个Sub 过程是一系列由 Sub 和 End Sub 语句所包含起来的 Visual BasicSub DemoBox() 该过程声明一个字符串变量， 指定它值为 Claudia，然后显示一个 连接的消息。 Dim myVar As String myVar = MsgBox Prompt:=您好 myVar, _ Title:=Greeting Box, _ Buttons:=vbExclamation End Sub 这是一简单的Sub… End Sub的过程。其中Dim 语句声明myVar为String（字符串）；下面是付值语句，把先生付给变量myVar；MsgBox函数是在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。Excel是功能非常强大的计算机软件；使用Excel VBA编辑程序进行数据转换非常方便。它不仅可以进行数据计算，而且还可以进行字符串的编辑和运算。