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:\元坝子\五\'位置。 |
|
来自: Excel实用知识 > 《VBA与EXCEL》