Блог им. TaurusGOLD |📋 Создание Excel файла для торговли на ММВБ через QUIK

🚀 Шаг 1: Создаем новый Excel файл

1.1. Структура листов:

  • 📊 Котировки - текущие цены инструментов

  • 🎯 Торговля - ручная отправка заявок

  • 🤖 Автоторговля - автоматические стратегии

  • 💼 Портфель - текущие позиции

  • ⚙ Настройки - параметры подключения

  • 📈 Графики - визуализация данных



🎨 Шаг 2: Настраиваем листы

Лист «Настройки» (Settings)

A1: "НАСТРОЙКИ ПОДКЛЮЧЕНИЯ К QUIK"
A3: "DDE Service:"      B3: "QLUA"
A4: "DDE Topic:"        B4: "QuikTrans2"
A5: "Торговый счет:"    B5: "L01-00000F00"
A6: "Клиентский код:"   B6: ""

A8: "СПИСОК ИНСТРУМЕНТОВ"
A9: "Тикер"   B9: "Название"        C9: "Класс"   D9: "Лот"
A10: "GAZP"   B10: "Газпром"        C10: "TQBR"   D10: "10"
A11: "SBER"   B11: "Сбербанк"       C11: "TQBR"   D11: "10"
A12: "LKOH"   B12: "Лукойл"         C12: "TQBR"   D12: "1"
A13: "GMKN"   B13: "Норникель"      C13: "TQBR"   D13: "1"

 

Лист «Котировки» (Quotes)

A1: "ТЕКУЩИЕ КОТИРОВКИ"
A2: "Тикер"   B2: "Послед."   C2: "Бид"   D2: "Оффер"   E2: "Объем"   F2: "Время"   G2: "Изменение %"


( Читать дальше )
  • обсудить на форуме:
  • QUIK

Блог им. TaurusGOLD |📊 Торговля на Московской бирже через Excel + QUIK

🔧 Настройка связи Excel → QUIK

1. Установка необходимых компонентов

vba
' В Excel нужно добавить ссылки на библиотеки:
' 1. QUIK API (qlua.exe)
' 2. Microsoft XML
' 3. ADODB для работы с базой данных

2. Базовый шаблон торговой таблицы Excel

 
A B C D E F G
Тикер Направление Кол-во Цена Статус ID заявки Действие
GAZP BUY 10 160.50 Ожидание   📥 Отправить
SBER SELL 5 280.30 Ожидание   📥 Отправить

Код для Excel VBA


vba
' Модуль для работы с QUIK через DDE
Option Explicit

' Настройки подключения
Private Const QUIK_DDE_SERVICE = "QLUA"
Private Const QUIK_DDE_TOPIC = "QuikTrans2"
Private Const TRANS2_TABLE = "TRANS2"

' Подключение к QUIK
Public Sub ConnectToQUIK()
    On Error GoTo ErrorHandler
    
    Dim ddeChannel As Long
    ddeChannel = DDEInitiate(QUIK_DDE_SERVICE, QUIK_DTE_TOPIC)
    
    If ddeChannel > 0 Then
        ThisWorkbook.Sheets("Контроль").Range("B2").


( Читать дальше )
  • обсудить на форуме:
  • QUIK

....все тэги
UPDONW
Новый дизайн