遍历选中的节点参考:
http://www.foxtable.com/webhelp/topics/2302.htm
For Each nd As WinForm.TreeNode In e.Node.AllNodes
if nd.Checked and nd.nodes.count = 0 then
Dim Book As New XLS.Book(ProjectPath & "Attachments\" & nd.text & ".xls")
Dim fl As String = ProjectPath & "Reports\" & nd.text & ".xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
endif
Next