Yahoo Finance引用解决方案历史数据/ CSV下载

时间:2018-04-10 14:48:15

标签: yahoo-finance

我的目标是使用VBA获取给定股票代码的历史雅虎融资价格。通常使用.responseText来删除数据很容易。 我使用下面的代码,但似乎字符串太长,无法废弃数据。当我看到strResult时,我无法看到数据。

有没有人经历过同样的事情? 它是字符串大小的限制吗? 你有任何解决方法吗?感谢

Public Sub Hdata2()

Dim strURL As String Dim obj作为MSXML2.XMLHTTP60 Dim strResult As String

strURL = "https://uk.finance.yahoo.com/quote/DRI.F/history?period1=1428620400&period2=1523314800&interval=1wk&filter=history&frequency=1wk"

Set obj = New MSXML2.XMLHTTP60
obj.Open "GET", strURL, False
obj.send
strResult = obj.responseText
Set obj = Nothing

End Sub

0 个答案:

没有答案