excel多個sheet表拆分成獨立的excel文件

 翻譯技巧     |      2018-11-22 17:15:28
注意:本操作以wps為例,其它的請自行測試
(1)下載【wps vba宏插件】
(2)點擊 【開發(fā)工具】--》【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 "文件已經(jīng)被分拆完畢!"
End Sub