Excel/VBA-如何使用BloombergUI.订阅拉式BDS？

我遇到了一个问题，当VBA运行时，彭博公式不会加载。我想用BloombergUI来解决这个问题

科林·莱格的回答适用于提取BDP数据，但我无法使其适用于BDS公式。有人知道如何修改代码吗

Dim xlCalc As XlCalculation Sub Test1()
    'early bound - reference to Bloomberg

    'save the calculation setting and then set to automatic
    xlCalc = Application.Calculation
    Application.Calculation = xlCalculationAutomatic

    Sheet1.Range("C2:H4").Formula = "=BDP($B2,C$1)"
    BloombergUI.RefreshAllStaticData
    Application.OnTime Now + TimeValue("00:00:02"), "HardCode" End Sub   Sub HardCode()
    Sheet1.Range("C2:H4").Value = Sheet1.Range("C2:H4").Value
    Application.Calculation = xlCalc End Sub

---

我想你正在寻找这样的东西：

如果需要在VBA中使用Bloomberg返回的值，则需要等待所有值首先返回