標題: [發問] 股价抓取停滞在某个网页上的问题 [打印本頁]

---

作者: DanielWONG    時間: 2024-7-13 13:41     標題: 股价抓取停滞在某个网页上的问题

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

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

---

作者: DanielWONG    時間: 2024-7-13 13:45

本帖最後由 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. 
   
6. If Timer - starttime > 10 Then
   
7. Selechrome.Refresh
   
8. Set Lastprice = Selechrome.FindElementById("labelLast")
   
9. Set Openprice0 = Selechrome.FindElementById("valPrevClose")
   
10. Set Total0 = Selechrome.FindElementById("cp_pLeft")
    
11. Else
    
12. End If

複製代碼

---

作者: DanielWONG    時間: 2024-7-13 13:51

but not work well

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)