我有以下代码,它可以在Excel 2010中正常工作,但由于Bloomberg更新的API,此代码在Excel 2016中不起作用。引用BLP_DATA_CTRLLib.BlpData已过时,但我很努力地使用新的API参考。Bloomberg API参考
有谁知道如何更新我的彭博社参考,以便存储报价?
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
定义斗争,所以我们可以帮助你,你从代码或意想不到的结果是错误信息是吗?你能指出一行代码给你带来麻烦吗? –
请发布一些关于彭博的文档。 SO社区拥有这个机会非常渺茫。 –
@JimmySmith:这是导致问题的BLP_DATA_CTRLLib.BlpData。如果我在Excel 2016上运行它,工作表只会崩溃。 – Jeweller89