搬家第44天-citect2018使用citectVBA代码将excel文件导出为PDF文件

citectVBA代码为

Sub ExcelSaveAsPDF()
Dim xlapp As application
Dim objworkbook As Object
Set xlapp=CreateObject("Excel.Application")
xlapp.visible=False
xlApp.Workbooks.Open "D:\TEST.XLS"
xlApp.Worksheets("Sheet1").Activate
Set objworkbook=xlapp.activeworkbook
objworkbook.ExportAsFixedFormat 0,"d:\mypdf.pdf"
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

调用这个函数即可。