[發問] 如何寫excel VBA去抓取網頁原始碼內的特定文字

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-3-2 08:49 | 只看該作者

回復 2# daniel1326

Option Explicit
Function Mp3(Word As String) As String
Dim Url As String, Ar
Url = "http://dictionary.reference.com/browse/" & Word & "?s=b"
If Word = "" Then Mp3 = "??": Exit Function
With CreateObject("Microsoft.XMLHTTP")
.Open "get", Url, False
.send
Ar = Split(Split(UCase(.responseText), ".MP3")(1), "/")
Mp3 = Ar(UBound(Ar))
End With
End Function

複製代碼

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

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

4^#

發表於 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

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

5^#

發表於 2017-9-11 06:38 | 只看該作者

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2017-9-11 08:35 | 只看該作者

回復 5# ui123
請說明:抓這網頁哪裡的資料

Option Explicit
'Sub Ex()
Dim Url As String, AR
Url = "https://finance.yahoo.com/quote/AAPL?p=AAPL"
With CreateObject("Microsoft.XMLHTTP")
.Open "get", Url, False
.send
If InStr(.responseText, "CrumbStore"":{""crumb"":""") = False Then MsgBox "找不到啊"
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

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

7^#

發表於 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

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

8^#

發表於 2017-9-11 10:38 | 只看該作者

回復 6# GBKEE

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

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

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

9^#

發表於 2017-9-11 17:32 | 只看該作者

回復 6# GBKEE
大大，我試了很久不行（下面語法是 Java 語言,不知道有沒有關），如果真不行就算了～
謝囉～

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2017-9-13 08:36 | 只看該作者

回復 9# ui123
Java 語言尚未入門,幫不上忙
只抓到100筆資料

Sub Ex()
Dim oXmlhttp As Object, oHtmldoc As Object, surl, r, c, E
Set oXmlhttp = CreateObject("msxml2.xmlhttp")
Set oHtmldoc = CreateObject("htmlfile")
surl = "https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d"
With oXmlhttp
.Open "Get", surl, False
.Send
oHtmldoc.write .responseText
End With
With oHtmldoc
Set E = .all.tags("table")(3)
ActiveSheet.Cells.Clear
For r = 0 To E.Rows.Length - 1
For c = 0 To E.Rows(r).Cells.Length - 1
Cells(r + 1, c + 1) = E.Rows(r).Cells(c).innertext
Next
Next
End With
Set oXmlhttp = Nothing
Set oHtmldoc = Nothing
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.