popTree(<树型数据规范的名称>)
根据参数，动态显示树型选择。
方法
popTree(<树型数据规范的名称>)
在当前单元格弹出指定的树型数据规范。
应用场合
如果某个数据项上需要通过树型选择输入，但是需要显示何种树型并不是固定的，而是根据不同的情况，显示不同的树型。
示例
在示例数据库中有如下模板：
用户可以选择两种分类标准：按地区、按销售员。当分类标准＝“按地区”时，在“客户名称”处弹出“先显示地区，地区之下显示客户”的树型，如下图；
当分类标准＝“按销售员”时，在“客户名称”处弹出“先显示销售员，销售员之下显示客户”的树型，如下图：
为了达到上述目录，首先我们需要定义两种树型数据规范――－“地区_客户”和“销售员_客户”，其次，在模板的Selection_Change事件中写如下的VBA代码：
1 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
2 If Target.Address = "$C$3" Then
3
4 Dim oAdd As Object
5 Set oAdd = Application.COMAddIns("ESClient.Connect").Object
6
7 Dim sTreeName As String
8 If Range("C2") = "按地区" Then
9 sTreeName = "地区_客户"
10 ElseIf Range("C2") = "按销售员" Then
11 sTreeName = "销售员_客户"
12 Else
13 sTreeName = ""
14 End If
15 If sTreeName <> "" Then oAdd.popTree sTreeName
16
17 Set oAdd = Nothing
18 End If
19 End Sub
第2行，判断当前单元格是不是C3单元格，如果不是，什么也不做。如果是，继续执行下面的代码。
第4、5行，声明接口对象，并赋值。（必须这样写）
第7行，声明一个字符型变量nTreeName，用于存放应当显示的树型名称
第8~14行，根据C2单元格（分类标准）的内容，决定要显示的树型名称
第15行，决定了树型名称后，调用popTree方法，显示树型
第17行，释放对象。