使用 msXML2.xmlHTTP 取得股票交易資料 - Excel程式區

[發問] 使用 msXML2.xmlHTTP 取得股票交易資料

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

1^# 跳轉到 »

發表於 2017-7-1 08:01 | 顯示全部帖子

Option Explicit
Sub Ex()
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://tw.stock.yahoo.com/q/q?s=2330"
With oXmlhttp
.Open "Get", surl, False
.Send
oHtmldoc.write .responseText
End With
ActiveSheet.Cells.Clear
With oHtmldoc
Set E = .all.tags("table")(6)
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
ActiveSheet.Cells(R + 1, 1) = Trim(.all.tags("table")(4).INNERTEXT)
End With
End Sub

複製代碼

回復 4# Scott090

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

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。