本文，给您讲解一下，如何使用VBA代码，将打开的一个工作薄中的每一个工作表，单独保存成为一个工作薄！
此功能代码的适用范围：当您的工作表相当多，比如有一百张；那么，要将这些工作表，单独保存成为工作薄，使用此代码，相当效益。
①实现方法
最好添加一个按钮控件，如下图！
然后，双击那按钮，进入到代码编写模式，之后，照着下图直接输入代码即可。此代码是通用代码，不管您的工作表使用什么名字，有多少张工作表，均会自动检测。
代码输入好之后，保存您的工作薄，关闭VBA代码窗口，关闭工作薄，之后再打开工作薄，双击那按钮，就完成每个工作表的单独保存了。
看上图，这是示例图，分别保存为如上三个工作薄。
②代码解释
For i = 1 To Worksheets.Count
Worksheets(i).SaveAs ("D:\工作薄" & i & ".xls")
Next i
第一行和第三行是循环语句体，从第一个工作表开始保存，一直保存到最后一张工作表。Worksheets.Count此代码含义是：统计工作薄中有多少个工作表。
Worksheets(i).SaveAs ("D:\工作薄" & i & ".xls")，代码含义是：分别保存每张工作表，保存到D:\盘，生成的工作薄名称分别是：工作薄1.xls，工作薄2.xls，工作薄3.xls……依此类推！