按钮的鼠标点击脚本

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