ALM 缺陷列表失败并出现'User defined type not defined'

Question

我想使用过滤器标准提取缺陷列表。我在此处尝试了OTA的VBA代码，但是使用用户定义的类型未定义的的compile失败：

：

Dim BugFact As BugFactory
Dim BugFilter As TDFilter
Dim bugList As List
Dim theBug As Bug

注意：我没有alm上的管理特权。

完整的VBA代码：

Sub BugFilter()
    Dim BugFact As BugFactory
    Dim BugFilter As TDFilter
    Dim bugList As List
    Dim theBug As Bug
    Dim i%, msg$
' Get the bug factory filter.
    'tdc is the global TDConnection object.
    Set BugFact = tdc.BugFactory
    Set BugFilter = BugFact.Filter
' Set the filter values.
    BugFilter.Filter("BG_STATUS") = "Closed"
    BugFilter.order("BG_PRIORITY") = 1
    MsgBox BugFilter.Text
'Create a list of defects from the filter
' and show a few of them.
    Set bugList = BugFilter.NewList
    msg = "Number of defects = " & bugList.Count & Chr(13)
    For Each theBug In bugList
       msg = msg & theBug.ID & ", " & theBug.Summary & ", " _
          & theBug.Status & ", " & theBug.Priority & Chr(13)
       i = i + 1
       If i > 10 Then Exit For
    Next
    MsgBox msg
End Sub

Answer 1

您需要将参考添加到 ota com类型库（请参阅此处）;否则您的程序将不知道BugFactory和TDFilter等OTA类型。