Dim A As Worksheet
For Each A In Worksheets
A.Activate
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & A.Name & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
A.Cells(1, 1).Select
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024