12
返回列表 上一主題 發帖

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

DanielWONG

帖子
15 
主題
8 
精華
0 
積分
71 
點名
0  
作業系統
windows 10 
軟體版本
offfice2016 
閱讀權限
20 
性別
男 
註冊時間
2017-8-6 
最後登錄
2024-7-13 
1# 跳轉到 » 正序看帖
打印
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的代碼嗎？ 感激！
收藏 分享

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
18#
發表於 2018-6-18 13:29 | 只看該作者
回復 13# f3202

OK，你可以先研究一下程式碼
看如何改成抓第二個網址的資料
這樣比較容易進步
若有問題都可以問喔~
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-17 
17#
發表於 2018-6-18 13:16 | 只看該作者
回復 12# iamaraymond

謝謝版大
第一個測試成功
第二個我研究看看
若有問題再請教版大
佳節愉快

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
16#
發表於 2018-6-18 12:49 | 只看該作者
回復 11# f3202

試試看
  1. Sub test()

  3. Dim t: t = Timer

  5. Cells.Clear

  7. Dim myXML As Object
  8. Set myXML = CreateObject("Microsoft.XMLHTTP")

  10. Dim myHTML As Object
  11. Set myHTML = CreateObject("HTMLFile")

  13. With myXML
  14.     .Open "GET", "https://djinfo.cathaysec.com.tw/z/ze/zef/zef.djhtm", False
  15.     .send
  16.    
  17.     myHTML.body.innerHTML = convertraw(.responseBody)
  18.     Set myTrs = myHTML.getElementsByTagName("table")(2).getElementsByTagName("tbody")(0).getElementsByTagName("tr")
  19.     ReDim myArr(1 To myTrs.Length + 1, 1 To 4)
  20.     i = 1
  21.     For Each myTr In myTrs
  22.         Set myTds = myTr.getElementsByTagName("td")
  23.         j = 1
  24.         For Each myTd In myTds
  25.             myArr(i, j) = myTd.innerText
  26.             If myTd.innerText = "" Then
  27.                 myArr(i, j) = Right(Split(Split(Split(myTd.innerHTML, "GenLink2stk(")(1), "')")(0), "'")(1), 4) & Split(Split(Split(myTd.innerHTML, "GenLink2stk(")(1), "')")(0), "'")(3)
  28.             End If
  29.             j = j + 1
  30.         Next
  31.         i = i + 1
  32.     Next
  33.    
  34. End With
  35. Range("A1").Resize(UBound(myArr, 1), 4).Value = myArr
  36. Range("A1").WrapText = False
  37. Set myXML = Nothing
  38. Application.StatusBar = "抓取完畢，共花費" & Format(Timer - t, "0.00秒")

  40. End Sub
  41. Function convertraw(rawdata)

  43. Dim rawstr
  44. Set rawstr = CreateObject("adodb.stream")
  45. With rawstr
  46. .Type = 1
  47. .Mode = 3
  48. .Open
  49. .Write rawdata
  50. .Position = 0
  51. .Type = 2
  52. '繁體通常轉成big5就可以了，簡體通常是gb2312
  53. .Charset = "big5"
  54. convertraw = .ReadText
  55. .Close
  56. End With
  57. Set rawstr = Nothing

  59. End Function
複製代碼
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-17 
15#
發表於 2018-6-18 10:38 | 只看該作者
回復 10# iamaraymond

9樓的圖是那個程式下載加變碼的
謝謝

TOP

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
14#
發表於 2018-6-18 10:28 | 只看該作者
回復 9# f3202

這應該可以使用您在另外一個帖子回的
http://forum.twbts.com/redirect. ... 3&fromuid=30076
xmlhttp+htmlfile來抓到
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

DanielWONG

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

请教这个指标可以用vba提取吗？

这里真是高手云集，以前一些以为没法用VBA提取的资料原来是可以的！那么请教下面这个网站的RSI数据可以用vba自动提取吗？ 谢谢！

http://www.aastocks.com/tc/stock/detailchart.aspx?symbol=110000#GTop

TOP

DanielWONG

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


   Very  Nice code!  Thank you very much!

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-11-17 
11#
發表於 2018-6-17 15:40 | 只看該作者
本帖最後由 f3202 於 2018-6-17 15:43 編輯

回復 8# iamaraymond


a99之後股名下載不到
謝謝

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

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
12
返回列表 上一主題