以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  WebBrowser中打开EXCEL表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9017)

--  作者:实话实说
--  发布时间:2011/1/17 15:41:00
--  WebBrowser中打开EXCEL表

如图:点击目录树一级节点后筛选表并在WebBrowser1打开EXCEL表。以下是目录树NodeMouseDoubleClick事件


Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "结构用料\\" & e.Node.Text & ".xls"

 

现在求助的是,如何避免当双击二级目录树节点时(筛选表时需要)对WebBrowser1中的EXCEL表不起作用。请帮我修改上述代码。

 

以上的设计需求是:双击目录树节点,同时操作表和WebBrowser控件。


图片点击可在新窗口打开查看此主题相关图片如下:snap1.bmp
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-1-17 15:42:51编辑过]

--  作者:czy
--  发布时间:2011/1/17 15:59:00
--  

这样行吗?

 

Select Case e.Node.Level
    Case 0
        Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
        brw.Address = ProjectPath & "结构用料\\" & e.Node.Text & ".xls"
End Select


--  作者:实话实说
--  发布时间:2011/1/17 16:05:00
--  
还行,谢谢。
--  作者:实话实说
--  发布时间:2011/1/17 16:09:00
--  
还有,如果我要打开后直接定位到EXCEL工作薄中的表呢?(双击目录树的二级节点)
--  作者:czy
--  发布时间:2011/1/17 16:15:00
--  

Select Case e.Node.Level
    Case 0
        Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
        brw.Address = ProjectPath & "结构用料\\" & e.Node.Text & ".xls"

    Case 1
   执行代码
End Select

 

 

http://help.foxtable.com/topics/1464.htm

 


--  作者:实话实说
--  发布时间:2011/1/17 16:27:00
--  
不好意思,执行代码不会.
--  作者:czy
--  发布时间:2011/1/17 17:15:00
--  

仔细看了一下你的提问,你是想在窗口已经打开的Excel文件中切换工作表,我好象没有好办法。

 


--  作者:实话实说
--  发布时间:2011/1/17 17:35:00
--  

因为表的数据需要EXCEL表参考录入,所以,筛选表的时候(型号)想自动打开相应的表,免得再切换EXCEL工作表。(一个工作薄可能有好多表)有时要打开工作薄定位到表,有时在打开的工作薄中切换EXCEL工作表

[此贴子已经被作者于2011-1-17 17:37:00编辑过]

--  作者:实话实说
--  发布时间:2011/1/18 16:50:00
--  
顶一下
--  作者:狐狸爸爸
--  发布时间:2011/1/18 17:48:00
--  

打开Excel文件,定位到指定的表,应该用vba,可以学习一下:
 
http://help.foxtable.com/topics/2121.htm