我是靠谱客的博主 感动康乃馨，最近开发中收集的这篇文章主要介绍6.Excel vba开发-分拆工作表需求：一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿。代码效果，觉得挺不错的，现在分享给大家，希望可以做个参考。
概述
需求：一个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
效果
最后
以上就是感动康乃馨为你收集整理的6.Excel vba开发-分拆工作表需求：一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿。代码效果的全部内容，希望文章能够帮你解决6.Excel vba开发-分拆工作表需求：一个Excel工作簿中会出现有很多个工作表的情况，有时会根据需要将他们拆分成不同的工作簿。代码效果所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复