主题：[求助]如何将交易信号导入金字塔并实现程序化交易

 Sub APPLICATION_VBAStart()
call Application.SetTimer(1,1000) '1S触发一次
End Sub

Sub APPLICATION_Close()
call Application.KillTimer(1)
End Sub

Sub APPLICATION_Timer(ID)
call Operate()
End Sub

Sub Operate()
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
    ("D:\Scripts\output.xls")
    
way = objExcel.Cells(1, 1).Value  '取第一个单元格数据
If Err.Number=0 Then
Select Case way
    '通过order执行操作，参数需要填充
   Case 1
        'order.Buy(Type,Vol,Price,StoplmtPrice,Code,Market,AccountID,Valid)
   Case 2
        'order.Sell(Type,Vol,Price,StoplmtPrice,Code,Market,AccountID,Valid)
   Case 3
        'order.BuyShort(Type,Vol,Price,StoplmtPrice,Code,Market,AccountID,Valid)
   Case 4
        'order.SellShort(Type,Vol,Price,StoplmtPrice,Code,Market,AccountID,Valid)
End Select
End If

objExcel.Quit
End Sub

设计个INI文件，excel那头只能用一般写文本文件的方式写。金字塔这头提供专用访问ini文件的函数，访问很方便。
output.ini

[contract]
code=***
market=***

[operation]
tag=*
way=***
mode=***
vol=***
price=***

用tag标志是否有效，excel更新信息后置为有效，金字塔读取后置无效，防止重复执行
其它的诸如开平买卖，限价市价，手数，指定价格等