ExcelVBA把当前工作表导出为PDF文档_excel vba 存 pdf

我们先问问Kimi

综上，我们还是利用ExcelVBA的方法是最好的方法：

也可以后期制作在VSTO插件中

下面是完成的代码

功能：

1.代码自动检测是否存在打印区域，若有，导出打印区域，若无，导出整表

2.导出的文件保存在原文件的根目录中，命名为：原文件_out.pdf

Sub ExportActiveSheetToPDF()
    Dim ws As Worksheet
    ' 指定要导出的工作表，这里假设是要导出活动工作表
    Set ws = ActiveSheet
    ' 获取并设置PDF文件名
    Dim filePath As String
    filePath = ThisWorkbook.path & "\" & ws.Name & "_out.pdf"
    ' 使用工作表的PrintArea属性获取打印区域
    With ws
        .pageSetup.CenterFooter = "第 &P 页 / 共 &N 页"
        If .pageSetup.printArea <> "" Then
            ' 如果设置了打印区域，则导出该区域
            .ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=filePath, _
                    OpenAfterPublish:=False, _
                    IgnorePrintAreas:=False
        Else
            ' 如果未设置打印区域，则导出整个工作表
            .ExportAsFixedFormat Type:=xlTypePDF, _
                    Filename:=filePath, _
                    OpenAfterPublish:=False
        End If
    End With
    MsgBox "PDF已成功创建并保存到：" & filePath
End Sub