Excel自动将多个Sheet拆分成多个文件

1、现有文件有3个Sheet

2、找到任意的一个工作簿，鼠标右键点击找到查看代码

3、查看之后会显示空白，没有代码

4、这时我们在下面输入下列代码

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

5、然后点击上方运行，运行子窗口/用户窗体

6、程序执行，显示文件已经被拆分完毕

7、会看到此文件夹下会多了三个Excel文件，分别为8、9、10月，也就是你的Sheet的名字