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

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

关闭当前工作簿，进行下一轮循环操作，直到完成对所有工作表进行复制、重命名、保存操作。