作用:调用“列表窗体选择”和“树型选择”数据规范。
参数:参数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中调用该方法时应该先设定目标单元格为当前单元格。