嗨，我正在尝试从测试实验室下载附件，我已经编写了 VBA 代码。我无法获得测试集案例中的附件列表。

下面是获取测试用例附件列表的代码。可以任何人改进，或指导我在该代码中的错误。

For Each Test In testList 'iterate through the list of Test objects
    Set attFact = Test.Attachments
    Set attfilter = attFact.Filter

    attfilter.Filter("TS_ATTACHMENT") = Chr(34) & "Y" & Chr(34)
    a = attfilter.Text
    Set attList = attFact.NewList(attfilter.Text)
    c = attList.Count

    For Each attItem In attList
        attItem.Load True, "D:\New Floder"
excel vba excel-vba alm