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