excel多个sheet表拆分成独立的excel文件

注意：本操作以wps为例，其它的请自行测试

（1）下载【wps vba宏插件】

（2）点击 【开发工具】--》【vba编辑器】--》【插入】--》【模块】

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:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub