2013-02-19 5 views
1

Я довольно новичок в макросах и новичок в этом форуме. Я искал форумы и не нашел ответа, который я ищу. Я пишу макрос для запуска Bloomberg DDE, поэтому при нажатии кнопки окно терминала выходит на передний план с уже представленным синтаксисом.Пользователь выбирает случайную ячейку excel, кнопку кликов, выполняется макрос - Bloomberg DDE

ради общего, скажем, что $ B $ 3 = MSFT, $ H $ 2 = CSCO, $ E $ 9 = GIS

если пользователь выбирает MSFT на таблицу, а затем нажимает на кнопку GIP30, я хочу следующие отсылаются терминалу BB:

MSFT GIP30

Таким образом, в дополнение к макро, идентифицирующей, что клетка была выбрана, «US», возможно, должны быть добавлены перед передачей BB DDE. Я взял несколько лакомых кусочков со всего Интернета.

Получил его, чтобы работать, когда я жестко закодировал «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 

ответ

2

Попробуйте

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

альт! Спасибо! – CMR72

+0

Рад помочь! :) –

 Смежные вопросы

  • Нет связанных вопросов^_^