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

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

3、插入模块，在模块中编写批量拆分工作表的代码。Sub 拆分多工作表() '将工作薄按工作表拆分成多个工作薄Dim PATH As StringPATH = App造婷用痃lication.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的工作簿。