excel - 如何在网页提取期间按钮自动点击网页后提取数据

Question

我想在自动按钮单击后从网页中提取数据。目前我可以单击该特定按钮，但在按钮单击事件后无法提取数据。我正在使用下面提到的代码进行提取。我正在使用页面刷新选项，但它仍然单击事件后不显示新值。网页和代码详细信息如下。从网页中我想在单击按钮后提取电话号码。网页： https ://www.leboncoin.fr/ventes_immobilieres/1926184517.htm?ac=558505705

点击事件

Set btn = html.getElementsByClassName("_2qvLx _3osY2 _35pAC _1Vw3w _kC3e _32ILh _2L9kx _30q3D _1y_ge _3QJkO")
For Each Item In btn                                                                                         
a = Item.innerText                                                                                           
'MsgBox (a)                                                                                                  
Item.FireEvent ("onmousedown")                                                                               
Item.FireEvent ("onclick")                                                                                   
Item.Click                                                                                                   
'MsgBox (Item.innerText)                                                                                     
'btn.Click                                                                                                   
Exit For                                                                                                     
Next                                                                                                         
btn = ""                                                                                                     
Ie.Refresh                                                                                                   
Set html = Ie.Document                                                                                       
Set btn = html.getElementsByClassName("css-z4gyg3")                                                          
                                                                                                             
For Each Item In btn                                                                                         
MsgBox (Item.innerHTML)                                                                                      
a = Item.innerText                                                                                           
MsgBox (a)                                                                                                   
'Item.FireEvent ("onmousedown")                                                                              
'Item.FireEvent ("onclick")                                                                                  
'Item.Click                                                                                                  
'btn.Click                                                                                                   
Exit For                                                                                                     
Next                                                                                                         

标签： excelvbaweb-scraping