如何批量打印一个文件夹下的所有EXCEL文件

发布网友发布时间：2022-03-08 06:19

共3个回答

热心网友时间：2022-03-08 07:48

可以使用dos命令dir生成文件列表到excel后做筛选，确定需要删除的文件名，再编辑生成含del的dos命令的批处理文件。把此文件复制到该文件夹下，执行即可。

热心网友时间：2022-03-08 09:06

Sub Print_All_Excel()
On Error Resume Next
Dim my_Doc As String
Dim my_File As String

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
my_Doc = .SelectedItems(1)
End With

my_File = Dir(my_Doc & "\" & "*.xls*")
Do While Len(my_File) <> 0
Workbooks.Open (my_Doc & "\" & my_File)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWorkbook.Close
my_File = Dir
Loop

End Sub

追答试试代码即知，可批量打印。

热心网友时间：2022-03-08 10:41

文件夹下的EXCEL文件不开是不能打印的，你问的是不是一个EXCEL文件里面的多个工作薄，按住CTRL选中工作薄再打印就可以了。