Shulou(Shulou.com)06/03 Report--

This article mainly introduces how VBA timing 5 seconds to achieve web page refresh to obtain ranking data, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let the editor with you to understand.

Sub refresh ()

On Error Resume Next

T = Now + TimeValue ("00:00:05") 'interval

Application.OnTime t, "refresh" 'timing startup program

R = Sheets (1) .cells (Rows.Count, 1) .End (xlUp) .Row

Set HTML = CreateObject ("htmlfile")

Set xmlhttp = CreateObject ("microsoft.xmlhttp")

URL = "https://www.amazon.cn/dp/B076ZFKV9B/ref=cngwdyfloorv2_recs_0? pf_rd_p=05f2b7d6-37ec-49bf-8fcf-5d2fec23a061&pf_rd_s=desktop-2&pf_rd_t=36701&pf_rd_i=desktop&pf_rd_m=A1AJ19PSB66TGU&pf_rd_r=8VMK4SXX0P4Z60T90N6V&pf_rd_r=8VMK4SXX0P4Z60T90N6V&pf_rd_p=05f2b7d6-37ec-49bf-8fcf-5d2fec23a061"

Xmlhttp.Open "GET", URL, False

Xmlhttp.send

HTML.body.innerHtml = xmlhttp.responseText

Rank = HTML.getelementbyid ("SalesRank") getElementsByTagName ("span") (0). InnerHtml

Sheets (1) .cells (r + 1,1) = Now

Sheets (1) .cells (r + 1,2) = Rank

End Sub

Sub stop_refresh ()

On Error Resume Next

Application.OnTime t, "refresh", False 'stop the program from running

End Sub

Thank you for reading this article carefully. I hope the article "VBA how to refresh the web page in 5 seconds to get ranking data" shared by the editor will be helpful to everyone. At the same time, I also hope you can support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.