如何将Excel文件中的多张工作表拆分成多个单独的Excel文件进行保存？
1. 新建一个保存Excel的文件夹用于存放拆分出来的Excel文件。
2. 如图，在Excel文件中有多张工作表。
3. 打开Visual Basic，添加模块和过程，称之为“拆分工作表”。
Sub 拆分工作表()
End Sub
4. 添加一个for each循环，因为要将每个工作表都复制一次。
Sub 拆分工作表()
Dim sht As Worksheet
For Each sht In Sheets
Next
End Sub
1）Dim sht As Worksheet：定义变量sht为工作表；
2）For Each sht In Sheets：所有表中的每张sht工作表都循环一次；
3）Next：结束循环。
5. 用工作表加Copy，后面不加任何参数，可以复制工作表为新的Excel文件。
Sub 拆分工作表()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
Next
End Sub
6. 上一步中复制出来的Excel新文件另存到我们指定的文件夹下。
Sub 拆分工作表()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:="D:\test\" & sht.Name & ".xlsx"
Next
End Sub
7. 保存之后再关闭新建的文件。
Sub 拆分工作表()
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:="D:\test\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
8. 执行以上代码后，就可在test文件夹下生成多个文件，其内容分别对应“A班”、“B班”、“C班”这三种工作表中的数据。
