三秒钟由多个工作表自动生成多个工作簿文件

1、 建立工作簿文件存放文件夹在计算机D盘创建一个空文件夹“chengjibiao”，用于存放生成的多个工作簿文件。

2、 启动VBA语言编辑窗口。选择“开发工具”菜单，单击“Visual Basic”命令按钮，打开“VBA编辑窗口”。

3、在VBA编辑窗口中的“工程”栏下任意打开鼠标右键快捷菜单，依次选择单击“插入”——“模块”菜单命令，进入到VBA编辑状态。

4、 编辑VBA程序语言语句

5、Sub fczgb()'分拆工作表Dim sht As WorksheetFor Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs Filename:="d:\chengjibiao\" & sht.Name & ".xlsx" ActiveWorkbook.CloseNextEnd Sub

6、单击VBA编辑窗口的“运行”命令，瞬间原来的8个工作表生成为8个以原来的工作表名字为文件名的工作簿。每个工作簿中分别存放着每个班级的成绩。

7、 VBA程序语句的理解（1）SubEnd sub先VBA程序语句的框架。（2）dim sht as worksheetFor each sht in sheetsnext为变量“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关闭当前工作簿，进行下一轮循环操作，直到完成对所有工作表进行复制、重命名、保存操作。