如何寫excel VBA去抓取網頁原始碼內的特定文字 - Excel程式區

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2017-9-10 20:15 | 顯示全部帖子

回復 3# GBKEE

超級版主大大，我用你的方法試了一個禮拜，但還是抓不到 view-source:https://finance.yahoo.com/quote/AAPL?p=AAPL 中的 CrumbStore":{"crumb":"9ZYeo7D3CrT"} 紅色字會不定時變，所以我想用ＶＢＡ去自動抓它，但一直失敗，好奇怪喔～

螢幕快照 2017-09-10 下午8.06.23.png (375.09 KB)

匡藍色的地方

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-9-11 06:38 | 顯示全部帖子

"CrumbStore":{"crumb":" 我有定義出CrumbStart，但好像是原始碼太多，以至於無法塞進 Dim String 大小而搜尋不到我要定義的CrumbStart ?
CrumbStart = Chr(34) & "CrumbStore" & Chr(34) & ":{" & Chr(34) & "crumb" & Chr(34) & ":" & Chr(34)

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-9-11 10:28 | 顯示全部帖子

回復 6# GBKEE

超級版大，我想抓的是紅框部分，那一個每隔一段時間就會改變，
而網頁原始碼 CrumbStore":{"crumb":" 只會出現一次，所以我用這去定位

javascript:;

Crumb.PNG (395.99 KB)

想抓紅框部分

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-9-11 10:38 | 顯示全部帖子

回復 6# GBKEE

很奇怪的是，網頁原始檔明明有"CrumbStore":{"crumb":" ，但是用程式InStr(.responseText, "CrumbStore"":{""crumb"":""") 卻搜尋不到，
想說是網頁原始檔太大所以.responseText 放不下，又或者是其他問題