Excel批量打印多个文件

丶月色真美 · 发表于 2018-9-13 17:11

小白一个，请教各位大神。这个压缩包是在论坛里找到的，把它解压到需要打印的文档中就可以一键打印所有文档的表1，求大神把它修改成一键可以打印文档中所有EXCEL的所有显示的工作表，不包括隐藏。有人帮帮忙吗？？？

liulang0808 · 发表于 2018-9-13 18:40

Sub 打印指定文件()
Dim iPath$, iName$, Wb As Workbook
iPath = ThisWorkbook.Path & "\"
iName = Dir(iPath & "*.xl*")
On Error Resume Next
Do While iName <> ""
      If iName <> ThisWorkbook.Name Then
         With Workbooks.Open(iPath & iName)
            For Each sh In .Sheets
                  If sh.Visible=true Then sh.PrintOut
            Next sh
            .Close False
         End With
      End If
      iName = Dir
Loop
End Sub

liulang0808 · 发表于 2018-9-13 18:41

没有测试环境，附件未测试，供楼主参考

丶月色真美 · 发表于 2018-9-14 09:06

liulang0808 发表于 2018-9-13 18:41
没有测试环境，附件未测试，供楼主参考

您好文件怎么指定...

丶月色真美 · 发表于 2018-9-14 09:13

liulang0808 发表于 2018-9-13 18:41
没有测试环境，附件未测试，供楼主参考

您好可以不用指定直接打印所在文件夹所有EXCEL中的所有未隐藏表格吗？

liulang0808 · 发表于 2018-9-14 10:02

丶月色真美发表于 2018-9-14 09:13
您好可以不用指定直接打印所在文件夹所有EXCEL中的所有未隐藏表格吗？

If sh.Visible=true Then sh.PrintOut
用来控制，只打印显示的表格啊

		自动登录	找回密码
密码			免费注册

[求助] Excel批量打印多个文件

评分