Cant call Adfin bond function 'BdCashFlows' from VBA

Options
Sanjit.Rath
Sanjit.Rath LSEG
in Eikon COM

Hi, I am trying to call Adfin bond module function "BdCashFlows" from VBA. I can create a Bond module by calling "CreateAdxBondModule" however call to BdCashFlows fails with Object Required. I am also not able to reference adxfoo.dll in my project. It shows error while loading dll. Below is my VBA code snippet: 

    Dim calcDate As Date
    Dim matDate As Date
    Dim nominalCouponRate As Double
    Dim bondStruct As String
    Dim bdMode As String


    'cashflow parameters

    calcDate = "15-Apr-2000"
    matDate = "01-Dec-2015"
    nominalCouponRate = 0.08
    bondStruct = "FRQ:1 RT:C"
    bdMode = "IAC RET:A16"


    Dim bm As Object
    Dim cf As Object

    'create bond module
    Set bm = CreateAdxBondModule()

    'call BdCashFlows
    Set cf = bm.BdCashflows(calcDate, matDate, nominalCouponRate, bondStruct, bdMode)
Tagged:

Best Answer

  • Sanjit.Rath
    Sanjit.Rath LSEG
    Answer ✓

    Hi @Zhenya Kovalyov

    Thanks for looking into the query and webex session to resolve the issue. The issue was with explicit types (ex: Date) passed to Adfin BdCashFlows which expects them as variant type.

    Secondly, the module type was set up as an object, it should be AdfinXAnalyticsFunctions.AdxBondModule

    Corrected code 

        Dim calcDate As Variant
        Dim matDate As Variant

        Dim nominalCouponRate As Double
        Dim bondStruct As String
        Dim bdMode As String


        Dim bm As AdfinXAnalyticsFunctions.AdxBondModule

        Set bm = CreateReutersObject("AdfinXAnalyticsFunctions.AdxBondModule")

        calcDate = DateValue("15-Apr-2000")
        matDate = DateValue("01-Dec-2015")
        nominalCouponRate = 0.08
        bondStruct = "FRQ:1 RT:C"
        bdMode = "IAC RET:A16"

        Dim res As Variant
        res = bm.BdCashflows(calcDate, matDate, nominalCouponRate, bondStruct, bdMode)

Answers

Categories