拆分一个Excel工作簿中的多个工作表

拆分一个Excel工作簿中的多个工作表1、打开需要编辑的Excel文档，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。2、右键任意一个工作表标签，在弹出的下拉列表中选择“查看代码”。即弹出代码窗口。3、点击菜单“插入”-“模块”，在弹出的模块对话框中输入以下代码：PrivateSub分拆工作表()DimshtAsWorksheetDimMyBookAsWorkbookSetMyBook=ActiveWorkbookForEachshtInMyBook.Sheetssht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path&\&sht.Name,FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox文件已经被分拆完毕!EndSub4、单击“运行”-“运行子过程/用户窗体”，几秒过后弹出提示窗口“文件已被拆分完毕”。5、返回Excel工作簿文件所在路径查看原先工作簿中的工作表已经成为单独的工作簿了。