Bloomberg API参考

Question

我有以下代码，可以很好地使用Excel 2010，但由于Bloomberg更新的API，此代码将不能在Excel 2016中工作。参考BLP_DATA_CTRLLib.BlpData已经过时了，但我很难使用新的API参考。

有人知道如何更新我的Bloomberg参考以存储报价吗？

Function Get_BBG_Price(dataa As Variant, CISI As Long)

    Dim ReqSecurities As Variant, vtResult As Variant, ReqFields As Variant
    Dim Arraystr As String
    Dim oBlp As BLP_DATA_CTRLLib.BlpData

    ReDim ReqSecurities(1 To UBound(dataa, 1))

    For i = 1 To UBound(dataa, 1)

        ReqSecurities(i) = dataa(i, CISI) & "@IEHY ISIN" '  

    Next i

    Set oBlp = New BlpData

   '
   ReqFields = Array("PX_BID")

   With oBlp
       .SubscriptionMode = ByRequest
       .Subscribe ReqSecurities, 1, ReqFields, , , vtResult
   End With

   Get_BBG_Price = vtResult

End Function

Answer 1

我看了一下，看起来这个版本的代码已经被弃用了。我认为你会得到“无法创建对象”的错误，但它可能会在2016年隐藏这一点。

您可能希望使用他们这里提供的C#版本https://www.bloomberglabs.com/api/libraries/

为了使用它，我会在这里使用代码，http://mikejuniperhill.blogspot.com/2013/06/bloomberg-v3com-api-wrapper-update-for.html *代码太长了，否则我会在这里发布它。