全国首家农经权自动命名vba教程
本人从事农经权也有一两年，开始什么都不会，现在已经成了一个项目总工。

深感土地确权耗时耗力。

档案扫描更是如此！自己也了解到一些命名软件，不近人意。

自己也懂一些编程，于是写了出来，希望能够喜欢。

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

另外扫描时一定要一户一扫，确保每一户都是从001开始如图
本软件的最大特色就是扫描和命名可以不同步
1打开全国首家农经权自动命名vba，运行宏”计算地块调查表页数”
打开汇交包权属数据的mdb文件。

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

2提示输入jzxsql语句
应输入select * from 界址线shp.dbf
例如：
如果提示odbc驱动错误，可以在网上下载安装后在运行。

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

计算界址点的数量需要一定的时间，请耐心等待。

大约需要几分钟左右。

3.跳转到sheet2，运行窗体1，计算地块页数
输入第一步长、第二步长
第一步长是指地块调查表第一页能容下多少个界址线，第二步长是指地块调查表附页能容下多少个界址线。

例如
第一步长应为13 ，第二步长应为16
4．跳转sheet4，运行窗体2，
档案名称是指扫描命名的文档名称
指定页数可以在基础页中为档案指定页数：
可以引用人口总数或者地块页数：
也可以自定义：
基础页是指档案最初的基本页数。

地块基数是指档案最初能容纳的地块数，步长是指附表能容纳的地块数。

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

设置好后可以点击保存，计算
例如：
5.点击生成命名数据可以生成档案命名数据.txt，并保存在桌面上。

关闭程序
注意程序执行中可能占用剪切板，不能进行复制粘贴。

关闭程序后，复杂粘贴就可以用了
生成的默认：CBFBM+档案名称+后缀
后缀：如果页数小于1则没有后缀。

如果页数大于1，则档案名称+顺序号。

除了地块调查表是1，2，3系列，其他都是（1），（2）（3）系列
提示如果不符合您的需求，可以联系我定制。

6.网上下载个拖把命名工具
设置如下
把扫描好的一个组的文件夹拖进来，然后点击文件、导出当前文件列表，保存结果。

新建工作簿把命名数据和文件名粘贴进来，一个组一个组进行一一对比。

理论值可以帮助我们检查是否漏页，缺页。

当然理论页也有不对的地方，还应该以实际为主。

理论页数和扫描页数相同的情况下，可以略过，两者不一致的情况下，点开扫描页，仔细核对。

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

7.比对完成后，可以讲命名名称粘贴到文档中，通过拖把调用文本来重命名
点击更名
8.运行程序里的自动归类宏，选择扫描件文件夹自动创建CBFBM文件夹，并把文件移进去
9.再把整个扫描件拖进扫把更名器中，导出文件列表，粘贴到execl中，通过分列去掉前面的承包方编码，进行重命名。

这样就完成了。

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