Hi, I'm trying to import to an excel program some data from ALM; But I've some trouble in getting the linked run in bugfactory. The function I deleopped get stuck on the .linkfactory.newlist("") (Run-time error '-2147220483(800403fd)': Method 'NewList' of object 'ILinkfactory' failed), but sometimes this function works (it depend on the mood of microsoft ;-)) Google didn't help much... Does anybody already had to face this situation? many thanks in advance; Please find below an extract of my code: ------ Sub getAlmDefect() Dim connectAlm As Object Dim bugFactory2 As Variant Dim bugList As Variant Dim bug As Variant Dim i As Integer Dim j As Integer Dim linkDefectArr As Variant Dim linkDefectArr2 As Variant Dim fieldArr As Variant Dim cellRef As Range fieldArr = Range("DefectFieldsTab") Set connectAlm = ConnectToQualityCenter Set bugFactory2 = connectAlm.bugFactory.Filter bugFactory2.Filter("BG_STATUS") = "Open or New or Re-open" Set bugList = bugFactory2.newlist 'Get a list of all the defects. Application.StatusBar = "Please Wait...... " & Format((j / bugList.Count), "0%") Range("almDefTab").AutoFilter With DefectDataSh.ListObjects("almDefTab").ListRows Do While .Count >= 1 .Item(1).Delete Loop End With Set cellRef = Range("almDefTab").Cells(1, 1) j = 0 For Each bug In bugList For i = LBound(fieldArr) To UBound(fieldArr) If InStr(1, bug.Field(fieldArr(i, 1)), "html") > 0 Then cellRef.Offset(j, i - 1).Value = StripHTML(bug.Field(fieldArr(i, 1))) Else cellRef.Offset(j, i - 1).Value = bug.Field(fieldArr(i, 1)) End If k = i Next i countLinkFactory = 0 countLinkFactory = bug.linkfactory.newlist("").Count '<==== ## Error here ### cellRef.Offset(j, k).Value = countLinkFactory [...] Application.StatusBar = "Please Wait...... " & Format((j / bugList.Count), "0%") j = j + 1 Next bug Application.StatusBar = "Please Wait...... " & Format((j / bugList.Count), "0%") 'free memory & connection freeConnectAlm connectAlm Application.StatusBar = "Done" End Sub
↧