我基本上需要使用VBA在共享驱动器上的Excel文件上将另存为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函数中。