同一文件夹下多个Excel文件所有Sheet1批量打印

aiVba

1.目的：同一文件夹下的所有Excel文件，在不需要逐项打开的情况下，批量打印每个Excel文件下的Sheet1表格。
2.VBA代码：
  Public Sub printAll()

    Dim file$, folder$, wb As Workbook  
    folder = "C:\Users\Desktop\print"    ，文件路径
    file = Dir(folder & "*.xlsx")

    Do While file <> ""
        Set wb = GetObject(folder & file)
        wb.Worksheets("sheet1").PrintOut
        wb.Close
        file = Dir
    Loop

End Sub
3.问题：VBA执行无反应，请大神帮忙看看，谢谢！

山菊花

路径后面少个斜杠：
folder = "C:\Users\Desktop\print\"   

aiVba

山菊花 发表于 2019-1-16 15:04
路径后面少个斜杠：
folder = "C:%users\Desktop\print\"

谢谢啦~~~~~~~~~~

jazzing052855

aiVba 发表于 2019-1-16 15:42
谢谢啦~~~~~~~~~~

我在这个打印的目录下新建excel文件，然后在里面输入这些代码都没反应，是什么问题？

jazzing052855

Public Sub printAll()

    Dim file$, folder$, wb As Workbook
    folder = "C:\Users\Desktop\202006\print\"
    file = Dir(folder & "*.xls")

    Do While file <> ""
        Set wb = GetObject(folder & file)
        wb.Worksheets("工资").PrintOut
        wb.Close
        file = Dir
    Loop

End Sub



我在这个打印的目录下新建excel文件，然后在里面输入这些代码都没反应，是什么问题？

phb5210

我是个小白，想问下这个VBA代码，怎么写的，谢谢啊