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

VBA批量打印多个Excel工作薄

Admin | 2013-9-9 10:32:31 | ReadNums | 5664 | 标签 六合开奖结果现场直播 | 打印本页
     

  要想解决此类问题,我们得先假设你的工作薄文件满足如下的要求,方能批量打印多个工作薄。因为这得使用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,这里控制打印每个工作薄的时候,只打印前面三个工作表,如果你的每个工作薄的工作表数据更多或更少,请修改此处数字为你需要的数字即可。


问题未解决:在线咨询

网友评论

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