[VB6 ] 求救! 將TreeView的樹狀結構輸出至Excel

[greymatter (grey)]

想請問各位高手

我想要從將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
→ MOONRAKER:這樣看不出來，請你trace一下程式中針對A2看到的text和
→ MOONRAKER:parent內容為何
→ greymatter:A2是個代稱，代表treeview上的節點文字，它的parent是A
→ greymatter:另外想請教將treeview的結構及節點文字輸出到excel的好
→ greymatter:方法，謝謝!!
→ MOONRAKER:不是問你打算給什麼，是請你實際寫debug.print去trace
→ MOONRAKER:因為你程式的問題大概在執行中才能看出來