您现在的位置是：主页 > VBA >

excel工作簿拆分实现VBA代码

发布时间：2023-10-12 10:22:28所属栏目：VBA 已帮助人编辑作者：Excel自学教程

一个工作簿中包括N个工作表，将各个工作表拆分成工作簿。

工作表数量不定，表内内容不限，拆分后保存于当前文件夹内。

Sub Sample()
Dim MySheetsCount As Long
For MySheetsCount = 1 To Sheets.Count
Sheets(MySheetsCount).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "/" & Sheets(1).Name & ".xlsx"
ActiveWindow.Close
Next
End Sub

     以上就是excel自学教程为您提供excel工作簿拆分实现VBA代码的解读，本文章链接： http://www.5enet.cn/Excel_VBA/77839.html 欢迎分享转载，更多相关资讯请前往VBA

上一篇：excel 解除 VBA 密码保护_excel 免密查看 VBA 代码

下一篇：excel工作簿合并实现VBA代码

相关文章

猜你喜欢

站长名片

姓名：曾工

职业：IT运维

现居：深圳罗湖宝能大厦

电话：15768114603

企业IT外包服务

扫码关注

  • 专注IT行业，10年IT行业经验
  • 微信