EXCEL工作簿中将按工作表名称拆分成独立文件

我们在使用EXCEL过程中经常会遇到某个EXCEL工作簿里面有很多工作表，而我们需要将每个工作表按照工作表的名称都单独存成一份独立的工作簿也就是一个独立的EXCEL文件，这个时候就需要用到宏。

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:=xlNormal     '将工作簿另存为EXCEL默认格式

           ActiveWorkbook.Close

       Next

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

   End Sub

操作步骤：

1、按ALT+F11呼出VB控制台，然后在左侧条目VBAProject右键点击，选择插入-模块

2、将上面的宏代码拷到右侧的空白区，然后点上面的绿色三角标运行代码

运行完成，会弹出提示窗口“文件已被拆分完毕”完成，这时候看看当前目录下是不是多了好多个以工作表名称命名的EXCEL文件

另外如果需要按工作表中某个字段将工作表拆分成一个个独立的EXCEL文件，可以看这里https://www.bnxb.com/excel/27098.html