пытается щелкнуть кнопку на веб-странице с помощью vba

Question

Я пытаюсь нажать кнопку на веб-странице, используя следующий код. По какой-то причине мой код пропускается до конца после строки «Для каждой». Любые предложения были бы замечательными! вот фрагмент моего кода:

Dim htmldoc As MSHTML.IHTMLDocument 'Document object 
Dim htmlColl As MSHTML.IHTMLElementCollection 
Dim htmlInput As MSHTML.HTMLInputElement 

With ie 
      Set htmldoc = .document 
      Set htmlColl = htmldoc.getElementsByTagName("a") 
      Do While htmldoc.readyState <> "complete": DoEvents: Loop 
      For Each htmlInput In htmlColl **'it skips to End With after this line** 
       If Trim(htmlInput.ID) = "b2" Then 
        htmlInput.Click 
        Exit For 
       End If 
      Next htmlInput 
End With **'this is where it skips to** 

HTML:

<TD id=b2><A onclick="selectButton('b2');" 
onmouseover="window.status='Transoffering'; return true" 
onmouseout="window.status='View Transmission Offerings';return true" 
class=button 
href="/cgi-bin/webplus.dll?script=/woa/woa-transoffering-summary.wml" 
target=content>Offerings</A><TD> 

Answer 1

Идентификатор принадлежит td, а не a, но вы можете использовать его, чтобы получить по ссылке:

Редактирование: развернутый бит для ясности/отладки

Dim el 
Set el = htmldoc.getElementById("b2") 
If el Is Nothing Then 
    Debug.Print "id='b2' not found!" 
Else 
    el.getElementsByTagName("a")(0).Click 
End If 

Редактировать2: при использовании fr ames

Set el = htmldoc.frames("frameNameHere").document.getElementById("b2")