VBA实例一、工作簿按表拆分成多个工作簿

大家好，本节主要介绍，通过VBA程序，将单个工作簿中的多个工作表，按表拆分成多个独立工作簿。

效 果 演 示

一个工作簿中有多个工作表，将每个工作表拆分成独立的工作簿，生成的工作簿名称为原工作表名称，保存至原文件路径下，演示效果如下：

V B A 代 码

思路是通过for each循环，将该工作簿中的每个表格对象赋值给sht变量，在循环中复制sht变量，将其另存为工作簿文件。

保存至原工作簿的路径下，工作簿的名称为原工作表的名称，另存完毕后关闭，最后msgbox弹窗提示完成。

为了提高代码效率，关闭屏幕更新。

代码如下：

Sub 拆分工作表()

'定义变量并赋值

Dim Sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ThisWorkbook

'关闭屏幕更新

Application.ScreenUpdating = False

'通过for each循环工作表变量

For Each Sht In MyBook.Sheets

   Sht.Copy

    '另存到原文件路径下，名称为原工作表名称

   ActiveWorkbook.SaveAs Filename:=MyBook.Path _

   & '\' & Sht.Name, FileFormat:=xlNormal

   ActiveWorkbook.Close

Next

'重新开启屏幕更新

Application.ScreenUpdating = True

'弹窗提示

MsgBox '工作簿拆分完成'

End Sub

---

Live and Learn