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

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

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 WithNextApplication.ScreenUpdating = True '恢复屏幕刷新End Sub

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

3、批量生成文件夹

简要说明：用公式=”MD “&A2生成批处理命令粘贴到记事本将后缀名.txt修改为.bat，双击注意：MD后面有一个空格，不要漏掉

4、批量生成……

打开你的Word，输入以下公式，按回车，说说你看到了什么？=lorem(20,99)

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。