如何拆分Excel工作簿中的多个工作表为独立的文件

工作中我们可能要将一个excel工作薄中的多个工作表拆分为每个工作表独立的工作薄，一般我们是一个一个的另存为，然后删除多余的工作表，如果数据量很大时，是一件很麻烦的事情，下面给大家介绍一个十分简单的方法，几秒钟实现我们的目的！

1、文件>>   选项>> 信任中心>> 点击“信任中心设置”按钮>> 宏设置>> 选中“启用所有宏”点击“确定”按钮。    // 要执行VB代码必须先启用宏设置。

2、右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境；

3、“代码窗口”复制粘贴以下代码，按下F5快捷键执行这段代码或者在菜单中单击“运行子过程/用户窗体”命令。   

Sub 拆分工作薄()

'创建最终数据文件夹

        Dim dir_name

        dir_name = ThisWorkbook.Path & "\拆分出的表格\"

        If Dir(dir_name, vbDirectory) = "" Then

            MkDir (dir_name)

        End If

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\拆分出的表格\" & sht.Name, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWorkbook.Close

Next

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

End Sub

注意：运行的过程中不要进行其他操作，等待运行完成，完成后会提示“文件已经被拆分完毕”，所有拆分好的工作薄存于源文件路径下的“拆分出的表格”文件夹中。

关注巨盒创意微信公众号，免费学习更多精品教程，高效、便捷办公。