Foxtable(狐表) → 用户栏目 → 专家坐堂 → WebBrowser显示EXCEL模板按例子做，不显示！


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

主题：WebBrowser显示EXCEL模板按例子做，不显示！
帅哥哟，离线，有人找我吗？
pb_1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：74 积分：683 威望：0 精华：0 注册：2011/10/24 19:38:00 		WebBrowser显示EXCEL模板按例子做，不显示！  发帖心情 Post By：2012/3/21 16:43:00 [只看该作者]

WIN2003系统，OFFICE2003，运行了Office.reg文件

这是系统的例子

在窗口中加入一个WebBrowser控件和Button控件，窗口的AfterLoad事件代码设置为：

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)
e.Form.Controls("WebBrowser1").AddRess = rpt

 

我只是将这段代码放在了NodeMouseDoubleClick事件中，运行后即没有在IE中看到EXCEL也没有在控件中看到！如何解决？

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2012/3/21 23:33:00 [只看该作者]

你说的那个事件中的代码：

 

Dim tmp As String = ProjectPath & "Attachments\调piaomb.xls"
Dim rpt As String = ProjectPath & "Reports\调piaoprnt.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
Forms("窗口7").open()
Forms("窗口7").Controls("WebBrowser1").AddRess = rpt

 


图片点击可在新窗口打开查看此主题相关图片如下：exbr.gif
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-3-21 23:33:54编辑过]
 回到顶部
帅哥，在线噢！
bahamute
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1427 积分：11354 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2013/5/10 17:57:00 [只看该作者]

以下是引用mr725在2012-3-21 23:33:00的发言：

你说的那个事件中的代码：

 

Dim tmp As String = ProjectPath & "Attachments\调piaomb.xls"
Dim rpt As String = ProjectPath & "Reports\调piaoprnt.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
Forms("窗口7").open()
Forms("窗口7").Controls("WebBrowser1").AddRess = rpt

 


图片点击可在新窗口打开查看此主题相关图片如下：exbr.gif
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-3-21 23:33:54编辑过]


版主能不能做个打开word文档的例子啊，这段代码感觉和word代码相去甚远啊，没法修改。谢谢啦。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询