大众计算机学习网

专门提供各种电脑教程

把每个工作表分别单独保存为一个工作薄的VBA代码

Admin | 2009-10-28 21:26:39 | 被阅次数 | 11230

  本文,给您讲解一下,如何使用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……依此类推!