程式碼如下：

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

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh作業系統的電腦編寫的一款電子表格軟體。

直觀的介面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機資料處理軟體。在1993年，作為Microsoft Office的元件釋出了5.0版之後，Excel就開始成為所適用操作平臺上的電子製表軟體的霸主。