金字塔决策交易系统里实现股票交易策略实盘自动下单方法

金字塔提供了VBA方式的二次开发接口，而VBA是可以很容易调用COM自动化接口组件来实现下单的。下面的代码可以实现把金字塔中的交易信号，对接到宽客帮策略执行系统中，从而实现自动交易：

测试宏

Sub Test()

Dim QuantOrder '定义宽客帮下单COM组件

Dim nCount

Dim bRet

Dim Info

'创建组件对象

Set QuantOrder = CreateObject("ZMOrder.QuantTrade")

'指定应用类型，256默认为金字塔

QuantOrder.AppType = 256

'指定宽客帮定时扫描文件变化定时器，毫秒

QuantOrder.ScanTimer = 500

'添加名称为策略3的策略，返回策略编号，在宽客帮对接插件管理中也可以先编辑维护好策略列表信息

nQuantID = QuantOrder.AddQuant("策略3",1)

'启用金字塔策略信号

QuantOrder.Enable = true