用Excel VBA进行数据格式转换.doc

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.0001760y,502343.972,289835.109,0.0002120z,502634.477,290025.697,0.0002120y,502692.670,289955.736,0.000程序运行程序运行后得到：华星GPS的数据格式：1760z,289902.972,502305.518,0,0,F1760y,289835.109,502343.972,0,0,F2120z,290025.697,502634.477,0,0,F2120y,289955.736,502692.670,0,0,F2、如何将中翰全站仪的数据格式转换Cass的数据格式呢？中翰全站仪的格式数据1760z,289902.972,502305.518,0.000,ZZ1760y,289835.109,502343.972,0.000,ZZ2120z,290025.697,502634.477,0.000,ZZ2120y,289955.736,502692.670,0.000,ZZ程序运行程序运行后得到：Cass的格式数据：1760z,502305.518,289902.972,0.0001760y,502343.972,289835.109,0.0002120z,502634.477,290025.697,0.0002120y,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 Basic语句。例如：Sub DemoBox() 该过程声明一个字符串变量， 指定它值为 Claudia，然后显示一个 连接的消息。 Dim myVar As String myVar = 先生 MsgBox Prompt:=您好 & myVar, _ Title:=Greeting Box, _ Buttons:=vbExclamationEnd Sub这是一简单的Sub End Sub的过程。其中Dim 语句声明变量myVar为String（字符串）；下面是付值语句，把先生付给变量myVar；MsgBox函数是在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。上面例子运行后显示为：三、