excel拆分工作表，是一個(gè)很典型的應(yīng)用。比如一個(gè)excel工作簿中，有60張工作表。現(xiàn)在想利用excel拆分工作表來將這60個(gè)工作表分別下發(fā)給不同的人員。

　　下面這段excel拆分工作表的代碼可以實(shí)現(xiàn)將excel拆分為不同的excel文件。

　　使用方法如下：
　　1.打開需要進(jìn)行拆分的excel文件。
　　2.按ALT+F11，打開VBE編輯器。
　　3.單擊插入——模塊，復(fù)制下面的代碼，然后按F5鍵運(yùn)行。
　　通過三步就可以完成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拆分工作表的一個(gè)演示截圖：