VBA代码段 按表批量导出为PDF，适合分表后发送用

etkane

[Visual Basic] 纯文本查看 复制代码

按单元表导出到pdf

Sub 宏4()


For Each biao In Sheets
    biao.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\bican\Desktop\20200701观澜府楼上检查问题追加\" & biao.Name & "1" & ".pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next

End Sub

眼里有星河

没看懂，但是觉得很厉害

bsjasd

收藏备用

pizazzboy

这个厉害了，谢谢分享。

ximen_qing

多谢楼主！实操成功！根据我的电脑代码微调如下：

Sub 按单元表导出到pdf()

For Each biao In Sheets
    biao.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\User Name\Desktop\20200701" & biao.Name & "1" & ".pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next

End Sub

yuyuy

好厉害，收藏备用

阿山哥

可以，收藏备用