Question

在Excel VBA中有目录树控件吗？

Answer 1

有的，不在默认的控件面板上，需要手动添加：Microsoft TreeView Control 6.0 (SP4)，文件名为MSCOMCTL.OCX

追问

非常感谢！
能否再告诉一下怎样把内容加入目录树，用哪个属性或方法，（内容条目放在表格内，如A、列为一级，B列为二级……）

追答

Private Sub UserForm_Initialize()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C11", "Child 11")
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C12", "Child 12")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesText '样式 4。
TreeView1.BorderStyle = vbFixedSingle
End Sub