VBA中如何用代码在TreeView控件中添加节点？

1、在用户窗体的UserForm_Click事件中加入如下的代码：

Private Sub UserForm_Click()

    Dim i As Integer

    '定义一个TreeView 节点对象

    Dim oTVW As Node

    '为TreeView控件添加一个根节点

    Set oTVW = Me.TreeView1.Nodes.Add(, , "R", Excel.ThisWorkbook.Name)

    '为TreeView控件的根节点添加多个同级的子节点

    For i = 1 To Excel.ThisWorkbook.Worksheets.Count

        Set oTVW = Me.TreeView1.Nodes.Add("R", tvwChild, "C" & i, Worksheets(i).Name)

    Next i

End Sub

如下图所示：

2、然后按下F5键运行代码在弹出的用户窗体处单击鼠标将显示TreeView控件的根节点，然后双击根节点将显示它的子节点，如下图所示：

3、TreeView控件添加节点的核心代码是

object.Add(relative, relationship, key, text, image, selectedimage)

其中relative参数表示已经存在的节点的Key或者索引号

 relationship参数表示需要添加的节点与relative参数所表示的节点之间的关系，它可以是

TvwFirst：被添加的节点添加在relative参数所表示的同级别的节点的第一个

TvwLast1：被添加的节点添加在relative参数所表示的同级别的节点的最后一个

TvwNext：被添加的节点添加在relative参数所表示的节点的后面一个

TvwPrevious：被添加的节点添加在relative参数所表示的节点的前面一个

TvwChild：被添加的节点添加在relative参数所表示的节点的子节点

key参数表示为将要被添加的节点设置的Key

text参数表示为将要被添加的节点设置的显示文本。