基于ＶＢＡ的乌鲁木齐市第二次全国污染源普查数据处理
李㊀沫（乌鲁木齐市环境监测中心站，新疆㊀乌鲁木齐㊀８３００００）
摘要：污染源普查工作中涉及海量数据的比对㊁审核㊁汇总，若依靠纯手工处理工作量巨大㊂为此，提出基于ＶＢＡ数据批量处理方法，在ＥＸＣＥＬ中运用集成的ＶＢＡ模块进行编程，实现数据的批量提取㊁合并与审核㊂该方法不仅可极大地提高零散数据的整理效率，同时也能克服人工处理误差，提高数据处理的质量，最终为基层人员在大数据处理工作中提供思路和方法㊂
关键词：污染源普查；ＶＢＡ；数据处理
中图分类号：Ｘ５０８㊀㊀文献标识码：Ａ㊀㊀文章编号：１００８－２３０１（２０２０）０４－００３３－０６
ＤａｔａＰｒｏｃｅｓｓｉｎｇｏｆｔｈｅＳｅｃｏｎｄＮａｔｉｏｎａｌＰｏｌｌｕｔｉｏｎＳｏｕｒｃｅＣｅｎｓｕｓＢａｓｅｄｏｎＶＢＡｉｎＵｒｕｍｑｉ．ＬｉＭｏ（Ｕｒｕｍｑｉｅｎｖｉｒｏｎｍｅｎｔａｌｍｏｎｉｔｏｒｉｎｇｃｅｎｔｅｒｓｔａｔｉｏｎ，Ｕｒｕｍｑｉ，Ｘｉｎｊｉａｎｇ８３００００，Ｃｈｉｎａ）．ＥｎｖｉｒｏｎｍｅｎｔａｌＰｒｏｔｅｃｔｉｏｎｏｆＸｉｎｊｉａｎｇ２０２０，４２（４）：３３ ３８
Ａｂｓｔｒａｃｔ：Ｓｕｒｖｅｙｏｆｐｏｌｌｕｔｉｏｎｓｏｕｒｃｅｓｉｎｖｏｌｖｅｄｉｎｔｈｅｃｏｍｐａｒｉｓｏｎ，ｒｅｖｉｅｗａｎｄｓｕｍｍａｒｙｏｆｍａｓｓｉｖｅｄａｔａ．Ｉｆｗｅｒｅｌｙｏｎｐｕｒｅｍａｎｕａｌｐｒｏｃｅｓｓｉｎｇ，ｔｈｅｗｏｒｋｌｏａｄｗｏｕｌｄｂｅｖｅｒｙｈｕｇｅ．Ｆｏｒｔｈｉｓｒｅａｓｏｎ，ａｂａｔｃｈｐｒｏｃｅｓｓｉｎｇｄａｔａｍｅｔｈｏｄｂａｓｅｄｏｎＶＢＡｗａｓｐｒｏｐｏｓｅｄ．ＴｈｅｉｎｔｅｇｒａｔｅｄＶＢＡｍｏｄｕｌｅｗａｓｐｒｏｇｒａｍｍｅｄｉｎＥＸＣＥＬｔｏｒｅａｌｉｚｅｔｈｅｂｕｌｋｅｘｔｒａｃｔｉｏｎ，ｃｏｎｓｏｌｉｄａｔｉｏｎａｎｄａｕｄｉｔｉｎｇｏｆｄａｔａ．Ｔｈｉｓｍｅｔｈｏｄｎｏｔｏｎｌｙｃｏｕｌｄｇｒｅａｔｌｙｉｍｐｒｏｖｅｔｈｅｅｆｆｉｃｉｅｎｃｙｏｆｓｏｒｔｉｎｇｓｃａｔｔｅｒｅｄｄａｔａ，ｂｕｔａｌｓｏｃｏｕｌｄｏｖｅｒｃｏｍｅｔｈｅｅｒｒｏｒｏｆｍａｎｕａｌｐｒｏｃｅｓｓｉｎｇａｎｄｉｍｐｒｏｖｅｔｈｅｑｕａｌｉｔｙｏｆｄａｔａｐｒｏｃｅｓｓｉｎｇ．Ｉｔａｉｍｓｔｏｐｒｏｖｉｄｅｉｄｅａｓａｎｄｍｅｔｈｏｄｓｆｏｒｇｒａｓｓｒｏｏｔｓｐｅｒｓｏｎｎｅｌｉｎｌａｒｇｅｄａｔａｐｒｏｃｅｓｓｉｎｇ．
Ｋｅｙｗｏｒｄｓ：Ｓｕｒｖｅｙｏｆｐｏｌｌｕｔｉｏｎｓｏｕｒｃｅｓ，ＶＢＡ，ｄａｔａｐｒｏｃｅｓｓｉｎｇ
㊀㊀污染源普查是一项重大的国情调查，是环境保护的基础性工作㊂通过污染源普查可以全面掌握各
类污染源的数量㊁行业和地区分布㊂了解主要污染物产生㊁排放和处理情况，同时需要对数以百万条指标进行处理，可以说是一项系统性强㊁复杂度高㊁涉及面广的工作㊂此外，乌鲁木齐作为污染源普查的试点城市，各项工作需要先行㊁先试，配套普查软件与用户交互时间长，信息对接缓慢，软件更新周期较长，数据处理将耗费大量的人力和时间成本，极大地影响工作进度㊂为及时提高数据处理效率，提升数据质量，根据污染源普查基础数据对象格式为ＥＸＣＥＬ表单的特点，选用对运行环境依赖较小的ＥＸＣＥＬＶＢＡ模块，开发集成各类程序，在乌鲁木齐市污染源全面普查㊁数据审核等阶段工作中得到了广泛的应用，实现高效的数据整理与标准化㊂具体应用包括关键指标批量提取㊁企业单个表单汇总合并㊁审核规则自动化处理㊁污染物产排量校核㊁指标合理性审核等方面，技术需求与信息化运用可无缝对接，全面提高了普查数据质量及审核效率㊂
１㊀软件介绍
ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎｓ（ＶＢＡ）是新一代标
新疆环境保护２０２０，４２（４）：３３ ３８㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀ＥｎｖｉｒｏｎｍｅｎｔａｌＰｒｏｔｅｃｔｉｏｎｏｆＸｉｎｊｉａｎｇ
收稿日期：２０２０－０８－０１
准宏语言，一种编程通用的自动化语言［１］㊂主要用来扩展Ｗｉｎｄｏｗｓ的应用程序功能，可以直接应用Ｏｆｆｉｃｅ套装软件的各项强大功能，也是一种应用程式视觉化的Ｂａｓｉｃ脚本，实质就是寄生于ＶＢ应用程序的版本㊂ＶＢ的可视化编程方法使得原本繁琐枯燥的Ｗｉｎｄｏｗｓ应用程序设计变得轻松自如㊁妙趣横生㊂以往的Ｗｉｎｄｏｗｓ应用程序开发工具在设计图形用户界面时，都是采用编程的方法，并伴随大量的计算任务，一个大型应用程序约有９０％的程序代码用来处理用户界面，而且在程序设计过程中不能看到界面显示的效果，只有在程序执行时才能观察到，如果界面效果不佳，还需要回到程序中去修改㊂ＶｉｓｕａｌＢａｓｉｃ提供了新颖的可视化设计工具，巧妙地将Ｗｉｎｄｏｗｓ界面设计的复杂性封装起来，程序开发人员不必再为界面设计而编写大量程序代码，仅需采用现有工具按设计者要求的布局，在屏幕上画出所需界面，并为各图形对象设置属性即可，ＶＢ自动产生界面设计代码，这样便将事先编制好的控件可视地连接到一起，构成一个随时可调整的界面［２］㊂
vba排序函数sort用法ＶＢＡ是一种事件驱动编程语言，它能够扩展微软Ｏｆｆｉｃｅ的应用程序，可以很好地解决复杂数据的处理问题㊂重复任务的自动化是其最常见的用途之一，处理数据比其他语言处理数据需要编写的代码量少，简单易操作，不仅能提高效率节省时间，还能大大提高处理数据的正确率［３］㊂Ｏｆｆｉｃｅ软件装机量大，几乎在任何电脑上都可直接使用ＶＢＡ，安装方便，使用便捷，无需额外搭建环境，与其他语言相比在处理ＥＸＣＥＬ文件上有着其 天然 的优势㊂
２㊀需求分析
污染源普查数据是各类源海量数据的大集合，数据量之大㊁逻辑关系之复杂程度前所未有㊂在普查数据汇总㊁分类㊁审核中，随时会面临各种各样繁琐的问题，如合并单表数据㊁表与表信息关联等大量重复的工作㊂基于ＶＢＡ程序的应用开发，将需要分析的指标及参数整合在一起，单个数据不再独立，彼此之间关联，极大提高数据审核质量，普查员每发现一处错误，通过智能程序历遍所有的相关数据，做到举一反三㊂笔者根据普查过程中的经历，将数据处理㊁审核中需解决的问题汇总如下：
１）㊀各类污染源中每个企业或单位的ＥＸＣＥＬ单个文件进行批量处理，提取每项原始指标至自定义的指标排列，提取的指标可增加逻辑判断或计算，按照普查制度中每张表号顺序依次汇总合成单个ＥＸＣＥＬ文件，实现各源批量审核㊂
２）㊀将每个企业每张调查表中单个表单自动批量合成一个ＥＸＣＥＬ文件，即一个企业多张表单，方便各表之间的关联审核㊂
３）㊀系统导出的所有企业汇总问题，自动分离出每个企业问题，并生成以企业名命名的单个文件，实现将企业问题单独下发㊂
４）㊀每个企业ＥＸＣＥＬ文件中Ｇ１０６－１表批量提取出来，合并成为一个表单，进行ｋ值㊁ｋ
值公式的批量校核（普查软件无法提取ｋ值公式的相关信息）㊂５）㊀大值排序是数据审核中的关键环节，但需要排序的指标繁多，如利用ＥＸＣＥＬ自带的排序功能，无法同时按照不同的字段分别排序，可以使用ＶＢＡ实现批量多字段的单独排序㊂
３㊀ＶＢＡ实现算法案例
３．１㊀文件读取
根据统计需求任意选择ＥＸＣＥＬ格式数据源，将目标文件放在同一个文件夹中，文件地址无固定的要求，可自动获取，文件数量可多选㊂选用Ａｐｐｌｉｃａｔｉｏｎ．ＧｅｔＯｐｅｎＦｉｌｅｎａｍｅ方法［４］，显示标准的 打开 对话框，并获取用户文件名，而不必真正打开任何文件，只是把打开文件名称返回程序，相当于ＥＸＣＥＬ打开窗口，通过该窗口选择要打开的文件，并可以返回选择的文件完整路径和文件名，如果没有选择文件，自动退出㊂
４３㊀㊀㊀㊀新㊀疆㊀环㊀境㊀保㊀护㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀第４２卷
主程序：
Ｆｉｌｅｔｏｏｐｅｎ＝Ａｐｐｌｉｃａｔｉｏｎ．ＧｅｔＯｐｅｎＦｉｌｅｎａｍｅ（ ｅｘｃｅｌｆｉｌｅｓ（∗．ｘｌｓｘ），∗．ｘｌｓｘ ，， 请选择要设置的企业！ ，，Ｔｒｕｅ）；ＩｆＩｓ
Ａｒｒａｙ（ｆｉｌｅｔｏｏｐｅｎ）＝０ＴｈｅｎＭｓｇＢｏｘ 没有选择文件
３．２㊀批量提取㊁汇总指标
普查表涉及工业源㊁生活源㊁农业源㊁生活源㊁移动源五类源信息提取，表的种类繁多，每个表结构㊁类型㊁指标均不同，但提取指标数据核心算法不变，即读取选中文件 选取制定表单 记录指标 汇总数据，以生活源 行政村Ｓ１０２表为例汇总数据，首先设置各类对象变量，方便表之间的切换，因原表受保护，需将数据进行预处理，再次复制至新表，解除保护限制
㊂
图１㊀数据提取与汇总界面
Ｆｉｇ．１㊀Ｔｈｅｉｎｆｅｒｆａｃｅｏｆｅｘｔｒａｃｔｉｎｇａｎｄｃｏｌｌｅｃｔｉｎｇｄａｔａ
㊀㊀主程序：
ＳｅｔＦｓｏ＝ＣｒｅａｔｅＯｂｊｅｃｔ（ Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍＯｂ⁃
ｊｅｃｔ ）
Ｓｅｔｗｂ＝ＧｅｔＯｂｊｅｃｔ（ｔｅｍｐ）
Ｓｅｔｗｋ＝Ｗｏｒｋｂｏｏｋｓ．Ａｄｄ
ｗｋ．ＳａｖｅＡｓＦｉｌｅｎａｍｅ：＝ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ＆ ＼
ｅｘｃｅｌｎｅｗ ＆Ｔｒｉｍ（ｉ）＆ ．ｘｌｓｘ
ｗｂ．Ｗｏｒｋｓｈｅｅｔｓ（ 行政村 ）．Ｒａｎｇｅ（ ａ１：
ａｗ１００ ）．Ｃｏｐｙｗｋ．Ｗｏｒｋｓｈｅｅｔｓ（ Ｓｈｅｅｔ１ ）．Ｒａｎｇｅ
（ ａ１：ａｗ１００ ）
打开新表，采用单元格ｃｅｌｌ（ｘ，ｙ）定位的方式记
录各项指标的具体位置，按照各类源中表单的汇总格
式的要求，一一对应进行赋值，根据数据排列规律可
选用ｉｆ㊁ｆｏｒ语句简化赋值程序，最后完成数据读取和
汇总，结果显示每一个调查对象的相关数据形成一条
记录，便于后期数据汇总集中审核㊂
主程序：
Ｓｅｔｇｚｂ＝Ｗｏｒｋｂｏｏｋｓ．Ａｄｄ
Ａｐｐｌｉｃａｔｉｏｎ．ＤｉｓｐｌａｙＡｌｅｒｔｓ＝Ｆａｌｓｅ
Ｓｅｔｗｂ＝ＧｅｔＯｂｊｅｃｔ（ｔｅｍｐ）
Ｃｅｌｌｓ（１，１）＝ｗｂ．Ｓｈｅｅｔｓ（ ｓｈｅｅｔ１ ）．Ｒａｎｇｅ
（ Ａ４ ）
Ｃｅｌｌｓ（ｉ＋１，１）＝ｗｂ．Ｓｈｅｅｔｓ（＂ｓｈｅｅｔ１＂）．Ｒａｎｇｅ
（＂ｆ４＂）
依次类推工业源㊁移动源㊁集中式的相关表格，均
５３第４期㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀李㊀沫：基于ＶＢＡ的乌鲁木齐市第二次全国污染源普查数据处理
可按照设定的汇总表的样式提取数据
㊂
图２㊀Ｓ１０２数据提取汇总流程图
Ｆｉｇ．２㊀ＴｈｅｆｌｏｗｃｈａｒｔｏｆｅｘｔｒａｃｔｉｎｇａｎｄｃｏｌｌｅｃｔｉｎｇＳ１０２ｄａｔａ
３．３㊀多文件夹多表单合成
运用函数Ｄｉｒ（）遍历一个文件夹中的所有文件，
读取文件中所有表单，表单名称按照表号顺序修改，依次复制到新表，完成多个企业文件夹内所有表单的合并，生成以 企业名称 命名的文件㊂
主程序：ＣｈＤｉｒＭｙＤｉｒＭａｔｃｈ＝ＤｉｒƔ（＂＂）
ＩｆＮｏｔＬＣａｓｅ（Ｍａｔｃｈ）＝ＬＣａｓｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．
Ｎａｍｅ）Ｔｈｅｎ
Ｗｏｒｋｂｏｏｋｓ．ＯｐｅｎＭａｔｃｈ，０
ＡｃｔｉｖｅＳｈｅｅｔ．ＣｏｐｙＢｅｆｏｒｅ：＝ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｓｈｅｅｔｓ（１）
ｐ＝ＡｃｔｉｖｅＳｈｅｅｔ．Ｒａｎｇｅ（＂ｈ２＂）．Ｖａｌｕｅ＆ｉＭａｔｃｈ＝ＤｉｒƔ
ＬｏｏｐＵｎｔｉｌＬｅｎ（Ｍａｔｃｈ）＝０
Ｓｅｔｙｙ＝Ｗｏｒｋｓｈｅｅｔｓ（ 合并 ）
图３㊀Ｓ１０２多表单合并流程图
Ｆｉｇ．３㊀Ｔｈｅｆｌｏｗｃｈａｒｔｏｆｃｏｍｂｉｎｉｎｇ１０２ｍｕｌｔｉ⁃ｓｈｅｅｔｓ
３．４㊀企业问题提取合成
在问题汇总表中循环语句自动判断，定位到企业
问题最后一行，并记录行号，复制到企业新表，重新命名，形成问题记录的文件，实现将企业问题分别发送，各企业对照问题可以核实修改㊂
ｗｂ．Ｗｏｒｋｓｈｅｅｔｓ（ 审核未通过全部问题 ）．Ｒａｎｇｅ
（ｗｂ．Ｗｏｒｋｓｈｅｅｔｓ（ 审核未通过全部问题 ）．Ｃｅｌｌｓ（ｓ，
１），ｗｂ．Ｗｏｒｋｓｈｅｅｔｓ（ 审核未通过全部问题 ）．Ｃｅｌｌｓ（ｕ－１，１３））．Ｃｏｐｙ，ｗｋ．Ｗｏｒｋｓｈｅｅｔｓ（ Ｓｈｅｅｔ１ ）．Ｒａｎｇｅ（ｗｋ．Ｗｏｒｋｓｈｅｅｔｓ（ Ｓｈｅｅｔ１ ）．Ｃｅｌｌｓ（２，１），ｗｋ．
６３㊀㊀㊀㊀新㊀疆㊀环㊀境㊀保㊀护㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀第４２卷
Ｗｏｒｋｓｈｅｅｔｓ（ Ｓｈｅｅｔ１ ）．Ｃｅｌｌｓ（ｕ＋１，１３））ｗｂ．Ｗｏｒｋｓｈｅｅｔｓ（  ）．Ｒａｎｇｅ（ ａ２：ｍ２ ）．Ｃｏｐｙｗｋ．Ｗｏｒｋｓｈｅｅｔｓ（ Ｓｈｅｅｔ１ ）．Ｒａｎｇｅ（ ａ１：ｍ１ ）
３．５㊀多文件指定表号合并
工业源Ｇ１０６－１表中ｋ值审核是数据审核关键
指标，准确与否关系到核算各个企业污染物的产㊁排量核算结果，但普查软件中Ｇ１０６－１汇总表中不含ｋ值公式的指标，需要从每个企业Ｇ１０６单表中分别调取㊂合并过程主要解决两个问题，首先提取每个企业指定表单Ｇ１０６中所有指标，将企业不同表单合并为一个表单，方便批量审核㊂
主程序：
第一步提取各企业Ｇ１０６表，按顺序依次复制到指定工作簿中：
Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝Ｆａｌｓｅｗｂｎａｍｅ＝ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＮａｍｅＦｏｒｉ＝１ＴｏＵＢｏｕｎｄ（ｆｉｌｅｔｏｏｐｅｎ）
Ｗｏｒｋｂｏｏｋｓ．ＯｐｅｎＦｉｌｅｎａｍｅ：＝ｆｉｌｅｔｏｏｐｅｎ（ｉ）ｗｂｃｕｒｒｅｎｔ＝ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．ＮａｍｅＳｈｅｅｔｓ（ｗｊｍ）．Ｃｅｌｌｓ（１，１）＝ｆｉｌｅｔｏｏｐｅｎ（ｉ）Ｓｈｅｅｔｓ（Ｔ＿ＢＡＳ＿Ｇ１０６＿１）．Ｃｏｐｙｂｅｆｏｒｅ：＝
Ｗｏｒｋｂｏｏｋｓ（ｗｂｎａｍｅ）．Ｓｈｅｅｔｓ（１）
图４㊀多企业指定表单指标汇总流程图
Ｆｉｇ．４㊀Ｔｈｅｆｌｏｗｃｈａｒｔｏｆｉｎｄｅｘｓｕｍｍａｒｙｏｆｍａｎｙｅｎｔｅｒｐｒｉｓｅｓｄｅｓｉｇｎａｔｅｄｓｈｅｅｔｓ
㊀㊀第二步将各企业Ｇ１０６表，合并至一张表单中，每项指标整齐排列：
Ｆｏｒｊ＝１ＴｏＳｈｅｅｔｓ．Ｃｏｕｎｔ，ＩｆＳｈｅｅｔｓ（ｊ）．Ｎａｍｅ＜＞
ＡｃｔｉｖｅＳｈｅｅｔ．ＮａｍｅＴｈｅｎ，ｙ＝Ｒａｎｇｅ（ ａ６５５３６ ）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ，ｘ＝Ｓｈｅｅｔｓ（ｊ）．ＵｓｅｄＲａｎｇｅ．Ｒｏｗｓ．Ｃｏｕｎｔ，Ｓｈｅｅｔｓ（ｊ）．Ｃｏｌｕｍｎｓ（ ａ：ａ ）．Ｉｎｓｅｒｔ，Ｆｏｒｕ＝１Ｔｏ
ｘ，Ｓｈｅｅｔｓ（ｊ）．Ｃｅｌｌｓ（ｕ，１）＝Ｓｈｅｅｔｓ（ｊ）．Ｒａｎｇｅ（ ｂ１ ）Ｎｅｘｔｕ，Ｓｈｅｅｔｓ（ｊ）．ＵｓｅｄＲａｎｇｅ．ＣｏｐｙＣｅｌｌｓ（ｙ＋２，１）
ＥｎｄＩｆ，Ｎｅｘｔ，Ｒａｎｇｅ（ ｂ１ ）．Ｓｅｌｅｃｔ
Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ＝ＴｒｕｅＭｓｇＢｏｘ 合并成功
３．６㊀多指标单独排序
首先将需要排序的字段按区县㊁企业名称㊁指标
值的排列规则，复制至表单中，排序数量可自由设置，程序将自动选中表单，使用ｓｏｒｔ排序命令，可设置升序或降序顺序，是否包括标题等规则，结合循环命令ｆｏｒ，对每一项指标进行单独排序，分开显示每个指标的排序情况，批量实现一张表中多指标单独一键排序（指标数量不限）㊂
７
３第４期㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀㊀李㊀沫：基于ＶＢＡ的乌鲁木齐市第二次全国污染源普查数据处理