实用：批量生成工作簿、工作表和文件夹

1、批量生成工作表

简要说明：

• 生成数据透视表

• 将文本拖动到筛选字段

• 显示报表筛选页

2、批量生成工作簿

简要说明：

在A列输入要生成的工作簿名称，然后鼠标右击任意工作表标签，查看代码：

在VBE界面中输入以下代码：

（拖动底部滚动条，可查看完整内容）

Sub newbooks() Dim i&, p$, temp$ On Error Resume Next '忽略代码运行中的错误，避免存在异常名称工作簿等问题时，代码运行中断。 Application.ScreenUpdating = False '关闭屏幕刷新 p = ThisWorkbook.Path & '\' '取得当前工作薄所在路径 For i = 1 To Cells(Rows.Count, 1).End(3).Row '循环读取A列数据 temp = Cells(i, 1) & '.xlsx' 'temp是完整的含文件后缀的工作薄名称 With Workbooks.Add '新建工作薄 .SaveAs p & temp '保存工作薄，p & temp是要保存的文件的名称 .Close False '关闭工作薄 End With Next Application.ScreenUpdating = True '恢复屏幕刷新End Sub

• 

• 按F5键执行代码，即可生成指定名称的工作簿。

3、批量生成文件夹

简要说明：

• 用公式='MD '&A2生成批处理命令

• 粘贴到记事本

• 将后缀名.txt修改为.bat，双击

• 注意：MD后面有一个空格，不要漏掉

4、批量生成……

打开你的Word，输入以下公式，按回车，说说你看到了什么？

=lorem(20,99)

好了，今天的分享就是这些吧，祝各位一天好心情！还是那句老话，光说不练假把式，一定要试试哦~~

图文制作：祝洪忠