2

タイトルが示すように、多くの人が使用していた API が Yahoo によって無効にされたため、株式情報の代替ソースを探しています。私が見ている新しいソースはここにあります: https://iextrading.com/developer/

私の質問は、実際にデータを Excel に取り込む方法です... VBA を使用して Yahoo からデータを取得していたので、VBA を使用して考えていました。しかし、私がやりたいことは、現在の私の能力をはるかに超えていると思います... また、次の URL で Excel の WEBSERVICE() 関数を使用して、単純に価格を調べてみました: https://api.iextrading.com/1.0 /stock/aapl/price でもうまくいきませんでした。私の理解では、IEX は大量のデータを無料で提供してくれていますが、アクセス方法がわかりません。私の VBA の理由は、ワークブックの入力リストをティッカーに使用できるようにするためであり、このデータ アクセスを多くのワークブックに配置できるようにするためです。どんな助けでも大歓迎です。さらに、私が自分でこれを学び始めるためにどこを見ることができるかについてのあらゆる種類の方向性も同様に歓迎されます. ありがとう。

更新:私のコメントに記載されているコード

Function StockPrice(ticker As String, item As String) As Double

Dim strURL As String, strCSV As Double, itemFound As Integer, tag As String

itemFound = 0
If item = "lastprice" Then
    tag = "price"
    itemFound = 1
ElseIf item = "pe" Then
    tag = "peRatio"
    itemFound = 1

End If

If itemFound = 1 Then

    strURL = "https://api.iextrading.com/1.0/stock/" & ticker & "/" & tag
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    XMLHTTP.Open "GET", strURL, False
    XMLHTTP.send
    StockPrice = XMLHTTP.responseText
    Set XMLHTTP = Nothing

Else

    StockPrice = "Item Not Found"

End If

End Function
4

4 に答える 4

3

これは少し単純化されているかもしれませんが、これが始まりです。

Sub IEX()
Dim Price As Single

    Price = Application.WebService("https://api.iextrading.com/1.0/stock/aapl/price")

End Sub
于 2017-11-16T16:21:25.650 に答える