excel拆分工作表代码

excel拆分工作表，是一个很典型的应用。比如一个excel工作簿中，有60张工作表。现在想利用excel拆分工作表来将这60个工作表分别下发给不同的人员。

下面这段excel拆分工作表的代码可以实现将excel拆分为不同的excel文件。

使用方法如下：
1.打开需要进行拆分的excel文件。
2.按ALT+F11，打开VBE编辑器。
3.单击插入――模块，复制下面的代码，然后按F5键运行。
通过三步就可以完成excel拆分工作表，拆分的工作表文件存放在和此文件同一路径之下。

Sub拆分工作表()
DimshtAsWorksheet
Application.Displayalerts=False
ForEachshtInWorksheets
   sht.Copy
   ActiveWorkbook.SaveAsThisWorkbook.Path&"\"&sht.Name&".xls"
   ActiveWorkbook.Close
Next
Application.Displayalerts=True
EndSub

下面是excel拆分工作表的一个演示截图：