ALM 缺陷列表因 'User defined type not defined' 而失败

Question

我想使用过滤条件提取缺陷列表。我尝试了来自 OTA here 的 VBA 代码，但在以下声明中编译失败，其中 用户定义类型未定义 :

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 类型库的引用（参见here）；否则你的程序将不知道 OTA 类型，例如 BugFactory 和 TDFilter.

ALM 缺陷列表因 'User defined type not defined' 而失败

ALM Defects list failing with 'User defined type not defined'

excel

alm

vba