chanong 跟随表弟学习批量处理的相关操作，将双手从复制粘贴中解放出来。
业务场景：
批量制作员工工作证
扩展应用：
① 快速获取文件名并重命名，提高文档组织效率
②批量制作准考证、HR面试通知函、财务对账函等。
③批量生成多个相同的指定文件名的空白表格，如：各部门预算登记表、员工工资调整表等。
【1】获取文件名
在制作工作证之前，我们首先整理了员工证照片的文件夹。 JPG证件照名称混乱。
面对员工档案证件照命名原则不规范的情况，我们需要以员工编号-员工姓名的形式进行重命名。
1 首先使用VBA获取文件夹中的所有文件名。
巴
批量获取文件名
子()'灵珍表弟【】
昏暗，迪克，有，我，T，F，TT，
出错时下一步
。 = 假
设置=（“外壳”。）
设置 = .(0, "选择文件夹", 0, 0)
如果不是则 lj = .self.Path & "\"
设置 =
设置 =
T=定时器
Set Dic = (".") '创建字典对象
设置Did = (".")
Dic.Add (lj), ""
我=0
当我 < Dic.Count 时执行
Ke = Dic.keys '开始遍历字典
= Dir(Ke(I), ) '搜索目录
当“”时做
如果 ”。” 进而
If ((Ke(I) & ) And ) = then '如果是二级目录
Dic.Add(Ke(I) && "\"), "" '将此子目录名作为条目添加到字典中
万一
万一
= Dir '继续遍历查找
环形
我=我+1
环形
Did.Add("文件列表"),"" '以查找D盘所有EXCEL文件为例
对于 Dic.keys 中的每个 Ke
= Dir(Ke & "*.jpg")'注意，这里改成你需要统计的文件格式。 如果是Excel就改成xlsx，或者其他文件格式的后缀！
当“”时做
Did.Add (Ke & ), ""
=目录
环形
下一个
对于每个 Sh 中。
如果 Sh.Name =“文件列表”则
（“文件列表”）。细胞。
F=真
退出对于
别的
F=假
万一
下一个
如果不是 F 那么
.Add.Name = "文件列表"
万一
("文件列表").[a1].(Did.Count, 1) = .(Did.keys)
TT = 定时器-T
.=真
“总结完毕，请查看，谢谢！”
结束子
指示：
1、打开Excel，按键盘上的ALT+F11，打开Excel背景和VB编辑窗口。
2、点击插入选项卡，插入一个模块，然后将上面的代码复制到右侧的编辑窗口中，如下图所示。
3. 单击运行按钮
4、此时Excel会弹出一个对话框让你选择文件路径。 请点击需要提取文件名的文件夹路径。
VBA代码自动运行后，您可以在您选择的文件夹中提取您请求的jpg/docx/xlsx格式的文件路径+名称，如下：
除了VBA方法之外，还可以使用获取文件路径的方法来完成上述需求：
操作方法：
在文件夹中，选择所有文件后，按键盘上的shift+单击鼠标右键，选择【复制为路径】，然后粘贴到Excel中。
2.使用bat批处理文件对图片进行重命名。
在Excel中，使用函数将原始JPG文件名组织成员工编号-员工姓名的格式。
B列的公式为：
="任"&A1&".jpg "&C1&".jpg"
（请直接复制使用，注意ren后面有空格）
复制B2:B21单元格的值，粘贴到【证件照】文件夹下新建的txt文本文档中，保存并关闭。
然后，将txt文本文件的后缀名更改为bat批处理文件。
双击运行，照片批量重命名完成。
照片重命名后效果如下：
【2】使用邮件合并制作工作证
在开始邮件合并之前，我们整理一下两个原始文档：
①邮件合并Word模板
② 用于存储员工信息的原始Excel文件
注意图片存储路径必须用\\区分。 喜欢：
D:\\-凌震\\【表弟来了】批处理微课\\证件照\\-金三胖.jpg
【邮件合并】
①打开Word模板，点击【邮件】选项卡--【开始邮件合并】--【普通Word文档】
②点击【选择收件人】--【使用现有列表】
在弹出的对话框中，找到示例文件的原始Excel文件，选择【数据源$】表。
③点击【插入合并字段】，将相应的字段（如姓名、部门、职位等）放置在Word模板中相应的文本位置。
④将光标停留在[照片]文本框，单击[插入]选项卡--[文档部分]--[字段]。
在弹出的【域名】对话框中，在左侧的【域名】区域中选择：； 在[域属性]文件名或URL中输入任意值，例如：. （此处输入的内容仅作为占位符，下一步操作符将被删除）
插入后，【照片】位置会显示为：无法显示。 这是因为图像索引信息尚未刷新到Word。
此时按住键盘上的ALT+F9即可查看域码：
选择刚才输入的占位符【】，用del删除，然后在中选择对应的【照片地址】字段：
⑤完成上述步骤后，按键盘上的[ALT+F9]关闭域编辑状态。
然后，按F9刷新图像源并将图像大小调整到合适的位置。
⑥点击【完成并合并】--【编辑单个文档】
在弹出的【合并到新文档】对话框中，默认选择【全部】，点击确定。
您也可以根据需要选择部分记录，例如：从100-200等。
这时，Word会创建一个新文档。 按键盘CTRL+A选择所有文档后，按键盘F9刷新图像源。 最终产品如下：
【3】批量创建多个表
每次到了年初或者月初，很多朋友都要创建N多个空白表格，比如每月、部门人员动态列表，并且要求每个工作表都显示部门名称。
除了手动填写的方法外，我们还使用数据透视表--【显示报表筛选页面】的方法来快速生成自定义部门名称的子表。
①根据部门名称创建数据透视表，将[部门名称]放入[过滤器]字段中。
②点击【数据透视表工具】--【分析】选项卡下--【选项】--【显示报表筛选页面】
在弹出的对话框中单击【确定】。
Excel 快速生成了多个以[部门名称] 命名的空白工作表。
右键单击工作表名称区域的左右三角形，打开工作表【激活】窗口，可以查看该工作簿中的所有工作表，以便快速选择。
③单击工作表选项卡区域，按住键盘选择各部门的工作表，使工作簿变为【工作组】状态。
选择数据透视表区域，单击【开始】选项卡--【编辑】--【清除】--【全部清除】，清除表格。
注意：在此状态下，无法通过选择第 1 行并删除该行来删除数据透视表。
然后将模板表中的工作表粘贴到工作组中，批量创建完成。
获取：样本原始文件
只需在公众号后台回复【批量处理】三个字即可。
提高桌面工作效率
我是令珍表弟
如果您有任何相关问题，请随时与我沟通
希望我的微薄积累能给你带来启发
也请帮我们分享到朋友圈，转发给其他朋友。
邮件：
微信扫一扫打赏
支付宝扫一扫打赏
