以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  打开报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66941)

--  作者：bagabaga --  发布时间：2015/4/16 12:10:00 --  打开报表 以下代码显示Excel工作表 Dim wbr As WinForm.WebBrowser = forms("材料").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 执行后，再次打开这个文件，会提示同名的excel文件已打开而出错 请教怎样用代码先关闭打开的文件，再次打开

--  作者：狐狸爸爸 --  发布时间：2015/4/16 12:19:00 --   wbr.address = ""