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的名字