vba转换excel为pdf

在VBA（Visual Basic for Applications）中，可以使用一些第三方库或者内置功能将Excel工作簿转换为PDF文件。这里提供一种基本的方法，使用AdoObject库中的ADODB.Stream对象：

Sub ExcelToPDF()
    Dim objExcel As Object ' 定义Excel应用对象
    Dim objWorkbook As Object ' 工作簿对象
    Dim objPDF As Object ' PDF生成对象
    Dim strFilePath As String ' PDF保存路径
    
    ' 创建Excel对象实例
    Set objExcel = CreateObject("Excel.Application")
    
    ' 打开需要转换的工作簿
    Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\file.xlsx") ' 替换为你实际的文件路径
    
    ' 创建PDF生成对象
    Set objPDF = CreateObject("AcroExch.PDFDoc")

    ' 将工作簿内容导出到PDF流中
    Dim rng As Range
    For Each rng In objWorkbook.Worksheets(1).UsedRange ' 假设只转换第1个工作表
        objPDF.AddPage
        objPDF.WriteHTML rng.Value, False ' 写入范围内容，第二个参数设为False表示不写入样式
    Next rng

    ' 将PDF流保存为文件
    strFilePath = "C:\path\to\save\output.pdf" ' 替换为你的保存路径
    With objPDF
        .SaveCopy strFilePath, True ' 第二个参数设为True表示以二进制模式保存
        .Close
    End With

    ' 关闭Excel工作簿和应用程序
    objWorkbook.Close SaveChanges:=False
    objExcel.Quit

    ' 清理对象释放内存
    Set objPDF = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub