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

金字塔提供了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

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

‘启用金字塔策略信

QuantOrder.Enable = true

‘取当前已存在的策略数量

nCount = QuantOrder.QuantCount

‘根据策略ID取策略信息

Info = QuantOrder.GetQuant(1)

‘根据策略遍历序 取策略信息

Info = QuantOrder.QuantByIndex(0)

‘下单编 5，股票代码600000，数量1000股，价格10.30，买入，策略ID是1,Date可指定交易时间

bRet = QuantOrder.AddTrade(“5″,”600000”,1000,10.30,true,1,Date)

‘下单编 6，股票代码000001，数量2000股，价格11.5，卖出，策略ID是2,Date指定交易时间

bRet = QuantOrder.AddTrade(“6″,”0001”,2000,11.5,false,2,Date)

‘保存下单指令以生效

QuantOrder.Save()

‘取今日已存在的交易委托数量

nCount = QuantOrder.TradeCount

‘根据交易委托ID取委托信息

Info = QuantOrder.GetTrade(5)

‘根据交易委托遍历序 取委托信息

Info = QuantOrder.TradeByIndex(0)

Set QuantOrder = Nothing

End Sub

代码中用到的COM组件及宽客帮策略执行系统，请在这里下载：https://download.csdn.net/download/quanthelper/10800430

下载程序解压后，按文档配置好，对金字塔的插件配置如下：