利用VBA将表格保存为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

——专注办公软件的二次开发及培训，你有问题，我有思路！
——微博、微信、CSDN同号：w_dexu。
——转载请注明出处！
扫码加微信