EXCEL VBA与SELECT-SQL在水准网数据处理质检中的应用.pdf

第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)摘 要:摘 要:在区域高程控制测量与工程测量中，水准测量工作必不可少，因此，实现水准测量观测成果 的自动化、高质量质检十分重要。目前，水准观测成果有标准格式数据,便于数据处理的输入，但有 些仅有电子观测手簿，格式较为复杂。本文在对水准测量观测成果要素进行分析的同时，基于 EXCEL 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 evCl 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 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 eesiooso 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,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 eeeio 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 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第一作者简介第一作者简介:刘璐，工程师，主要从事大地测量数据处理方面的工作102测绘技术装备第25卷量工作中。水准观测成果的自动化、高质量的质检在数据 处理检验中十分重要。目前,水准观测成果数据量 庞大，这些成果数据如果采用掌上水准测量电子手 簿系统1，可较容易将该电子手簿转换成标准格式 数据，便于提取相关要素但如果未采用掌上水准 测量电子手簿系统，则需人工参与提取，提取过程繁 琐，且容易出现错漏。本文以某省二、三等水准网数 据处理项目为研究对象,基于EXCEL VBA2从电子 观测手簿中自动、快速、批量提取起点点名、终点点 名、观测开始时间、观测结束时间、往返测高差等质 量检查的关键要素,并利用SELECT-SQL语句的 查询功能与提取的要素信息做快速比对，检测出两 者之间的差异，极大地提高了水准网观测数据质量 检查的工作效率。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第二次读数/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观测高差=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 mber 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/逐行读取 XLS 文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/如果位置有“首*测+关键字，就输出到文件中，包括所读取文件的目录及文件名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所示,将此文 本标准化，即可输入既定的程序进行数据处理在 数据处理前，应将其与整理好的内业数据进行对比 检验。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首往测D24D25201311261240201311261455T7468T747213.35.3854C105-C121首往测D25C121201311270952201311271221T7468T7472-1 843.14.0442C105-C121首返测C121D25201311271311201311271527T7472T74681 831.04.0542C105-C121首返测D25D24201311280943201311281214T7472T7468-15.45.3854C105-C121首返测D24C105201311281219201311281516T7472T74681 191.75.254C121-I杭包1基上首往测C121L6201310270803201310271053T7462T74631 212.05.354C121-I杭包1基上首往测L6C122201310271234201310271529T7462T7463-2 023.05.6258C121-I杭包1基上首往测C122L7201310300805201310301104T7462T74631 237.24.546C121-I杭包1基上首往测L7L8201310301243201310301638T7462T7463-2 391.75.8860表3 SELECT-SQL语句的各要素备注Tab.3 Commeet s of SELECT-SQL st at ement字段名字段说明字段名字段说明字段名字段说a（大文件.dbf）数据处理整理好的文件a.fsssv文件返测的上午站数b.rkb 文 的往测日 期 始b(表 l.dbf)观测手簿提取的要素文件a.fxzsv文件返测的下午站数a.wq2v文件的往测日期结束a.Ixhv文件的水准路线号b.h2b文件返测测站总数b.qb文件的往测日期结束a.cdbhV文件的水谁测段编号a.gcV文件的往测高差a.frqiv文件的返测日期开始a.dmV文件的点名b)1b文件的往测高差b 文 的返测日 期 始b.dh1b文件的起点a-fgcV文件的返测高差a.frqlV文件的返测日期结束b.dh2b文件的终点b gcCb文件的返测高差b.frqb 文 的返测日 期结束a.dv文件的测距a.bch1V文件的后尺号where查询条件是两个文件的点名相等b.db文件的测距b.bcCb文件的后尺号a.wszsv文件往测的上午站数a.bch2V文件的前尺号a.wxzsv文件往测的下午站数b.gb文件的前尺号b.Hs1b文件往测测站总数a.wqlV文件的往测日期开始关键要素检测比对结果如表4所示，表头所示 为a表和b表中具有相同含义的要素数值之差，如 a.wszs+a.wxzs为a表中往测站数总和,b.c z1为b 表中往测总站数,a.wszs+a.wxzs-b.c z1为a表与b 表的往测总站数之差，其数值均为“00”，则说明此 要素比较结果正常，整理好的数据与外业观测成果 数据一致。a.wr q 1-b.wr k为a表与b表的开始往测日期 之差,测段号2的此要素差值为“000 000 000 003”,说明两个表的开始往测日期不一致，此要素存在 质量问题，代表整理好的数据与外业观测成果不 一致。第1期刘璐，等:EXCEL VBA与SELECT-SQL在水准网数据处理质检中的应用105表表4关键要素检测比对结果关键要素检测比对结果Tab.4 Comparison resul t s of k ey el emeet s测段号a.d-b.da.wszs+a.wxzs-b.czla.fszs+a.fazs-b.HSa.gc-b.gela-fgc-b g2a.wq1-b.da.frql-b.I110.000000.000 000.000 00000 000 000 000000 000 000 00020.000000.000 000.000 00000 000 000 003000 000 000 00030.000000.000 000.000 00000 000 000 000000 000 000 00040.000005x10-50.000 00000 000 000 000000 000 000 00050.000000.000 000.000 00000 000 000 000000 000 000 00060.000000.000 003.2x10-4000 000 000 000000 000 000 0004结束语本文基于EXCEL VBA,对电子观测手簿中的起 点点名、终点点名、观测开始时间、观测结束时间、概 略坐标、后尺号、前尺号、首测往测高差值、首测往测 距离、测站数等关键要素实现了快速、批量提取，提 取过程中人工参与减少,有效避免了数据错漏利 用SELECT-SQL语句的查询功能，对要素逐一进 行快速比对，由于提取的数据格式标准,便于检测出 提取数据与原始观测数据之间的差异，从而能对水 准观测数据进行较全面、有效的质量检查。若检查出质量问题，则需通过数据处理人员再 次检查两个不同数据来源的原始数据，进行分析判 断，确定最终的取用数据。结果表明，相较传统检查方法，该方法质量检查 效率显著提升，不仅很大程度提高了检查速度，还提 高了质量检查的全面性只要是两个表中都包含的 要素，都能快速进行比较，避免检查过程中出现疏 漏,降低了最终成果数据出现质量问题的概率，因此 具有较高的推广应用价值。参考文献1 杨晓明，赵岩岩.基于兰德掌上电脑的水准测量电子 手簿系统的开发J.华北水利水电学院学报,2011,32(2)：129-131,2 赵志东.Ex c el VBA技巧应用M.北京:人民邮电出 版社,2007.3 谭浩强.Vo u i Fo x pr o及其应用系统开发M.北京：清华大学出版社,2002.4 杨章伟，张婉婉.Ex c el VBA语法辞典M.北京:机械 工业出版社,2009.5 韩继英.SQL Ser v er中Se l ec t语句的使用技巧J.山 西电子技术,2017(6)：62-65.