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

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

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

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

双击QuantHelper.exe启动配置程序，点击“文件策略”后的界面再点击对接插件管理，选择股票软件类型为金字塔（确保金字塔行程序名称为WinStock.exe）可以点击按钮“自动检测软件”扫描本机安装的金字塔行软件，如果没有找到，请先启动金字塔行软件后再执行一次，另外点击一次按钮“安装插件”以便实现注册COM组件(如果您的程序是64位调用，请手工注册宽客帮程序X64子目录下的COM组件ZMOrder.dll，命令行 regsvr32 X64版实际目录+ZMOrder.dll写入一个bat批处理文件保存后，右键以管理员权限执行一次)。然后编辑维护好自己的策略列表，系统会自动生成策略的编号，而在调用交易函数中需要直接传入这儿的编号，在COM组件接口中也可以直接通过函数实现编辑策略信息。关于这个COM组件的接口说明，请参考程序包里的说明。