Excel 2007 分拆工作表

来源：百度知道 编辑：UC知道 时间：2024/05/30 15:11:53
一个 Excel 文件里有20多个工作表，想把它们分别保存为单独的文件，怎么做？

这个问题需要用VBA

Sub SaveSheet()
For Each ws In ThisWorkbook.Worksheets
ws.Copy
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ws.Name, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub

在Office版本上测试通过，估计在07版本上也没问题

还不明白的话，站内留言