VBA怎么编程序：[5]用宏拆分EXCEL工作表

1、 如图，有名称为05,06的两个工资表在一张工作簿中。

2、 打开VBA编辑器

3、 插入模块，在模块中编写批量拆分工作表的代码。

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

4、 执行代码后，原含有05，06两个工作表名的工作簿被拆分成了名称为05的工作簿和名称为06的工作簿。