6.Excel vba开发-分拆工作表

最新推荐文章于 2024-06-05 13:13:54 发布

牛code

最新推荐文章于 2024-06-05 13:13:54 发布

阅读量651

点赞数

分类专栏： excel vba开发文章标签： vba

本文链接：https://blog.csdn.net/qq_25064691/article/details/126030217

版权

VBA Excel 工作表拆分宏批量处理

关键词由CSDN通过智能技术生成

excel vba开发专栏收录该内容

18 篇文章 5 订阅

订阅专栏

需求：一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿。

代码

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 & ".xlsx", FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕"
End Sub