Mark 办公软件

WPS小猪葛

快速批量新建一万个员工文件夹！#办公技巧 #wps #干货分享

00:33

VBA将工作表批量导出为独立的文件

Sub 工作表批量导出为工作簿()

Application.ScreenUpdating = False '屏幕不更新

Dim i As Integer

Dim j As Integer

Dim str As String

j = Worksheets.Count

For i = j To 1 Step -1

Worksheets(i).Copy '复制工作表

str = ActiveWorkbook.Sheets(1).Name '定义工作簿名称为当前工作表名称

ActiveWorkbook.SaveAs Filename:="D:\AA\" & str & ".xlsx" '导出到指定路径，可以修改，必须是当前存在的路径，str为文件名

ActiveWorkbook.Close savechanges:=True '保存并关闭工作簿，

Next

Application.ScreenUpdating = True '允许屏幕更新

End Sub