主题：WebBrowser控件 不能预览Excel报表

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\资料卡.xls"
Dim rpt As String = ProjectPath & "Reports\资料卡.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
wbr.OfficeToolBar = True '如果不需要显示工具栏，可删除此行代码
wbr.AddRess = rpt