VBS打印指定目录下所有EXCEL的所有SHEET

最新推荐文章于 2023-10-13 13:55:09 发布

allway2

最新推荐文章于 2023-10-13 13:55:09 发布

阅读量944

点赞数

本文链接：https://blog.csdn.net/allway2/article/details/103587033

版权

Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False

folderName = "C:\excelprint\"

Set FSOLibrary = CreateObject("Scripting.FileSystemObject")
Set fldr = FSOLibrary.GetFolder(folderName)

For Each f In fldr.Files
  If Instr(f.Type,"Excel") Then
    Set book = objExcel.Workbooks.Open(f.Path,0,1)
        For Each sh In book.Worksheets
          sh.PrintOut
        Next
    book.Close 0
  End If
Next

objExcel.Quit
Set objExcel = Nothing