单击网站上的 JavaScript 链接

Question

我正在尝试通过 VBA 从我的银行网站自动生成报告。

我成功地访问了该网站并输入了我的用户名和密码，没有任何问题。我已到达通常可以生成报告的页面。 现在我必须模拟点击链接...但我做不到。

这是网站的截图，我必须点击链接的 HTML 代码来生成报告（摘要报告副本）。

这是我需要点击的链接的 HTML 代码：

<a id="irCustomStepOne:headerDataTableId:23:reportnamestatus" href="#"  style="float:left;" title="Summary Report Copy" onclick="jsf.util.chain(this,event,'if(isDateValidForMassPayPD()==\'false\' &amp; isWareHouseRptPD(\'23\') ==\'true\'){RichFaces.$(\'irCustomStepOne:panelWareHouseRptError\').show(event, {\'top\':\'100px\', \'left\':\'300px\'});return false;}else{if(!onReportLink(\'23\')) return false;}','mojarra.jsfcljs(document.getElementById(\'irCustomStepOne\'),{\'irCustomStepOne:headerDataTableId:23:reportnamestatus\':\'irCustomStepOne:headerDataTableId:23:reportnamestatus\',\'repId\':\'3368127\',\'dayTypeKey\':\'PREVIOUS_DAY\',\'userAction\':\'Run\'},\'_blank\')');return false" class="">Summary Report Copy</a>

我试过这行 VBA 代码，但是不行：

IE.Document.getElementById("irCustomStepOne:headerDataTableId:23:reportnamestatus").FireEvent "onclick"

感谢 VBA，我如何才能点击此“摘要报告副本”？

这里是链接所在网页部分的完整 HTML 代码。也许我没有使用正确的 ID？

 <td width="290px">
 <span id="irCustomStepOne:headerDataTableId:23:reportNmGrp">
 <a id="irCustomStepOne:headerDataTableId:23:reportnamestatus" href="#" style="float:left;" title="Summary Report Copy" onclick="jsf.util.chain(this,event,'if(isDateValidForMassPayPD()==\'false\' &amp; isWareHouseRptPD(\'23\') ==\'true\'){RichFaces.$(\'irCustomStepOne:panelWareHouseRptError\').show(event, {\'top\':\'100px\', \'left\':\'300px\'});return false;}else{if(!onReportLink(\'23\')) return false;}','mojarra.jsfcljs(document.getElementById(\'irCustomStepOne\'),{\'irCustomStepOne:headerDataTableId:23:reportnamestatus\':\'irCustomStepOne:headerDataTableId:23:reportnamestatus\',\'repId\':\'3368127\',\'dayTypeKey\':\'PREVIOUS_DAY\',\'userAction\':\'Run\'},\'_blank\')');return false">Summary Report Copy</a>
 <a id="irCustomStepOne:headerDataTableId:23:reportnamePrint" href="#" style="float:left;display:none;" title="Summary Report Copy" onclick="jsf.util.chain(this,event,'if (!onReportLink(\'23\')) return false;','mojarra.jsfcljs(document.getElementById(\'irCustomStepOne\'),{\'irCustomStepOne:headerDataTableId:23:reportnamePrint\':\'irCustomStepOne:headerDataTableId:23:reportnamePrint\',\'repId\':\'3368127\',\'dayTypeKey\':\'PREVIOUS_DAY\',\'userAction\':\'Print\'},\'_blank\')');return false">Summary Report Copy</a>
 <span id="irCustomStepOne:headerDataTableId:23:rpId" style="float:left;display:none;">3368127</span>
 </span>
 </td>

Answer 1

这一直对我有用。请尝试一下：

For each lnk in IE.Document.getElementByTagName("a") 
If lnk.ID = "irCustomStepOne:headerDataTableId:23:reportnamestat‌​us" Then
    lnk.Click
    Exit For
Next

Answer 2

您可能需要等待页面完全加载。像

Do: VBA.DoEvents: Loop While IE.Busy ' wait for the page to load
Dim el 'As IHTMLElement
Set el = IE.Document.getElementById("irCustomStepOne:headerDataTableId:23:reportnamestat‌​us")
If el Is Nothing Then el = IE.Document.querySelector("a[title='Summary Report Copy']")
If el Is Nothing Then MsgBox("Link not found!") : Exit Sub
el.click
Do: VBA.DoEvents: Loop While IE.Busy ' wait for next page to load