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