4.8.12.19 SelectDataRuleValue

作用:调用“列表窗体选择”和“树型选择”数据规范。

           参数:参数1 – 数据规范的名字 

      返回值:在当前活动单元格中填入所选择的数据规范的值

示例:

Sub CommandButton1_Click()

                 ‘定义接口变量

     Dim sErr As String

           Dim sResult As String

Dim obj As Object    

                 ‘获取E立方管理平的编程接口

     Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

           ‘把准备接收数据规范返回值的单元格设置为当前活动单元格

           Cells(2,2).Select

           ‘通过接口调用SelectDataRuleValue

     obj. SelectDataRuleValue  "选择客户_列表窗体选择数据规范"

                 ‘释放编程接口

     Set obj = Nothing

End Sub

      解说:该代码会执行"选择客户_列表窗体选择数据规范",并把返回值填入单元格B2中。     注意:该函数会把结果直接返回到当前活动单元格里,所以在VBA中调用该方法时应该先设定目标单元格为当前单元格。