將Excel多個工作表拆分成多個單獨的Excel

參考百度經驗
選中要拆分的工作表，右鍵查看代碼，將下面的代碼複製進去，運行。
關鍵代碼

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     '將工作簿另存爲xlsx格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已經被分拆完畢!"

   End Sub