1、 建立工作簿文件存放文件夹
在计算机D盘创建一个空文件夹“chengjibiao”，用于存放生成的多个工作簿文件。
2、 启动VBA语言编辑窗口。
选择“开发工具”菜单，单击“Visual Basic”命令按钮，打开“VBA编辑窗口”。
3、在VBA编辑窗口中的“工程”栏下任意打开鼠标右键快捷菜畜耕鬼单，依次选择单击“插入”——“模块”菜单命令，进入到VBA编辑状态。
4、 编辑VBA程序语言语句
5、Sub fczgb()'分拆工作表
Dim sht As Worksheet
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:="d:\chengjibiao\" & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
6、单击VBA编辑窗口的“运行”命令，瞬间原来的8个工作表生成为侨铲8个以原来的工作表名字为文件名的工作簿。每个工作簿中分别存放着每个班级的成绩。
7、 VBA程序语句的理解
（1）Sub
End sub
先VBA程序语句的框架。
（2）dim sht as worksheet
For each sht in sheets
next
为变量“sht”定义为”Worksheet”类型，并设定为在所有工作表（Sheets）中进行循环。
For与Next语句成对配合使愁哨用。
(3)sht.Copy
对工作表（sht）进行复制操作
(4) ActiveWorkbook.SaveAs Filename:="d:\chengjibiao\" & sht.Name & ".xlsx"
把刚刚复制产生的工作簿进行”另存为”(SaveAs)操作，保存位置是"d:\chengjibiao\"，文件名是原工作表的表名（sht.Name）.xlsx
（5）ActiveWorkbook.Close
关闭当前工作簿，进行下一轮循环操作，直到完成对所有工作表进行复制、重命名、保存操作。
