VBA将一张工作簿内若干工作表另存为独立的工作簿
时间: 2024-05-04 11:20:31 浏览: 70
VBA汇总相同工作簿.rar
可以使用以下VBA代码将一张工作簿内的若干工作表另存为独立的工作簿:
```
Sub SaveWorksheetsAsNewWorkbooks()
Dim ws As Worksheet
Dim wb As Workbook
Dim newWB As Workbook
Dim savePath As String
'设置保存路径
savePath = "C:\Users\Username\Desktop\"
'禁止屏幕刷新
Application.ScreenUpdating = False
'循环遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
'创建新工作簿
Set newWB = Workbooks.Add
'复制当前工作表到新工作簿
ws.Copy Before:=newWB.Sheets(1)
'保存新工作簿
newWB.SaveAs savePath & ws.Name & ".xlsx"
'关闭新工作簿
newWB.Close
'释放对象
Set newWB = Nothing
Next
'恢复屏幕刷新并显示提示信息
Application.ScreenUpdating = True
MsgBox "工作表已保存为独立的工作簿", vbInformation
End Sub
```
在代码中,需要设置保存路径(即savePath变量),然后使用循环遍历所有工作表,并创建新工作簿、复制当前工作表到新工作簿、保存新工作簿、关闭新工作簿以及释放对象等步骤。最后,恢复屏幕刷新并显示提示信息。
阅读全文