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

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

打开VBA编辑器

插入模块，在模块中编写批量拆分工作表的代码。 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

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