点击网页的jQuery按钮使用VBA擅长

2017-01-23 50 views 0 likes

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>

任何帮助，真的很感激。

来源

2017-01-23 Ali Sujono

回答

试试这个：

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

来源

2017-05-23 16:07:43 birkhoff

点击网页的jQuery按钮使用VBA擅长

回答

相关问题