Dzwebs.Net

撰写电脑技术杂文十余年

VBA批量打印多个Excel工作薄

Admin | 2013-9-9 10:32:31 | 被阅次数 | 11647

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  要想解决此类问题,我们得先假设你的工作薄文件满足如下的要求,方能批量打印多个工作薄。因为这得使用VBA来完成,不是通过简单办法就能完成的。

  因此,你必须具备一定的VBA基本功,否则,也是无法使用本文提供的功能代码的。

  所需要的条件如下,当然,如果你懂代码,你也可以根据自己的需求自行修改代码。

  条件1:工作薄文件,最好为1.xls,2.xls,3.xls,4.xls……

  条件2:假设如上的工作薄文件,都必须存放在某个目录里面,比如,在C盘下面的名为“大众计算机”这样的文件夹中。

  然后,在C盘下名为 大众计算机  的文件夹下,打开一个空白的EXCEL,按 ALT + F11,粘贴下列代码,之后按F5运行宏即可。

  具体的功能代码如下:

  Dim i As Integer
  i = i + 1
  For i = 1 To 9
  Workbooks.Open Filename:="C:\大众计算机\" & i & ".xls"
  If i > 0 Then
       Dim k As Integer
       k = k + 1
       For k = 1 To 3
        If k > 0 Then
         Sheets(k).Select
         Activesheets.PrintOut
         End If
         Next k
         ActiveWindow.Close
  End If
  Next i

  上述的代码,具体功能是,将C:\大众计算机\这个目录下面的9个工作薄都进行打印,而打印的时候,每个工作薄只打印前面三个工作表。

  因此,你可以在这些地方稍作修改。

  For i = 1 To 9,这里控制打印的工作薄数量,此为9,如果你的少了或更多,请修改这个9为你的工作薄数量。

  其次,For k = 1 To 3,这里控制打印每个工作薄的时候,只打印前面三个工作表,如果你的每个工作薄的工作表数据更多或更少,请修改此处数字为你需要的数字即可。


该杂文来自: Excel杂文

上一篇:excel转文本文档

下一篇:Excel处理不同价格与期限之间的转换

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计