作者greymatter (grey)
看板Visual_Basic
标题[VB6 ] 求救! 将TreeView的树状结构输出至Excel
时间Fri Feb 20 17:16:45 2009
想请问各位高手
我想要从将treeview的树状结构(包含阶层关系及节点文字)输出至excel
假设树状结构的父阶层可以分成A及B两种
那我使用的方式为
Dim n As Integer
For n = 1 To TreeView1.Nodes.Count
'如果父阶层为A
If InStr(TreeView1.Nodes(n).Text, "A") > 0 Then
xlApp.Worksheets(1).Cells(n, 1).Value = TreeView1.Nodes(n).Text
'如果父阶层为B
ElseIf InStr(TreeView1.Nodes(n).Text, "B") > 0 The
xlApp.Worksheets(1).Cells(n, 1).Value = TreeView1.Nodes(n).Text
'如果子节点的父阶层为A
ElseIf InStr(TreeView1.Nodes(n).Parent, "A") > 0 Then
xlApp.Worksheets(1).Cells(n, 2).Value = TreeView1.Nodes(n).Text
'如果子节点的父阶层为B
ElseIf InStr(TreeView1.Nodes(n).Parent, "B") > 0 Then
xlApp.Worksheets(1).Cells(n, 2).Value = TreeView1.Nodes(n).Text
Next
输出至Excel的阶层如下
A
A1
B
B1
但现在问题来了，如果我欲在treeview的节点A下新增A2，A1会跑到B的节点下，
而不会在A的节点下，如下
A
A1
B
B1
A2
有高手可以解决此问题吗?
或是有甚麽更好的方法可以把treeview的树状结构读到excel里，谢谢!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.229.7
1F：→ MOONRAKER:这样看不出来，请你trace一下程式中针对A2看到的text和 02/21 08:36
2F：→ MOONRAKER:parent内容为何 02/21 08:36
3F：→ greymatter:A2是个代称，代表treeview上的节点文字，它的parent是A 02/21 08:49
4F：→ greymatter:另外想请教将treeview的结构及节点文字输出到excel的好 02/21 08:50
5F：→ greymatter:方法，谢谢!! 02/21 08:50
6F：→ MOONRAKER:不是问你打算给什麽，是请你实际写debug.print去trace 02/21 09:29
7F：→ MOONRAKER:因为你程式的问题大概在执行中才能看出来 02/21 09:30