excel如何将一个工作薄中的工作表生成独立的工作薄

weixin_30610755

于 2017-11-06 11:10:00 发布

阅读量546

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/m0488/p/7792219.html

本文介绍了一段VBA代码，该代码能够帮助用户将Excel工作簿中的每个工作表分别保存为独立的工作簿文件。通过简单的宏操作，用户可以实现快速批量处理，适用于需要对多个工作表进行分离存档的场景。

excel如何将一个工作薄中的工作表生成独立的工作薄

'用vba代码   
Sub 另存所有工作表为工作簿()
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