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