利用VBA将表格保存为PDF文件
表格保存为PDF函数代码
表格保存为PDF
在VBA编程处理数据时，经常会需要将处理完成的数据或是报表保存输出为PDF文件，以便进行传播。下面的函数即可以实现将指定表的内容保存为PDF文件。 保存文件前，需要确认表格内容已经是排版完成的内容，此函数没有排版的功能，具体请大家自行测试。
函数代码
Function
SaveAsPDF(Optional FlName As String
= "当前文件名")
On Error GoTo err
If FlName
= "当前文件名" Then
FlName
= ActiveWorkbook
.FullName
FlName
= Left(FlName
, InStrRev(FlName
, ".")) & "PDF"
End If
If
Dir(FlName
) <> "" Then
If
MsgBox("此文件已存在！是否要覆盖保存？", vbCritical
+ vbYesNo
, "校验文件是否存在") <> vbYes Then SaveAsPDF
= False
: Exit Function
End If
ActiveSheet
.ExportAsFixedFormat Type
:=xlTypePDF
, Filename
:=FlName
, Quality
:=xlQualityStandard
, IncludeDocProperties
:=True
, IgnorePrintAreas
:=False
, OpenAfterPublish
:=True
SaveAsPDF
= True
Exit Function
err
:
SaveAsPDF
= err
.Number
& "_" & err
.Description
End Function
——专注办公软件的二次开发及培训，你有问题，我有思路！ ——微博、微信、同号：w_dexu。 ——转载请注明出处！ 扫码加微信
