时间:2016-04-03 20:06 来源: 我爱IT技术网 作者:佚名
当一个工作簿中有多个工作表，而又需要把这几个工作表拆分成独立的工作簿时，我们可以采用以下方法。
前期准备工作（包括相关工具或所使用的原料等）
EXCEL
VBA
详细的操作方法或具体步骤
如图，有名称为05,06的两个工资表在一张工作簿中。
![VBA怎么编程序：[5]用宏拆分EXCEL工作表](http://www.52ij.com/uploads/allimg/160403/20063U094-0.jpg)
打开VBA编辑器
![VBA怎么编程序：[5]用宏拆分EXCEL工作表](http://www.52ij.com/uploads/allimg/160403/20063RE2-1.jpg)
插入模块，在模块中编写批量拆分工作表的代码。
Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄Dim PATH As StringPATH=Application.ActiveWorkbook.PATHDim sht As WorksheetApplication.ScreenUpdating=FalseFor Each sht In Sheetssht.CopyActiveWorkbook.SaveAs PATH & "\" & sht.Name & ".xls" '(工作表名称为文件名）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEnd Sub
![VBA怎么编程序：[5]用宏拆分EXCEL工作表](http://www.52ij.com/uploads/allimg/160403/20063SW8-2.jpg)
执行代码后，原含有05，06两个工作表名的工作簿被拆分成了名称为05的工作簿和名称为06的工作簿。
VBA怎么编程序(共6篇)上一篇：用宏删除空工作表|下一篇：给EXCEL表格添加...经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-