欢迎光临测量协同网!https://www.fffsky.com/blog
Loading
2

[原创]VBA徕卡DNA03电子水准仪GSI源文件自动处理程序

文章:用Office Excel VBA编制的徕卡DNA03电子水准仪GSI源文件自动处理程序

关键词:Excel VBA 程序 电子水准仪 GSI

 

一、程序用途:

本程序可对徕卡DNA03电子水准仪原始数据GSI源文件进行自动填表(一(二)等水准观测手薄)记录。

410001+......4

110002+000000A1 83..28+00000000

110003+000000A1 32...8+00736537 331.28+00060062 390...+00000002 391.28+00000004

110004+00000001 32...8+00666618 332.28+00263948 390...+00000002 391.28+00000007

110005+00000001 32...8+00666642 336.28+00263953 390...+00000002 391.28+00000002

110006+000000A1 32...8+00736238 335.28+00060075 390...+00000002 391.28+00000001

110007+00000001 571.28-00000009 572.28-00000009 573..8+00069758 574..8+01403017 83..28-00203882

110008+00000002 32...8+00247420 332.28+00255619 390...+00000002 391.28+00000005

110009+00000001 32...8+00440907 331.28+00085504 390...+00000002 391.28+00000001

110010+00000001 32...8+00440911 335.28+00085503 390...+00000002 391.28+00000000

110011+00000002 32...8+00246250 336.28+00255622 390...+00000002 391.28+00000001

110012+00000002 571.28+00000004 572.28-00000005 573..8+00263832 574..8+02090762 83..28-00373999

110013+00000002 32...8+00198210 331.28+00092617 390...+00000002 391.28+00000002

110014+00000003 32...8+00199540 332.28+00226746 390...+00000002 391.28+00000001

110015+00000003 32...8+00199959 336.28+00226739 390...+00000002 391.28+00000000

110016+00000002 32...8+00197838 335.28+00092630 390...+00000002 391.28+00000000

110017+00000003 571.28-00000020 572.28-00000025 573..8+00262106 574..8+02488535 83..28-00508118

程序主界面:

 

通过程序填表一(二)等水准观测手薄并记录界面:

徕卡DNA03电子水准仪GSI

 

程序处理完毕提示:

徕卡DNA03电子水准仪GSI

 

数据检测:

本程序可对GSI源文件进行数据格式判断,如格式不符或不正确时则会提示如下信息!

徕卡DNA03电子水准仪GSI

 

二、程序原理:

该程序通过对GSI源文件进行数据分列并自动判断数值进行!

 

三、操作步骤:

1、打开一(二)等水准观测手薄。

2、点击导入gsi文件按钮。

3、点击处理数据按钮。

提示:恭喜你,数据处理完毕!

其他说明:本程序可以复制新建工作簿,当点击复制新建按钮时则会自动新建一个工作簿名为Sheet1的新表,可以手动去除按钮进行保存或打印。

本程序需启用"宏"即可运行,否则禁止宏运行时点击按钮会没有反映,Office Excel 启用"宏"方法如下:

Office Excel 2003版:工具>>>宏>>>安全性>>>选择较低的安全级别>>>重新打开文件即可运行。
Office Excel 2007版:Office按钮>>>Excel选项>>>信任中心>>>信任中心设置>>>宏设置>>>启用所有宏。

 

程序下载地址:

您必须登录才能阅读本文的其余部分【用户登录


测量协同网诚邀您投稿,文章主题与工程测量、大地测量等相关即可,可以是理论介绍,也可以是实务分析,还可以是工作总结。➮点击投稿

行善积德、广修福田行善积德、广修福田

如果文章对你有帮助,欢迎点击上方按钮行善积德

最后编辑于:2020/1/3作者: 测量测绘

406 条评论

发表评论

  1. YANGYANG YANGYANG说道:
    399#

    如果能出每段的平差就很完美了,不然每段平差还要自己加,点比较多很头疼

  2. YANGYANG YANGYANG说道:
    398#

    有没有带平差表的,大佬

    • 协同网 协同网说道:

      您好,该表里面带有简易平差

      • YANGYANG YANGYANG说道:

        我看了,只有结果没有每段的平差

  3. ljf ljf说道:
    397#

    您好,可以给我发一个电子水准仪数据处理的下载地址吗?

  4. ljf ljf说道:
    396#

    您好

  5. 小白 小白说道:
    395#

    作者可不可以给我提供下宏的查看密码,我是用c#编的,有些问题希望可以从VBA中找到头绪,如果可以私发非常感谢,如果不行那就算了吧!
    希望尽快答复!

    • 测量测绘 测量测绘说道:

      您好,请用邮件联系!

      • 小白 小白说道:

        嗯嗯,1608258958@qq.com
        谢谢

      • YANGYANG YANGYANG说道:

        您好,有带平差表的么

  6. zqr1569 zqr1569说道:
    394#

    谢谢分享

  7. 642431755 642431755说道:
    393#

    你好,出现运行时错误,;类型不匹配,怎么办?

    • 测量测绘 测量测绘说道:

      您好,遇见类型不匹配,可能是导入的数据无法识别

  8. 327689417 327689417说道:
    392#

    不错学习了

  9. ttxsxyybbb ttxsxyybbb说道:
    391#

    不错

扫一扫关注公众号

扫一扫关注公众号