创建一个测试表格,3个sheet,内容分别为"aaa","bbb","ccc"。
使用office打开,右击某个sheet弹出操作栏,选择"查看代码"。
然后在弹框里输入下面代码:
代码:
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
然后单击上边操作栏中的"运行",选择"运行子过程/用户窗体"。
然后会自动开始进行拆分,中途可能会弹出下边提示,选择"是"就ok。
弹出这个就完成了