Excel Home
全球知名的Excel资源网站之一

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

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)

赞(28)
未经允许不得转载:ExcelHome » 实用:批量生成工作簿、工作表和文件夹
分享到: 更多 (0)

关于我们联系我们
本站特聘法律顾问:李志群律师   沪ICP备11019229号-2

沪公网安备 31011702000001号

征信