excel如何将一个工作薄中的工作表生成独立的工作薄

excel如何将一个工作薄中的工作表生成独立的工作薄 

'用vba代码

Sub 另存所有工作表为工作簿()

Dim sht As Worksheet

Application.ScreenUpdating = False

ipath = ThisWorkbook.Path & "\"

For Each sht In Sheets

    sht.Copy

    ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"  '(工作表名称为文件名）

     ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub

---