Sub 拆分工作薄()
Dim sht As Worksheet "定义一个工作表变量 sht
Dim mybook As Workbook
Application.ScreenUpdating = False
Set mybook = ActiveWorkbook
VBA.MkDir (mybook.Path & "分后数据")
For Each sht In mybook.Sheets
sht.Copy
With ActiveWorkbook
.SaveAs Filename:=mybook.Path & "分后数据" & sht.Name, FileFormat:=56
.Close
End With
Next
Application.ScreenUpdating = True
End Sub