请excel宏高手给帮个忙!我想要批量打印多个文件夹下的多个 excel工作簿...

发布网友 发布时间：2024-10-22 10:59

我来回答

共3个回答

热心网友 时间：2024-10-25 14:00

Public Sub 批量打印()

'给一个示例代码
    Workbooks.Open ("1工作簿的绝对路径如－－ E:\资料\供电所达标创建资料\ABC.xls")
    Workbooks("ABC").Sheets("A工作表").Select
    Sheets("A工作表").PrintOut Copies:=1, Collate:=True
    Workbooks("ABC").Sheets("B工作表").Select

    Sheets("B工作表").PrintOut Copies:=1, Collate:=True
    .
    .
    .
    Workbooks("ABC").Close
   
    Workbooks.Open ("2工作簿的绝对路径如－－ E:\资料\供电所达标创建资料\EFG.xls")
    Workbooks("EFG").Sheets("A工作表").Select
    Sheets("A工作表").PrintOut Copies:=1, Collate:=True
    Workbooks("EFG").Sheets("B工作表").Select
    Sheets("B工作表").PrintOut Copies:=1, Collate:=True
    .
    .
    .
    Workbooks("EFG").Close
   
    .
    .
    .

End Sub

热心网友 时间：2024-10-25 13:59

我用的都是笨方法，挨个打开工作薄，再挨个打印就成了。
希望能有高手解决你的问题，啊哦，我是来打酱油的。。。。。

热心网友 时间：2024-10-25 14:02

你打印的每个工作簿里的工作表名称相同？还是有其他规律？
如有规律，可写一段给你。
是否要排版，还是直接打？