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

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:\元坝子\五\'位置。