在Access中通过VBA将XLTX文件转换为PDF

Sub ConvertXLTXtoPDF()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlSheet As Object
    Dim xlFile As String
    Dim pdfFile As String
    
    ' 设置XLTX文件路径
    xlFile = "路径\文件名.xltx"
    
    ' 设置PDF文件保存路径
    pdfFile = "路径\文件名.pdf"
    
    ' 创建Excel对象
    Set xlApp = CreateObject("Excel.Application")
    
    ' 隐藏Excel界面
    xlApp.Visible = False
    
    ' 打开XLTX文件
    Set xlWorkbook = xlApp.Workbooks.Open(xlFile)
    
    ' 选择第一个Sheet
    Set xlSheet = xlWorkbook.Sheets(1)
    
    ' 将Sheet另存为PDF格式
    xlSheet.ExportAsFixedFormat Type:=0, Filename:=pdfFile, Quality:=0, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' 关闭工作簿并退出Excel
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    MsgBox "转换成功！"
End Sub