[求助]请问下VBA的order对象需要专业版才能使用，那意思是免费版无法通过VBA来做程序化交易？ - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

下面这代码，开仓条件应该是恒成立的，但运行后什么反应都没

Sub TLStart()

call marketdata.RegReportNotify("IC00","ZJ")

call marketdata.RegReportNotify("IF00","ZJ")

End Sub

Sub MARKETDATA_ReportNotify()

Set Report1 = marketdata.GetReportData("IC00","ZJ")

Set Report2 = marketdata.GetReportData("IF00","ZJ")

msgbox Report1.SellPrice1

msgbox Report2.BuyPrice1

dim BuyHoding1

dim BuyHlding2

dim BuyTodayHoding1

dim BuyTodayHoding2

dim SellHoding1

dim SellHoding2

dim SellTodayHoding1

dim SellTodayHoding2

dim BuyCost

dim SellCost

dim PNL

Dim UseMargin

call Order.HoldingInfoByCode2("IC00","ZJ",BuyHoding1,BuyCost,BuyTodayHoding1,SellHoding1,SellCost,SellTodayHoding1,PNL,UseMargin)

call Order.HoldingInfoByCode2("IF00","ZJ",BuyHoding2,BuyCost,BuyTodayHoding2,SellHoding2,SellCost,SellTodayHoding2,PNL,UseMargin)

Diff = Report1.SellPrice1 - Report2.BuyPrice1 '分别取卖价和买价计算差价

if Diff > 2800 and BuyHoding1 = 0 then

call Order.Buy(0,1,Report1.SellPrice1,0,"IC00","ZJ","",0)

call Order.BuyShort(0,1,Report2.BuyPrice1,0,"IF00","ZJ","",0)

end if

Diff = Report1.BuyPrice1 - Report2.SellPrice1

if diff < 2800 and BuyHoding1 > 0 then

call Order.Sell(0,1,Report1.BuyPrice1,0,"IC00","ZJ","",0)

call Order.Sellshort(0,1,Report2.SellPrice1,0,"IF00","ZJ","",0)

end if

End Sub

主题：[求助]请问下VBA的order对象需要专业版才能使用，那意思是免费版无法通过VBA来做程序化交易？