主题：请教目录树代码

这样行不行？

将excel文件放到项目文件同一目录下（也可以建一个专用文件夹）
然后在窗口中插入一个ComboBox控件，比如名称为：ComboBox1
窗口：AfterLoad事件代码：

Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath)
    if File.Contains("xls") Then
        s = s & "|" & File
    End If
Next
e.Form.Controls("ComboBox1").ComboList = s

再增加一个打开按钮，代码：

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = e.Form.Controls("ComboBox1").Value

说明一下，楼上的代码是将excel放在项目目录。
如果放在其它目录自己改一下代码。
比如你在项目目录下建了个excel文件夹
For Each File As String In FileSys.GetFiles(ProjectPath)
将上面的代码改成：

For Each File As String In FileSys.GetFiles(ProjectPath & "excel\")

放在目录树中，没看出你文件的规律，如果路径是确定的，可以在NodeMouseDoubleClick事件中设置如下代码：

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

'窗口AfterLoad事件代码

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim s As String
For Each File As String In FileSys.GetFiles(ProjectPath & "excel\")
    if File.Contains("xls") Then
        s = FileSys.GetName(File).Replace(".xls","")
        tv.Nodes.Add(s,s)
    End If
Next

'目录树NodeMouseDoubleClick事件代码(也就是双击事件)

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "excel-:special:1:- & e.Node.Text & ".xls"

Word在WebBrowser中显示我还没学会。

上面的目录树双击代码乱码了，再发一次。

'目录树NodeMouseDoubleClick事件代码(也就是双击事件)

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

都做成这样了，你套用一下总行吧。