将一个工作簿拆分为多个工作表

最新推荐文章于 2025-05-22 09:22:09 发布

ZikM_0221

最新推荐文章于 2025-05-22 09:22:09 发布

阅读量3.3k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Excel学习

本文链接：https://blog.csdn.net/qq_43303906/article/details/116670641

Excel学习专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一种使用VBA宏将Excel工作簿按工作表拆分成多个独立文件的方法。通过简单的步骤，用户可以轻松实现批量拆分，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将一个工作簿拆分为多个工作表

1.打开要拆分的工作簿-【开发工具】-【宏】

2.输入名称，点击创建。

3.输入以下代码。

Sub 拆分工作表()

    On Error Resume Next

    Application.DisplayAlerts = False

    Application.ScreenUpdating = False

    Dim Sht As Worksheet, Nwb As Workbook, Owb As Workbook

    Dim OPath As String, NPath As String

    Set Owb = ActiveWorkbook

    OPath = Owb.Path

      If Len(OPath) <> 0 Then

         NPath = OPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-拆分"

         MkDir NPath

            For Each Sht In Owb.Worksheets

                Sht.Copy

                Set Nwb = ActiveWorkbook

                Nwb.SaveAs NPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-" & Sht.Name & ".xlsx"

                Nwb.Close

            Next

            MsgBox "拆分后的文件已保存至:" & NPath

       End If

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

4.返回到工作表中，点击宏，选择执行即可。