同一文件夹下的所有Excel文件

张义聃

同一文件夹下的所有Excel文件，在不需要逐项打开的情况下，批量打印每个Excel文件下的Sheet1到Sheet6表格到PDF,每个Excel文件6个工作表合并成成一个pdf。

张义聃

附件在这。。。

张义聃

朱荣兴 发表于 2019-11-18 09:45
没有附件，什么都是白搭，请上传你的附件

大神    附件上来了    在下面

张义聃

朱荣兴 发表于 2019-11-18 15:35
一个文件中的多个工作表保存为一个pdf文件，至于批量，加个循环即可，自己琢磨一下吧
Sub pdf文件()
     ...

Sub pdf文件()
     f = Dir(p & "*.xls")           '提取目录 指定文件类型为xls
    Do While f <> ""    '如果 文件 F <> ""
        If f <> ThisWorkbook.Name Then  'f<>当前工作薄名
            Workbooks.Open (p & f)      '打开f
            For Each sh In ActiveWorkbook.Sheets    '循环所有工作表
                             Next sh
            Workbooks(f).Close False    '闭卷当前 f 工作薄,false=不保存
        End If
     f = Dir    '提取一下文件名
        Loop
    '循环完以后开始打印 当前工作薄
         Sheets(Array("附件1-1明细表", "附件1-2明细表", "附件2变化表", "附件3拐点表", "附件4照片", "附件5审核表", "附件6审查表")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name & " .pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub


大神我加这个循环无效怎么回事   只能打印一个表    帮忙看一下

约定的童话

循环来了...