可运行的代码
Sub 拆分工作簿()
Dim i%, wb As Workbook, ss$, sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Workbooks(1).Sheets
Set wb = Workbooks.Add
i = i + 1
sh.Copy wb.Sheets(1)
ss = ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
wb.SaveAs ss
wb.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成"
End Sub
Sub 拆分工作簿()
Dim i%, wb As Workbook, ss$, sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Workbooks(1).Sheets
Set wb = Workbooks.Add
i = i + 1
sh.Copy wb.Sheets(1)
ss = ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
wb.SaveAs ss
wb.Close
Next
Application.DisplayAlerts = True
MsgBox "拆分工作簿完成"
End Sub