将Excel多个工作表拆分成多个单独的Excel

最新推荐文章于 2022-05-09 08:36:54 发布

fiona-frontEnd

最新推荐文章于 2022-05-09 08:36:54 发布

阅读量1.4k

点赞数

分类专栏：工作整理

本文链接：https://blog.csdn.net/DeliaWen/article/details/99304879

版权

工作整理专栏收录该内容

2 篇文章 0 订阅

订阅专栏

参考百度经验
选中要拆分的工作表，右键查看代码，将下面的代码复制进去，运行。
关键代码

Private 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, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub