javascript - VBA onclick 事件 Internet Explorer 不工作

Question

我是 VBA 新手，我正在尝试自动化 Web Explorer 导航，但有很多困难。我编写了一个脚本来导航到网页并搜索代码。结果是一个表格(“dr-table-cell rich-table-cell”)，其中一行包含搜索项(“02090000062571”)，显示为另一页面的链接。这是该表的代码:

<td class="dr-table-cell rich-table-cell" 
    id="formRicercaPdr:pdrTable:0:j_id134">
     <a onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.forms['formRicercaPdr'],'formRicercaPdr:pdrTable:0:j_id136,formRicercaPdr:pdrTable:0:j_id136','');}return false" 
         href="#">02090000062571</a>
 </td>

我的问题是点击“02090000062571”href按钮(是搜索到的项目)并执行显示另一个表的javascript函数。

这是我的代码:

Sub TriggerDivClick()
Dim ie As SHDocVw.InternetExplorer
Dim doc As MSHTML.HTMLDocument
Dim div As HTMLDivElement
Dim url As String

url = "some URL"

Set ie = New SHDocVw.InternetExplorer

ie.Visible = True
ie.Navigate url

While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
    DoEvents
Wend
Set pdr_button = ie.Document.getElementsByClassName("dr-table-cell rich-table-cell")
For Each a In pdr_button
'here comes the problems 

a.Item(0).FireEvent ("click()")

Next a 

结束子

我可以找到该项目，但无法执行代码来按下按钮。我使用的是 IE 11。

感谢您的耐心等待!

Answer 1

这应该有效:

ie.Document.getElementById("formRicercaPdr:pdrTable:0:j_id13‌​4"). _
     getElementsByTag‌​Name("a")(0).Click