VBA onclick事件Internet Explorer无法正常工作

我是VBA新手，我试图自动化一个Web Explorer导航，但有许多难点。我编写了一个导航到网页并搜索代码的脚本。结果是一个表格（“dr-table-cell rich-table-cell”），其中一行包含显示为另一页面链接的搜索项目（“02090000062571”）。这里该表的代码：VBA onclick事件Internet Explorer无法正常工作

<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按钮（是搜索的项目）并执行diplayed另一个表的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.

感谢您的耐心配合！

来源

2017-01-08 Roberto

'ie.Document.getElementById（ “formRicercaPdr：pdrTable：0：j_id134”）的getElementsByTagName（ “A”）（0）.Click' –

YOU ARE真棒！。！请告诉我在哪里可以找到DOM和HTML初学者的完整文档。谢谢 – Roberto

大多数与HTML DOM相关的文档都基于使用Javascript，但通常可以适应VBA而不会有太多麻烦。也许从这里开始：https：//developer.mozilla.org/en-US/docs/Web/API/Document_Object_Model/Introduction –

这应该工作：

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

来源

2017-01-08 05:00:45

嗨蒂姆Sory如果以这种方式联系你，但我与一个iframe中的按钮堆栈。如果你能在这个问题上看几分钟，我会很高兴。这篇文章是“如何点击IFrame vba中的按钮”，这要提前感谢 – Roberto

VBA onclick事件Internet Explorer无法正常工作

回答

相关问题