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
私たちがお手伝いできるように闘争を定義してください。コードからのエラーメッセージや予期しない結果がそのまま現れていますか?問題のあるコード行を指摘できますか? –
Bloombergのドキュメントを公開してください。 SOコミュニティがこれを持つ可能性は非常にスリムです。 –
@ JimmySmith:問題を引き起こすのはBLP_DATA_CTRLLib.BlpDataです。私がExcel 2016でそれを実行する場合、ワークシートは単にクラッシュします。 – Jeweller89