Использование API Bloomberg в vba - PullRequest
4 голосов
/ 04 января 2012

Я пытаюсь загрузить данные с помощью API Bloomberg с помощью этой функции -

' Make certain you have a Reference to C:\blp\API\ActiveX\blpdatax.dll
Sub FindBloombergData()
On Error GoTo Handler:

Dim oBlp As BLP_DATA_CTRLLib.BlpData
Dim ReqSecurities As Variant
Dim ReqFields As Variant
Dim vtResult As Variant
Dim n As Integer

Set oBlp = New BlpData
ReqSecurities = Array("SX5E Index")

ReqFields = Array("OPT_CHAIN")

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

Stop 'and look at the results in Local or Watch Window
For n = 0 To UBound(vtResult(0, 0), 1)
Debug.Print n, vtResult(0, 0)(n, 0)
Next

Handler:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical
End If

Set oBlp = Nothing
End Sub

Однако, всякий раз, когда я пытаюсь запустить его, я получаю эту ошибку: «определенный пользователем тип ошибки компиляции не определен»я делаю не так?он выделяет строку кода с этим кодом: Dim oBlp As BLP_DATA_CTRLLib.BlpData, но у меня определенно установлен Bloomberg API

1 Ответ

2 голосов
/ 19 мая 2015

Я только что столкнулся с той же проблемой.Причина очень проста.Устаревший код был объявлен устаревшим в 2011 году, и Bloomberg больше не поддерживает его.Код необходимо преобразовать в службу Bloomberg COM V3.

...