全国首家农经权自动命名vba教程

uhuhuhu

本人从事农经权也有一两年，开始什么都不会，现在已经成了一个项目总工。深感土地确权耗时耗力。档案扫描更是如此！自己也了解到一些命名软件，不近人意。自己也懂一些编程，于是写了出来，希望能够喜欢。

前提准备，档案已经整理完毕，尽量做到不缺页，漏页，不杂乱。

另外扫描时一定要一户一扫，确保每一户都是从001开始如图

                              

本软件的最大特色就是扫描和命名可以不同步

1打开全国首家农经权自动命名vba，运行宏”计算地块调查表页数”

打开汇交包权属数据的mdb文件。

注意不要选择太大，一个村为宜。

2提示输入 jzx  sql 语句

应输入 select  *  from界址线shp.dbf

例如：  

如果提示odbc 驱动错误，可以在网上下载安装后在运行。

提示是否替换目标内容，点击是。

计算界址点的数量需要一定的时间，请耐心等待。大约需要几分钟左右。

3.运行窗体1，计算地块页数

输入第一步长、第二步长

第一步长是指地块调查表第一页能容下多少个界址线，第二步长是指地块调查表附页能容下多少个界址线。

例如

   

第一步长应为13 ，第二步长应为16

4．运行窗体2，

档案名称是指扫描命名的文档名称

指定页数可以在基础页中为档案指定页数：

可以引用人口总数或者地块页数：

也可以自定义：

基础页是指档案最初的基本页数。地块基数是指档案最初能容纳的地块数，步长是指附表能容纳的地块数。同理，人口基数是指档案最初能容纳的人口数，步长是指附表能容纳的人口数。

设置好后可以点击保存，计算

例如：

5.点击生成命名数据可以生成档案命名数据

生成的默认：CBFBM+档案名称+后缀

后缀：如果页数小于1则没有后缀。如果页数大于1，则档案名称+顺序号。除了地块调查表是1，2，3系列，其他都是（1），（2）（3）系列

提示如果不符合您的需求，可以联系我定制。

6.网上下载个拖把命名工具

设置如下

把扫描好的一个组的文件夹拖进来，然后点击文件、导出当前文件列表，保存结果。

把结果粘贴到程序进来，进行一一对比。理论值可以帮助我们检查是否漏页，缺页。当然理论页也有不对的地方，还应该以实际为主。理论页数和扫描页数相同的情况下，可以略过，两者不一致的情况下，点开扫描页，仔细核对。

理论值页数和扫描页数相同略过

理论值页数和扫描页数不相等，可以通过增删单元格，手动改正来调整。

7.比对完成后，可以讲命名名称粘贴到文档中，通过拖把调用文本来重命名

点击更名

8.运行程序里的自动归类宏，选择扫描件文件夹自动创建CBFBM文件夹，并把文件移进去

9.再把整个扫描件拖进扫把更名器中，导出文件列表，粘贴到execl中，通过分列去掉前面的承包方编码，进行重命名。这样就完成了。如图

全国首家农经权自动命名，操作方便简捷，节约人力，价格优！

本人初创 原价1000 现价800 我的qq 397711355  QQ群428220478

欢迎来咨询，获取激活码