Foxtable(狐表)用户栏目专家坐堂 → 用WebBrowser打开一个EXCEL预览后再打开其他EXCEL的问题


  共有2268人关注过本帖树形打印复制链接

主题:用WebBrowser打开一个EXCEL预览后再打开其他EXCEL的问题

帅哥哟,离线,有人找我吗?
1669607010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
用WebBrowser打开一个EXCEL预览后再打开其他EXCEL的问题  发帖心情 Post By:2021/9/1 9:22:00 [只看该作者]

用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



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106731 积分:542850 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/1 9:40:00 [只看该作者]

试试
……
Book.Save(rpt)
wbr.AddRess = nothing
Application.DoEvents()
wbr
.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
wbr
.AddRess = rpt

 回到顶部
帅哥哟,离线,有人找我吗?
1669607010
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2021/9/1 10:02:00 [只看该作者]

还是和以前一样

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106731 积分:542850 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/1 10:14:00 [只看该作者]

那就没有办法了。试试换个不同版本的office安装试试,要安装完整版的

 回到顶部