1
2
3

Sub CollectQuoteRun()
UserForm1.Show
End Sub

Затем переходим к программированию формы.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

'----------------------
'создаем глобальную переменную для управления программой
Public StartStop As Integer
'----------------------
'код для кнопки "Старт"
Private Sub CommandButton1_Click()
Dim PauseTime, Start
Dim LastQuote As String
'передаем переменной значение времени паузы
PauseTime = UserForm1.TextBox1.Value
'устанавливаем курсор на ячейку под которой будут записыватся данные
Range("QUOTE_COLLECT").Select
StartStop = 1
'запускаем цикл обращения к ячейке с данными из дде
Do While StartStop = 1
'перемещаем курсор на одну ячейку вниз
ActiveCell.Offset(1, 0).Select
'записываем в переменную значение котировок
LastQuote = Range("GBPUSD_QUOTE").Value
'записываем в переменную значение текущего времени в секундах
Start = Timer
'запускаем цикл для задержки времени (по дефолту 1 секунда)
Do While Timer < Start + PauseTime
DoEvents
Loop
'спустя одну секунду, записываем значение котировок в нужном месте
ActiveCell.Value = LastQuote
'находимся в цикле пока переменная StartStop = 1
Loop
End Sub
'--------------------------
'код для кнопки "Стоп"
Private Sub CommandButton2_Click()
'передаем переменной значение 2 для остановки цикла
StartStop = 2
'закрываем форму
Unload Me
End Sub
'--------------------------

Сохраняем документ и запускаем наш макрос. В появившейся форме ставим количество секунд, через которое нужно сохранять данные. Нажимаем кнопку Старт. Пьем кофе и наблюдаем как записываются котировки.Такой вот, простенький макрос получился.
Если есть вопросы – welcome to comments!

Двери Montblanc! Покупай окна в коттедж в Крупках на сайте http://beloknadveri.ru

Заходим в меню сервис – настройки – сервер и ставим галочку в пункте “разрешить DDE сервер“.

Теперь торговый терминал MetaTrader передает данные в DDE.
Формат запроса к терминалу следующий: =MT4|ASK!GBPUSD
MT4 – имя терминала MetaTrader
ASK – параметр относящийся к обьекту запроса
GBPUSD – непосредственно обьект запроса
Обьектами запроса могут быть торговые инструменты – например EURUSD, USDCAD, _DJI и так далее … , а также обьекты торгового счета – ACCOUNT, BALANCE и соединения с сервером – CONNECT.
Параметры запроса относящегося к торговым инструментам – BID, ASK, LAST, QUOTE. К остальным обьектам параметр запроса – STATUS.
Далее подготовим Excel к получению данных.
Вопервых надо проверить настройки самого Excel.
Идем в Excel Options – Advanced - General и проверяем что снята галочка в пункте Ignore other applications that use Dynamic data exchange (DDE)

Дальше в разделе Excel Options – Formulas - Working with formulas включаем R1C1 reference style.
Это надо сделать для того чтобы Excel воспринимал ввод “=MT4” как обращение к MetaTrader, а не ссылку на ячейку с координатами MT4.

Еще один момент! Если установлен русский Windows – то в настройках региональных параметров надо установить разделитель целой и дробной части – точка. Иначе, например данные 1.2788 будут восприниматься как первое января 2788-го года и в ячейке с форматом General будут отображаться как число 324347.
Теперь, когда MetaTrader и Excel подготовлены к соединению по DDE и известен формат запроса к серверу, можно начинать делать таблицу.
Создаем новую таблицу например Quotes.xlsx и в любую ячейку можем записать, допустим “=MT4|ASK!GBPUSD ” (естественно, записываем без ковычек). Нажимаем Enter и получаем котировку ASK валютной пары GBPUSD.

Вот собственно, и все что надо сделать чтоб получать данные от MetaTrader в Excel. Дальше эти данные можно использовать как угодно. Производить рассчеты, строить всевозможные графики, создавать портфели инструментов и так далее.
Некоторые примеры использования этих данных я покажу позже.