Sub Refresh ()
On Error Resume Next
t = Now + timevalue ("00:00:05") ' Time interval
Application.ontime T, "Refresh" timer Start 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 program run
End Sub
VBA timed 5 Seconds to achieve page refresh get ranking data