VBA-工作簿里面多个Shee拆分成独立的工作簿

最新推荐文章于 2024-04-26 21:54:06 发布

weixin_43203897

最新推荐文章于 2024-04-26 21:54:06 发布

阅读量1.1k

点赞数

分类专栏：代码

本文链接：https://blog.csdn.net/weixin_43203897/article/details/90372169

版权

代码专栏收录该内容

6 篇文章 0 订阅

订阅专栏

在这里插入图片描述
1.打开视图—>代码窗口—>粘贴代码
2.运行代码

 Private Sub chafenbiao()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal
           ActiveWorkbook.Close
       Next      
   End Sub

去文件夹查看
代码执行完后