主题：[求助]目录树切换excel中的sheet

打开窗口后：

Dim s As String ="C:\Users\Administrator\Desktop\book6.xls"
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = s
wbr.OfficeToolBar = True

双击节点后：

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim Name As String =tr.SelectedNode.Name
Dim s As String ="C:\Users\Administrator\Desktop\book6.xls"
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(s)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(Name)
Ws.Select
Wb.Save
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = s

请高手指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:book6.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar