网站 › 『编程语言区』 › VBA代码段 按表批量导出为PDF，适合分表后发送用

etkane 发表于 2020-7-1 21:39

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

按单元表导出到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

眼里有星河 发表于 2020-7-1 22:01

没看懂，但是觉得很厉害

bsjasd 发表于 2020-7-1 22:25

收藏备用

pizazzboy 发表于 2020-7-1 22:29

这个厉害了，谢谢分享。

ximen_qing 发表于 2020-7-2 00:09

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

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 发表于 2020-7-2 05:41

好厉害，收藏备用

阿山哥 发表于 2020-7-4 10:53

可以，收藏备用

查看完整版本: VBA代码段 按表批量导出为PDF，适合分表后发送用