分享

EXCEL打印指定文件下所有文件的VBA代码

 Excel实用知识 2021-05-25

EXCEL批量打印指定文件夹下所有文件的VBA

代码

如想打印G盘下“元坝子”下“五”下所有文件:

Sub Printer()

Application.ScreenUpdating = False

With Application.FileSearch

.LookIn = 'G:\元坝子\五\' '这里是所要指定打印文件的位置,根据自己要打印文件的位置改变'G:\元坝子\五\'位置。

.FileType = msoFileTypeExcelWorkbooks

.SearchSubFolders = True

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)

Worksheets(1).PrintOut

ActiveWorkbook.Close savechanges:=False

Next i

Else

MsgBox 'Excel files not found.'

End If

End With

Application.ScreenUpdating = True

End Sub

代码: .LookIn = 'G:\元坝子\五\' '这里是所要指定打印文件的位置,根据自己要打印文件的位置改变'G:\元坝子\五\'位置。

可根据自己文件位置而改变的,如可改成:.LookIn = 'E:\新文件夹1\' '这里是所要指定打印文件的位置,根据自己要打印文件的位置改变'G:\元坝子\五\'位置。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多