麻辣家族討論版版 » Excel程式區 » 股价抓取停滞在某个网页上的问题

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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一下才往下走，我写了下面的程序想让网页一段时间后自动刷新，

樓主熱帖

收藏

中學生 Rank: 2

帖子: 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 編輯

starttime = Timer
Set Lastprice = Selechrome.FindElementById("labelLast")
Set Openprice0 = Selechrome.FindElementById("valPrevClose")
Set Total0 = Selechrome.FindElementById("cp_pLeft")
If Timer - starttime > 10 Then
Selechrome.Refresh
Set Lastprice = Selechrome.FindElementById("labelLast")
Set Openprice0 = Selechrome.FindElementById("valPrevClose")
Set Total0 = Selechrome.FindElementById("cp_pLeft")
Else
End If

複製代碼

中學生 Rank: 2

帖子: 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

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題