excel工作簿拆分为单个的excel

在工作中可能会遇到将一个excel文件中的很多个excel文档，需要将工作簿拆分为单个的excel文档

拆分excel文件
先按Alt+F11，插入模板，拷贝下面代码F5执行

Sub SaveSeparately()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs ipath & sht.Name & ".xls"
   ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容