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