1、第25卷第1期2023年3月测绘技术装备Geo ma tic s Tec h n o l o gy a n d Eq u ipmen tVo o.25 No.1Ma e.2023EXCEL VBA与SELECT-SQL在水准网数据 处理质检中的应用刘璐，丁黎，谢方(自然资源部大地测量数据处理中心，陕西西安710054)摘 要:摘 要:在区域高程控制测量与工程测量中，水准测量工作必不可少，因此，实现水准测量观测成果 的自动化、高质量质检十分重要。目前，水准观测成果有标准格式数据,便于数据处理的输入，但有 些仅有电子观测手簿，格式较为复杂。本文在对水准测量观测成果要素进行分析的同时，基于 EXCE
2、L VBA对电子观测手簿中的起点点名、终点点名、观测开始时间、观测结束时间、概略坐标、后 尺号、前尺号、首测往测高差值、首测往测距离、测站数等关键要素实现了快速批量提取，并利用 SELECT-SQL语句的查询功能，逐一对要素进行快速比对，检测出提取数据与原始观测数据之间 的差异，大大提高了水准网数据处理质检工作的效率。关键词:关键词:VBA；SELECT-SQL语句；数据查询；水准网数据处理中图分类号:中图分类号:P228DOI：10.20006/j.c n k i.61-1363/P.2023.01.020Appl ic at ion of VBA and SELECT-SQL in l e
3、vCl ing net work dat a proc essing and q ual it y inspec t ionLIU Lu,DING Li,XIE Fang(Geo d etic Da te Pr o c essin g Cen tr e o f th e Min isto o f Na tu r a l Reso u r c es,Xia n,Sh a a n x i 710054,Ch in a)Abst rac t:Lev el l in g is in d ispen sa bl e in r egio n a l v eOic a l c o n tr o l su r
4、 v ey a n d en gin eer in g su r v ey,so it is eee6o mpo eia n iio a u io ma ieo eeeoo n geesu o isa n d peo eo d ea h o gh q u a o o i6o n speeio o n.Aipeesen i,ih esia n d-a ed o zed fo ema io fih eo eeeoo n geesu o io s eo n een o en ifo eih eo n pu io fih ed a ia peo eeso n g.Ho weeee,ih eee a e
5、esiooso meeesu o isa eek epio n ih eeo eeieo n o eo bseeea io o n ma n u a o bo o k sa n d fea iu eed wo ih eo mpo o ea ied fo ema is.In ih o spa pee,b6a n a o 6zo n gih ek e6eo emen iso fo eeeoo n geesu o is,k e6eo emen iso n ih eo bseeea io o n ma n u a o bo o k ssu eh a ssia eio n gpo o n ieooeao
6、,en d po o n ieooeao,sia eio n go bseeea io o n io me,en d o n go bsee-ea io o n io me,o u io o n eeo o ed o n a ies,ba ek eu o eeso ze,feo n ieu o eeso ze,h eo gh id ofeeen eebeiween ih efo esio b-seeea io o n a n d d o eeeio bseeea io o n,d o sia n eebeiween ih efo esio bseeea io o n a n d d o eee
7、io bseeea io o n,n u mbeeo f ih eo bseeea io o n sia io o n sa eeq u o ek o 6ex iea eied on bu o k ba sed o n EXCELVBA.Th en,wo ih q u ee6fu n eio o n o fSELECT SQLsia iemen i,ih ed ofeeen eebeiween ih ek e6eo emen iso sd eieeied q u o ek o 6,wh o eh geea io 6 o mpeo eesih eefo eo en e6o fd a ia peo
8、 eeso n gq u a o o i6o n speeio o n on ihe oe ee oo n g n e iwo ek.Keywords:VBA；SELECT-SQL sta temen t;d a ta in q u io&d a ta pr o c essin g o f l ev el l in g n etio r k1引言和社会发展的重要基础,水准测量是维持现代测绘 高程基准精度，提高其现势性的一项不可或缺的工现代测绘基准体系是国民经济建设、国防建设 作，已广泛应用于区域沉降监测、城市轨道交通等测收稿日期收稿日期：2021-04-30第一作者简介第一作者简介:刘璐，工程
9、师，主要从事大地测量数据处理方面的工作102测绘技术装备第25卷量工作中。水准观测成果的自动化、高质量的质检在数据 处理检验中十分重要。目前,水准观测成果数据量 庞大，这些成果数据如果采用掌上水准测量电子手 簿系统1，可较容易将该电子手簿转换成标准格式 数据，便于提取相关要素但如果未采用掌上水准 测量电子手簿系统，则需人工参与提取，提取过程繁 琐，且容易出现错漏。本文以某省二、三等水准网数 据处理项目为研究对象,基于EXCEL VBA2从电子 观测手簿中自动、快速、批量提取起点点名、终点点 名、观测开始时间、观测结束时间、往返测高差等质 量检查的关键要素,并利用SELECT-SQL语句的 查询
10、功能与提取的要素信息做快速比对，检测出两 者之间的差异，极大地提高了水准网观测数据质量 检查的工作效率。2 基于EXCEL VBA批量提取XLS观 测手簿某省二、三等水准网数据处理项目分为9个子 区，观测时间为20172018年，大多数观测年代较 早的子区没有标准格式数据，只有电子观测手簿(XLS格式)，水准观测手簿格式如表1所示表1电子观测手簿(XLS格式)Tab.1 El ec t ronic observat ion handbook(XLS format)后前后-前往测：测站编号后尺上后尺后距视距差/d前尺上前尺前距/(m)方向及尺号标尺读数两次读数差/mm第一次读数/mm第二次读数/
11、mm后 T74531 423.191 423.45-0.26前 T74521 468.711 468.73-0.0200143.7-0.5044.2-0.50后-前-0.24后尺上丝 前尺上丝 标尺读数返测:测站后尺后距视距差/d前尺 前距/(m)方 及尺第一次读数/mm第二次读数/mm两次读数差/mm后1 559.051 558.920.13前1 457.831 457.760.0704143.643.4后-前0.060.200.50后65 720.6665 725.21前64 767.1564 7662 248.42 246.2后-前953.51959.21视距累计差二2.20 m 5 m
12、观测高差=956.4 mm测段长二4.49 k m测站数=44每米真长改正数：0.000 mm正后高=956.4mm第1期刘璐，等:EXCEL VBA与SELECT-SQL在水准网数据处理质检中的应用103本文的研究目标是自动、快速地提取测段起点点 名、终终点点名、概略坐标、观测开始始时间、观测结束时 间、后尺号、前尺号、首测往测高差值、首测往测距离、首测往测测站站数等关键要素将所有要提取的观测 手簿存入同一个文件夹，利用EXCEL VBA编写程序 批量提取关键信息,主要代码如图1所示%Su b提取水准观测手簿！)Open sfn a me Fo r Ou tpu t As fDn u mbe
13、r mypa th=Th isWo r k bo o k.Pa th&myfil en a mc=Dir(mypa th&*.x D)/打开要输入的文件Do Wh il e myfil en a mc /目录下文件不为空,就执行If myfil en a mc o Th isWo r k bo o k.Na me Th en$Wo e k bo o k s.Open mypa ih&myfo o en a me$/的 XLS 文$Wo ih Aeio eeWo ek bo o kFo r i=1 To Sh eets(1).Used Ra n ye.Ro ws.Co u n t/逐行读取 XL
14、S 文d iyih pg=Sh eets(1).Cel l s(i,B).Va l u e/打读取始末末点的点名,开始观测日期的位置$h o u eh o=Sh eeis(1).Ceos(o,E).Va o u e$读取标尺编号的位置c eju=Sh eets(1).Cel l s(i,C).Va l u e/读取测 的If d iyia pg Lik e *首*测*Th en$d o h a o=d o yo h a n gPr in t fDn u mbc r,myfil en a mc+d ih a o+En d If/如果位置有“首*测+关键字，就输出到文件中，包括所读取文件的目录及文
15、件名Nex t iEn d Wo ihAeio ee Wo e k bo o k.Co o se$/关闭闭打开的工作簿$En d Iimyfil en a mc=Dir/逐个处理XLS观测手簿Lo o pCl o se#1En d Su b图1利用EXCEL VBA提取关键信息的主要代码示例Fig.1 Primary c ode exampl es ext rac t ee k ey informat ion by using EXCEL VBA3利用SELECT SQL语句查询功能 检查外业数据利用VBA提取的关键信息如表2所示,将此文 本标准化，即可输入既定的程序进行数据处理在 数据处理前
16、，应将其与整理好的内业数据进行对比 检验。SELECT-SQL语句语法多样,变化丰富，能极极 大地提高数据库的查询效率利用VISUAL FOXPRO中的SELECT-SQL语句,根据表3中的各 个要素将数据处理整理好的文件（即a文件）与提 取到的关键信息文件（即b文件）进行逐一对比，并 利用VBA提取的关键信息标准化后,可与整理好的 内业数据一一对应,便于对关键信息进行比对,能够 快速检测出两者之间的差异，实现水准观测成果高 效、全面的质量检验104测绘技术装备第25卷表2利用VBA提取的关键信息Tab.2 Key informat ion ext rac t ee by using VBA目录观测属性起点点开始时间结束时间后标尺前标尺高差/mm距离/k m测站数B116-X1(BK0)首往测B116X1201311080853201311081049T7453T7452-47 272.02.830C105-C121首往测C105D24201311260938201311261239T7468T7472-1 212.95.254C105-C121首往测D24D2520131126124
