代码之家 › 专栏 › 技术社区 › Mauro

循环上Bloomberg函数的VBA问题

bloomberg vba database

Mauro · 技术社区 · 7 年前

Sub addbdh()

Dim i As Integer
Dim n As Integer

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select

n = Selection.Count

For i = 1 To n

Cells(3, i * 2 - 1).Formula = "BDH(""A"" & "i * 2 - 1", "A1", "B1, "hoy()")"

Next i

End Sub

问题是我在指令上出现了一个错误:

Cells(3, i * 2 - 1).Formula = "BDH(""A"" & "i * 2 - 1", ""A1"", ""B1"", "Today()")"

谁能帮我找出代码上的错误?

非常感谢你。

1 回复 | 直到 7 年前

Vityata 7 年前

一般来说 .Formula 显示了真正的英语公式。不管你的语言是什么。因此 Hoy() 应更改为 Today() .

Cells(3, i * 2 - 1).Formula = "=BDH(A" & i * 2 - 1 & ", A1, B1, Today())"

通常,当您遇到类似“如何将工作Excel公式转换为VBA”的问题时,请执行以下操作:

从即时窗口中取公式,稍加修改以放入变量 i * 2 - 1 .

Public Sub PrintMeUsefulFormula()

    Dim strFormula  As String
    Dim strParenth  As String

    strParenth = """"

    strFormula = Selection.Formula
    strFormula = Replace(strFormula, """", """""")

    strFormula = strParenth & strFormula & strParenth
    Debug.Print strFormula

End Sub

推荐文章

jason · 彭博APIv3获取参考数据覆盖

6 年前

Sayan · 彭博公式更新

7 年前

Anastazie Sedlakova · 彭博API/blp/REF数据:stockinfo

7 年前

rainer · 多时间序列Excel下载

7 年前

Chuck Remes · 彭博Excel公式结果长度限制

7 年前

Mauro · 如何在公式中引入循环计数以跳过列

7 年前

Mauro · 循环上Bloomberg函数的VBA问题

7 年前

Michael Stern · 将BloombergLP::blpapi::Name转换为常量字符*

8 年前