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参数表示为将要被添加的节点设置的显示文本。
