[VBA]拆分工作表

Sub 拆分工作表()

Dim sht As Worksheet

For Each sht In Sheets

    sht.Copy

    ActiveWorkbook.SaveAs Filename:="d:\data\" & sht.Name & ".xlsx"

    ActiveWorkbook.Close

Next

End Sub