搬家第44天-Wincc使用VBS脚本将excel导出为PDF文件脚本

按钮的鼠标点击脚本

Sub OnClick(ByVal Item)                    
Dim xlapp,objworkbook
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