快速将Excel中的多个工作簿单独保存为工作表.doc

《快速将Excel中的多个工作簿单独保存为工作表.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、快速将Excel中的多个工作簿单独保存为工作表工作中我们经常会遇到这种情况，就是一张Excel中会有好多工作簿，想将工作簿单独保存，要怎么操作呢？1、常用方法：右击工作簿，“移动或复制”---选择“新工作簿”，就会弹出一个新的工作表，保存即可。（注：如果不想从工作表中删除移除的工作簿，就在“建立副本”前面打钩；不勾选，则原有表中的此工作簿随即删除）2、如果工作簿很多，都用1中的方法一个个点，势必耗时费力，那如何快速的将工作簿批量分出来呢？这就要用到我们的VBA语句了。（1）右击任一工作簿，“查看代码”（2）复制如下语句，单击运行按钮，搞定！PrivateSub分拆工作表()DimshtAs

2、WorksheetDimMyBookAsWorkbookSetMyBook=ActiveWorkbookForEachshtInMyBook.Sheetssht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path&""&sht.Name&".xls",FileFormat:=xlNormal'将工作簿另存为xls格式ActiveWorkbook.CloseNextMsgBox"文件已经被分拆完毕!"EndSub上述语句是将表格保存为XLS格式，那如果想保存为07版的xlsx格式语句是怎样的呢？PrivateSub分拆工作表()DimshtAsWo

3、rksheetDimMyBookAsWorkbookSetMyBook=ActiveWorkbookForEachshtInMyBook.Sheetssht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path&""&sht.Name&".xlsx",FileFormat:=xlOpenXMLWorkbook'将工作簿另存为xlsx默认格式ActiveWorkbook.CloseNextMsgBox"文件已经被分拆完毕!"EndSub