将Excel和PowerPoint转换为PDF的类似VBScript

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\excel_file.xlsx")
' 将Excel文件保存为PDF
objWorkbook.ExportAsFixedFormat 0, "C:\path\to\output.pdf", 0
' 关闭Excel文件
objWorkbook.Close
' 退出Excel应用程序
objExcel.Quit

' 创建PowerPoint对象
Set objPowerPoint = CreateObject("PowerPoint.Application")
' 打开PowerPoint文件
Set objPresentation = objPowerPoint.Presentations.Open("C:\path\to\powerpoint_file.pptx")
' 将PowerPoint文件保存为PDF
objPresentation.ExportAsFixedFormat "C:\path\to\output.pdf", 2 ' ppFixedFormatTypePDF = 2
' 关闭PowerPoint文件
objPresentation.Close
' 退出PowerPoint应用程序
objPowerPoint.Quit