主题：Excel文件SaveToPDF出错

SaveToPDF 必须是MS Office 2007 以上才有效，MS Office 2003不支持

 excel的转换，是需要平台支持的。

Dim ExcelToPDF As String = Args(0)    'Args(0) = 窗口名
Dim wbr As WinForm.WebBrowser = Forms(Args(0)).Controls("WebBrowser1")

Dim tm As String = ProjectPath & "Attachments\v_2VW BREST CARAVELLE 2014.xls"
Dim fl As String = ProjectPath & "Reports\v_2VW BREST CARAVELLE 2014.pdf"
Dim Book As New XLS.Book(tm)
try
    Book.SaveToPDF(fl) '保存为PDF文件
    wbr.address = fl
catch ex As exception
    msgbox("出错了")
End try