本文，给您讲解一下，如何使用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……依此类推！
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
