如何运用VBA把EXCEL批量打印同一个文件夹内的所有文件打印指定的工作表

Question

文件夹里面有几十个EXCEL文件，每个文件里面有很多个工作表，我只需要打印其中“施工记录”、“施工记录 (2)”和“施工记录 (3)”三个工作表如何使用VBA来实现，求大神指点，谢谢

Answer 1

代码：

sub 宏1()
    dim p,n,st as worksheet
    p="c:\" '文件所在位置，你可能需要修改，没必须是\
    n=dir(p & "&.xls*")
    do while n<>""
        with workbooks.open(p & n)
            for each st in .sheets
                if st.name="施工记录" or st.name="施工记录 (2)" or st.name="施工记录 (3)" then st.printout
            next st
            .close
        end with
        n=dir
    loop
end sub追问

大神，这样弄完之后，点击运行没有反应，是不是哪里错了



追答

请按F8，看看程序是否执行了，还是没有找到文件，还是文件中没有需要打印的表。