今天，做會計的朋友問我一個問題，怎麼講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 & ".xls", FileFormat:=xlNormal     '將工作簿另存為EXCEL預設格式
           ActiveWorkbook.Close
       Next
       MsgBox "檔案已經被分拆完畢!"
   End Sub