vba批量把excel转pdf

可以使用VBA编写一个宏来批量把Excel文件转为PDF文件。以下是一个简单的示例：

Sub ExcelToPDF()
    Dim folderPath As String
    Dim fileName As String
    Dim objExcel As Object
    Dim objWorkbook As Object

    '设置文件夹路径
    folderPath = "C:\ExcelFiles\"

    '打开Excel应用程序
    Set objExcel = CreateObject("Excel.Application")

    '禁用屏幕更新
    objExcel.ScreenUpdating = False

    '循环遍历文件夹下的所有Excel文件
    fileName = Dir(folderPath & "*.xls*")
    Do While fileName <> ""
        '打开Excel文件
        Set objWorkbook = objExcel.Workbooks.Open(folderPath & fileName)

        '保存为PDF格式
        objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            folderPath & Replace(fileName, ".xlsx", ".pdf"), Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        '关闭Excel文件
        objWorkbook.Close False

        '获取下一个文件名
        fileName = Dir
    Loop

    '关闭Excel应用程序
    objExcel.Quit

    '释放对象
    Set objWorkbook = Nothing
    Set objExcel = Nothing

    '启用屏幕更新
    Application.ScreenUpdating = True

    '提示转换完成
    MsgBox "转换完成！"
End Sub

在上述代码中，需要将文件夹路径设置为您要转换的Excel文件所在的文件夹路径。该代码会遍历该文件夹下的所有Excel文件，并将它们转换为PDF格式保存在同一文件夹中。