Question

我对这个论坛的新手很新。我搜索了论坛，但没有找到我要找的答案。我正在编写一个宏来启动Bloomberg DDE，所以当点击一个按钮时，终端窗口会出现在前面，并且已经提交了特定的语法。

一般情况下，假设$ B $ 3 = MSFT，$ H $ 2 = CSCO，$ E $ 9 = GIS

如果用户在电子表格上选择MSFT然后点击GIP30按钮，我希望将以下内容发送到BB终端：

MSFT GIP30

因此，除了识别选择了哪个单元格的宏之外，在传输到BB DDE之前可能需要附加“US”。我从网上拿了一些花絮。

当我硬编码“MSFT US”时，它可以工作，但需要它是动态的。我注释掉了“动态”代码。

感谢所有帮助。

感谢。

Sub OpenGIP()

Dim ch As Long
ch = DDEInitiate("winblp", "bbk")
'Opens Bloomberg window #2 (Note: <blp-n> - where n is [BB Window instance # - 1])
Call DDEExecute(ch, "<blp-1><home> MSFT US <EQUITY> GIP30 <GO>")
'Call DDEExecute(ch, "<blp-1><home> ActiveCell.Value & ' US' <EQUITY> GIP30 <GO>")
Call DDETerminate(ch)

End Sub

Answer 1

试试这个

Call DDEExecute(ch, "<blp-1><home> " & ActiveCell.value & " US <EQUITY> GIP30 <GO>")

用户选择随机excel单元格，单击按钮，宏执行 - Bloomberg DDE

1 个答案: