Доброго времени суток.

Пишу с просьбой помочь разобраться. Задача состоит в том чтобы на сайте заходить в карточку клиента и по ссылке переходить во все его заказы. Создал следующий код

' Получаю все объекты с тэгом а
Set refs = WebBr.Object.Document.getElementsByTagName("a") '
                               
' делаю задержку
Call delay(1)

' Начальные значения  счетчика и конечной ссылки 
                                iCounter = 0                    '
                                ref = ""

' Перебираем все объекты
Do While iCounter <= refs.length         '
                               
                                    
' если ссылка содержит упоминание договора, то это то. что нам нужно
                                    If  InStr(refs(iCounter).href, "/contracts") > 0 Then         '
                                       ref = refs(iCounter).href
                                       iCounter = refs.length         '
                                    End If
                                    
                                    iCounter = iCounter + 1                        '
                                Loop                                          '
                                If ref <> "" Then
                                 WebBr.Object.Navigate2 ref

При этом при переборе на произвольном шаге итерации может выпадать ошибка 424 - объекта не существует с указанием на строку с условием if. В чем может быть ошибка?

http://www.sql.ru/forum/1221632/oshibka-424