返回列表 上一主題 發帖

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

DanielWONG

帖子
15 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
windows 10 
軟體版本
offfice2016 
閱讀權限
20 
性別
男 
註冊時間
2017-8-6 
最後登錄
2024-7-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2024-7-13 13:41 | 只看該作者

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

抓取, webscraping
本帖最後由 DanielWONG 於 2024-7-13 13:44 編輯

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

DanielWONG

帖子
15 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
windows 10 
軟體版本
offfice2016 
閱讀權限
20 
性別
男 
註冊時間
2017-8-6 
最後登錄
2024-7-13 
3#
發表於 2024-7-13 13:51 | 只看該作者
but not work well

TOP

DanielWONG

帖子
15 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
windows 10 
軟體版本
offfice2016 
閱讀權限
20 
性別
男 
註冊時間
2017-8-6 
最後登錄
2024-7-13 
2#
發表於 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")

  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
複製代碼

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題