Excel VBA 拆分工作簿

在Excel中，由于每个工作簿可以包含多张工作表,因此可在一个文件中管理多种类型的相关信息。 

但是有的时候，我们需要拆分这些工作表作为一个新的工作簿中的工作表。下面我们用VBA来完成此操作。

作者：Excel小子-Office中国

Excel vba 实现拆分工作簿动画效果：

如上图，在工作表中创建一个椭圆图形，指定相关的宏代码。点击“拆分”按钮后。选择需要拆分的Excel文件。系统会自动在当前文件夹下把选中的工作簿拆分为多个独立的工作簿。

Excel vba 实现拆分工作簿的主要代码：

然后在工作表代码中

    Sub test3() '打开文件

    Dim dig

    Dim wk As Workbook

    Dim sh As Worksheet

    Dim wb As Workbook

    Set dig = Application.FileDialog(msoFileDialogOpen)

    With dig

    .AllowMultiSelect = True

    .Filters.Add "Excel文件", "*.xls*", 1

    .InitialFileName = "D:\"

    .Title = "对话框测试"

    If .Show = 0 Then             '判断是否点了取消

    Exit Sub

    Else

    .Execute                   '执行打开命令

    Set wk = ActiveWorkbook

    For Each sh In wk.Worksheets

        Set wb = Workbooks.Add

        sh.Copy before:=wb.Worksheets(1)

        wb.SaveAs Replace(ThisWorkbook.FullName, ThisWorkbook.Name, sh.Name)

        wb.Close True

    Next sh

    wk.Close False

    End If

    End With

    End Sub