excel 拆分工作表的辦法，以及excel拆分工作表的設置步驟

excel拆分工作表，是一個很典型的應用。比如一個excel工作簿中，有60張工作表。現在想利用excel拆分工作表來將這60個工作表分別下發給不同的人員。

　　下面這段excel拆分工作表的代碼可以實現將excel拆分為不同的excel文件。

　　使用方法如下：
　　1.打開需要進行拆分的excel文件。
　　2.按ALT+F11，打開VBE編輯器。
　　3.單擊插入——模塊，復制下面的代碼，然后按F5鍵運行。
　　通過三步就可以完成excel拆分工作表，拆分的工作表文件存放在和此文件同一路徑之下。

Sub 拆分工作表()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
??? sht.Copy
??? ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xls"
??? ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub

　　下面是excel拆分工作表的一個演示截圖：