帖子: 15
主題: 8
精華: 0
積分: 71
點名: 0
作業系統: windows 10
軟體版本: offfice2016
閱讀權限: 20
性別: 男
註冊時間: 2017-8-6
最後登錄: 2024-7-13

1^# 跳轉到 »

發表於 2018-6-16 14:58 | 只看該作者

這個資料有辦法用VBA自動抓嗎？

:) 各位，我想每天用VBA自動抓取下面連結的網站

https://www.hangseng.com/en-hk/e-services/e-mpf/fund-price-performance/price/

每天自動更新的基金價格資料。
比如，
Name of Constituent Fund Bid Price (HKD) Offer Price (HKD)
Age 65 Plus Fund 11.57 11.57
想抓取 11.57 這個價格，請問用什麼方法呢？

試了query table 和解析HTML都不成功呀。多謝指點迷津！:handshake

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

2^#

發表於 2018-6-16 15:44 | 只看該作者

回復 1# DanielWONG

試試看~

Sub test()
Cells.Clear
Dim myXML As Object
Set myXML = CreateObject("Winhttp.WinhttpRequest.5.1")
With myXML
.Open "POST", "https://rbwm-api.hsbc.com.hk/pws-hk-hase-mpfunitprice-papi-prod-proxy/v1/mpf/getSuperTrustPlus", False
.setRequestHeader "content-type", "application/json;charset=UTF-8"
body = "{""locale"":""en""}"
.send body
myText1 = .responseText
myText2 = Split(myText1, """trustPlusList"":[{""")(1)
j = 1
myStrArr = Array("FUND_NAME", "UNIT_PRICE_DATE", "FUND_CURRENCY", "ASK_PRICE", "BID_PRICE")
For Each myStr In myStrArr
myText3 = Split(myText2, myStr)
For i = 1 To UBound(myText3)
Cells(i + 1, j) = Replace(Replace(Split(myText3(i), ",")(0), ":", ""), Chr(34), "")
Next
j = j + 1
Next
Range("A1").Resize(1, UBound(myStrArr) + 1).Value = myStrArr
'Debug.Print .responseText
End With
Set myXML = Nothing
End Sub

複製代碼

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

3^#

發表於 2018-6-16 15:55 | 只看該作者

回復 1# DanielWONG

執行結果應該如下圖

我看他還有蠻多資料可以用的

(但我不知道那些資料的用途，所以就沒加了XD)
如果需要的話可自行加在myStrArr裡

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

DanielWONG

中學生 Rank: 2

帖子: 15
主題: 8
精華: 0
積分: 71
點名: 0
作業系統: windows 10
軟體版本: offfice2016
閱讀權限: 20
性別: 男
註冊時間: 2017-8-6
最後登錄: 2024-7-13

4^#

發表於 2018-6-16 17:04 | 只看該作者

回復 3# iamaraymond

多謝大神，我先消化一下您的方法！

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2026-9-21

5^#

發表於 2018-6-16 17:46 | 只看該作者

回復 3# iamaraymond

請問
https://djinfo.cathaysec.com.tw/z/ze/zef/zef.djhtm
和
http://justdata.yuanta.com.tw/z/ze/zeb/zeb.djhtm
這種下載後有部分隱藏下載不完全
該怎麼下載
謝謝

TOP

DanielWONG

中學生 Rank: 2

帖子: 15
主題: 8
精華: 0
積分: 71
點名: 0
作業系統: windows 10
軟體版本: offfice2016
閱讀權限: 20
性別: 男
註冊時間: 2017-8-6
最後登錄: 2024-7-13

6^#

發表於 2018-6-16 19:27 | 只看該作者

回復 3# iamaraymond

感覺 .ResponseText 內容好多啊！
其實我不需要選擇日期，只需要抓當前日期 Chinese Equity Fund， Global Bond Fund和Hang Seng Index Tracking Fund 三種基金的當前價格。是否可能抓少一些東西讓.ResponseText內容少些呢？

TOP

DanielWONG

中學生 Rank: 2

帖子: 15
主題: 8
精華: 0
積分: 71
點名: 0
作業系統: windows 10
軟體版本: offfice2016
閱讀權限: 20
性別: 男
註冊時間: 2017-8-6
最後登錄: 2024-7-13

7^# 倒序看帖

打印

字體大小: tT

發表於 2018-6-17 09:01 | 只看該作者

[發問] VBA自動抓取finance.yahoo

各位，如用VBA XML.HTTP自動抓取下面連結的網站

https://hk.finance.yahoo.com/quote/0388.HK?p=0388.HK

每天自動更新的成交量資料。我不會尋找對應的URL，哪位元可以幫忙提供開始部分到ResponseText的代碼嗎？感激！

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2026-9-21

8^#

發表於 2018-6-17 10:36 | 只看該作者

回復 1# DanielWONG

Sub 香港交易所_test()
Dim Stock1 As String
Dim oXmlhttp As Object, oHtmldoc As Object, surl As String, E As Object, R As Integer, C As Integer
  Set oXmlhttp = CreateObject("msxml2.xmlhttp")
Set oHtmldoc = CreateObject("htmlfile")
   surl = "https://hk.finance.yahoo.com/quote/0388.HK"
      With oXmlhttp
      .Open "Get", surl, False
      .send
      oHtmldoc.Write .responseText
End With
ActiveSheet.Cells.Clear
   With oHtmldoc
      Set E = .all.tags("table")(1)
      For R = 0 To E.Rows.Length - 1
         For C = 0 To E.Rows(R).Cells.Length - 1
            ActiveSheet.Cells(R + 1, C + 1) = E.Rows(R).Cells(C).innerText
         Next
      Next
End With
End Sub

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

9^#

發表於 2018-6-17 15:06 | 只看該作者

回復 6# DanielWONG

如果不需要日期的話，只要改一下myStrArr就好
myStrArr = Array("FUND_NAME", "FUND_CURRENCY", "ASK_PRICE", "BID_PRICE")

至於只取那三檔基金的資料
我覺得比較有彈性的作法是在旁邊直接用vlookup函數
保持資料的完整性
以免日後若想要取其他基金的資料又要改一次程式

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

iamaraymond

　暱稱: Raymond Chien

中學生 Rank: 2

帖子: 109
主題: 12
精華: 0
積分: 177
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2017-11-19
最後登錄: 2023-7-5

10^#

發表於 2018-6-17 15:06 | 只看該作者

回復 5# f3202

不好意思不是很了解你的意思
可以多說明一下嗎?

Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP