六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

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

Admin | 2009-10-28 21:26:39 | ReadNums | 10559 | 标签 六合开奖结果现场直播 | 打印本页
     

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日