- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- WebBrowser显示EXCEL模板按例子做，不显示！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17702)
-- 发布时间：2012/3/21 16:43:00
-- WebBrowser显示EXCEL模板按例子做，不显示！
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也没有在控件中看到！如何解决？
-- 发布时间：2012/3/21 23:33:00
--
你说的那个事件中的代码：
Dim tmp As String = ProjectPath & "Attachments\\调票mb.xls"
Dim rpt As String = ProjectPath & "Reports\\调票prnt.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编辑过]
-- 发布时间：2013/5/10 17:57:00
--
以下是引用mr725在2012-3-21 23:33:00的发言：
版主能不能做个打开word文档的例子啊，这段代码感觉和word代码相去甚远啊，没法修改。谢谢啦。
你说的那个事件中的代码：
Dim tmp As String = ProjectPath & "Attachments\\调票mb.xls"
Dim rpt As String = ProjectPath & "Reports\\调票prnt.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编辑过]