クリックしてウェブページのjqueryのボタン私はVBAでいくつかの助けが必要

Question

エクセルコードエクセル：

Set ieDoc = Nothing 
    Set ieDoc = ieApp.Document 
    For Each Anchor In ieDoc.getElementsByTagName("div") 
     If InStr(Anchor.outerHTML, "CategoryIDName-popup") > 0 Then 
      Anchor.Focus 
      SendKeys "{DOWN}" 
      SendKeys "{ENTER}" 
      Anchor.Click 
      Anchor.FireEvent "ondblclick", 1, 2 
      Exit For 
     End If 
    Next Anchor 

を私はすでにクリックし、のSendKeysを試してみた、あるいはれるondblclickが、何も作業していません。ここでのHTMLコードである：

< DIVのID = CategoryIDName-ポップアップクラス= "入力基アドオンBTN" のtabIndex = 1 jQuery111308417279745872946 = "287"> < Iクラス= "FA FA-検索" </I > </DIV>

本当にありがとうございます。

Answer 1

これを試してみてください：

ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmouseover" 
ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmousedown" 
ieDoc.getElementById("CategoryIDName-popup").FireEvent "onmouseup"