以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  用WebBrowser打开一个EXCEL预览后再打开其他EXCEL的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171493)
--  作者：1669607010
--  发布时间：2021/9/1 9:22:00
--  用WebBrowser打开一个EXCEL预览后再打开其他EXCEL的问题

用WebBrowser打开一个EXCEL预览后，再打开其他EXCEL时新打开的EXCEL就成了在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
--  作者：有点蓝
--  发布时间：2021/9/1 9:40:00
--  
试试
……
Book.Save(rpt)
wbr.AddRess = nothing
Application.DoEvents()
wbr.OfficeToolBar = True \'如果不需要显示工具栏，可删除此行代码
wbr.AddRess = rpt
--  作者：1669607010
--  发布时间：2021/9/1 10:02:00
--  
还是和以前一样
--  作者：有点蓝
--  发布时间：2021/9/1 10:14:00
--  
那就没有办法了。试试换个不同版本的office安装试试，要安装完整版的