excel拆分工作表

注意：保存文件的名称不要重复
Sub 拆分工作表()
For Each sht In ThisWorkbook.Worksheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & sht.Name & ".xlsx"
Next

End Sub