《拆分一个Excel工作簿中的多个工作表》由会员分享,可在线阅读,更多相关《拆分一个Excel工作簿中的多个工作表(5页珍藏版)》请在金锄头文库上搜索。
拆分一个Excel工作簿中的多个工作表1、打开需要编辑的Excel文档,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。2、右键任意一个工作表标签,在弹出的下拉列表中选择“查看代码”。即弹出代码窗口。3、点击菜单“插入”-“模块”, 在弹出的模块对话框中 输入以下代码:Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & & sht.Name, FileFormat:=xlNormal 将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox 文件已经被分拆完毕! End Sub4、单击“运行”-“运行子过程/用户窗体”,几秒过后弹出提示窗口“文件已被拆分完毕”。5、返回Excel工作簿文件所在路径查看原先工作簿中的工作表已经成为单独的工作簿了。