VBA 打印为 PDF 并使用自动文件名保存

使用 VBA 编程语言可以实现将 Excel 文件打印为 PDF，并且通过自动文件名保存功能，方便地保存文件。下面将介绍如何使用 VBA 实现这一功能，并附上案例代码。

vba
Sub ExportToPDF()
    Dim ws As Worksheet
    Dim filePath As String
    
    ' 设置保存路径和文件名
    filePath = "C:\Users\UserName\Documents\"
    filePath = filePath & Format(Now(), "yyyy-mm-dd") & ".pdf"
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    
    ' 打印为 PDF
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=filePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
        
    MsgBox "文件已保存为：" & filePath
End Sub

vba
Sub ExportToPDF()
    Dim ws As Worksheet
    Dim filePath As String
    
    ' 设置保存路径和文件名
    filePath = "C:\Users\UserName\Documents\"
    filePath = filePath & Format(Now(), "yyyy-mm-dd") & ".pdf"
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    
    ' 打印为 PDF
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=filePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False
        
    MsgBox "文件已保存为：" & filePath
End Sub