vba和excel在工程测量中的应用

《vba和excel在工程测量中的应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VBA和Excel在工程测量中的应用摘要：本文讨论了VBA和Excel在工程测量上的应用，通过导线计算和角度转换的例子，详细介绍了VBA在Excel中如何实现的原理，并通过一个简单的例子来详细的描述其实现过程。关键词：VBA、Excel、宏、二次开发功能、工程测量、导线、CAD与Excelo分类号：E271文献标识码：A引言各行各业使用计算机工作就更离不开Excel工作表的计算功能，而且Excel的二次开发功能非常强大，它通过VBA语言开发程序分发很容易，只要电脑中有Excel,基本不需要在其它的文件，简简单单的复制与粘贴，就完成了文件的

2、分发。VBA功能非常实用，合理有效的开发利用可以大大的提高生产效率。一、了解Excel和VBA（一）Excel和VBA的基本知识CVBA是以VB语言为基础，经过修改并运行在MicrosoftOffice的应用程序，如Excel,Word中，它是不能像VB—样能生成可执行程序的。VBA的语言是相对容易学的语言，很容易上手，如果你熟悉VB，那你发现它们在语言方面是相通的，而如果你对Excel比较了解，那你也就很容易理解Excel的各种服务对象了。利用Excel和VBA为平台，开发出来的电子数据表即称Excel应用程序。二、Excel和VBA可

3、以解决测量中的哪些问题（一）Excel的功能Excel在测量工作中是用的比较多的，遗憾的是，它计算三角函数采用的是弧度或者是十进制的角度，而我们测量上的角度却是60进制的，更要命的是Excel也没有弧度与60进制的角度的转换函数。在许多工程测量外业工作中通常要现场作导线闭合差计算，用我们的Excel和VBA功能就可以轻松完成。2.CAD与Excel连接。如果你的工作表中有了点坐标值（二维或者三维），要在CAD中展绘出来，怎样才能直接调用CAD将它展绘出来？不然，就只有借助第三方软件来实现了。就目前我们常用的软件中有一款CASS软件，是南方

4、公司在CAD平台上开发的绘图软件，但这也要先把Excel表格坐标转化为CASS格式的dat文件格式，然后才能用CASS的绘图工具中“展野外测点点号”的命令完成图上展点。如果你手头又找不到CASS软件，这就很麻烦！这时我们用Excel和VBA功能便可以轻松完成。再者，现在的工程测量中用国外的全站仪比较多，好多国外生产全站仪输入已知放样坐标数据时都是用excel格式，数据过多时，就不能手动输入，那样太耽误时间而且容易出错，这时我们自己编写的Excel程序就可以实现数据自动传输。（二）了解Excel应该从哪里入手1.首先，你必须懂得一些简单的V

5、B编程常识。如果不懂就只有通过其他的途径去学习了。但用不着深入的研究，只要静下心来，简单的常用语句几个小时就可以学会了。2.多看Excel中的帮助系统，那里有非常丰富的例子，相信只要有电脑的用户，都知道该怎样查找和学习的，这里不再赘述。三、如何使用Excel及例子（一）如何使用Excel打开Excel,按Alt+Fll即进入VBAIDE,学过VB的人一看就知道VBAIDE界面和VB界面是非常相似的。下面看看如何定义一个函数，然后利用它来解决60进制的角度的三角函数计算问题。在菜单上依次点击［插入］-〉［模块］，然后输入如下代码：Publi

6、cConstpi=3.14159265359PublicFunctionDEG(nAsDouble)DimAAsDouble,BAsDouble,CAsDouble,DAsDouble,EAsDouble,FAsDouble,GAsDouble,KAAsDoubleD=Abs(n)+0.000000000000001F=Sgn(n)A=Int(D)B二Int((D-A)*100)C=D-A-B/100DEG=F*(A+B/60+C/0.36)*pi/180EndFunction这样，就定义了一个名字叫DEG的函数，它的作用就是转换60进制

7、的角度为Excel认识的弧度。编辑完后按Alt+Q即返回Excel,再在某一单元格输入=sin(deg(Al))(A1既可以是单元格的值，也可以是手工输入的角度值)，回车，哈哈，怎么样？结果出来了吧？你可以用计算器检验一下是否正确。如果出现測AME?那就要设置一下安全设置。依次点［工具］-＞［宏］-〉［安全性］，在安全级选项卡上选择“中”或者“低”，然后关闭后重新打开就可以了，以后只要是60进制的角度，就用它转换，非常方便哦。(二)EXCEL现场编程使用示例及与CAD的通讯工程测量中，经常碰到导线的现场平差计算，如果手头没有平差计算程序就

8、只有手工计算了，这时候你可曾想过编个小程序来计算？其实，这很简单，下面是该程序的代码：Sub附合导线计算()DimmAsInteger,nAsInteger,msAsDouble,ggAsDo