點擊網頁的jQuery按鈕使用VBA擅長

Question

我需要一些幫助，我的VBA代碼擅長：

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，單擊，甚至onfocus此，但沒有什麼工作。下面是HTML代碼：

< DIV ID = CategoryIDName-彈出類= 「輸入基團的附加BTN」 的tabIndex = 1 jQuery111308417279745872946 = 「287」> <餘類= 「FA FA-搜索」 </I > </DIV>

任何幫助，真的很感激。

Answer 1

試試這個：

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