在VBA中如何在网页上向下移动直到完成网页加载

时间:2021-03-03 11:13:09

标签: vba mouseevent data-extraction

我正在处理网页数据提取,我的代码正在正确提取数据,但代码仅提取第一页的数据。实际上,网页具有鼠标向下移动时加载数据的功能,即鼠标向下移动时加载第二页然后鼠标向下移动时,第三和第四反之亦然。我正在使用以下代码进行数据提取,代码工作正常,但仅适用于第一页,这可能会加载所有页面,然后我将开始提取。

网址:https://www.trendyol.com/kadin-spor-outdoor-x-g1-c104593?sst=MOST_RATED

代码

http.Open "GET", url, False                                       
http.Send                                                         
html.body.innerHTML = http.ResponseText                           
html1 = html.body.innerHTML                                       
Set tdata = html.getElementsByClassName("p-card-chldrn-cntnr")    
For Each Item In tdata                                            
href2 = Item.getElementsByTagName("a")                            
href2 = Replace(href2, "about:", "")                              

0 个答案:

没有答案