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拆分工作表的一个演示截图：
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：excel拆分工作表代码
相关文章
