返回列表 上一主題 發帖

[發問] 股价抓取停滞在某个网页上的问题

[發問] 股价抓取停滞在某个网页上的问题

本帖最後由 DanielWONG 於 2024-7-13 13:44 編輯

每天需要VBA自动抓取几十个股票的交易信息,一般还挺顺利的,但在某些不固定的股票网页上,程序一直停滞在那十分钟到一小时都不向前走,需要手动REFRESH一下才往下走,我写了下面的程序想让网页一段时间后自动刷新,

本帖最後由 DanielWONG 於 2024-7-13 13:50 編輯
  1. starttime = Timer
  2. Set Lastprice = Selechrome.FindElementById("labelLast")
  3. Set Openprice0 = Selechrome.FindElementById("valPrevClose")
  4. Set Total0 = Selechrome.FindElementById("cp_pLeft")

  5. If Timer - starttime > 10 Then
  6. Selechrome.Refresh
  7. Set Lastprice = Selechrome.FindElementById("labelLast")
  8. Set Openprice0 = Selechrome.FindElementById("valPrevClose")
  9. Set Total0 = Selechrome.FindElementById("cp_pLeft")
  10. Else
  11. End If
複製代碼

TOP

but not work well

TOP

        靜思自在 : 人的眼睛長在前面,只看到別人的缺點,絲毫看不到自己的缺點。
返回列表 上一主題