通过Access中的VBA将XLTX文件转换为PDF_Vba_Ms Access

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

vba ms-access

通过Access中的VBA将XLTX文件转换为PDF,vba,ms-access,Vba,Ms Access,我基本上需要在共享驱动器上的Excel文件上使用VBA将其另存为Access数据库中的PDF格式。目前，对于用户生成的每个excel文件，用户必须每天数百次转到文件->另存为Adobe PDF 数据首先从Access导出到Excel模板，这是生成Excel文件的方式。从这里开始，在制作Excel之后，我想在这里执行“另存为”。这是我在项目中使用的： Set oExcel = GetObject(, "Excel.Application") With oExcel .Workbooks.O

我基本上需要在共享驱动器上的Excel文件上使用VBA将其另存为Access数据库中的PDF格式。目前，对于用户生成的每个excel文件，用户必须每天数百次转到文件->另存为Adobe PDF

数据首先从Access导出到Excel模板，这是生成Excel文件的方式。从这里开始，在制作Excel之后，我想在这里执行“另存为”。

这是我在项目中使用的：

Set oExcel = GetObject(, "Excel.Application")
With oExcel
    .Workbooks.Open "C:\MyExcel.xlsx", UpdateLinks:=0
    .ScreenUpdating = False
    .Visible = False   
    .DisplayAlerts = False
    .ErrorCheckingOptions.BackgroundChecking = False
End With
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:="C:\MyPDFFile.pdf"

ExportAsFixedFormat内置Access功能。

显示创建Excel文件所需的代码。