Sub Test()
Set Formula = marketdata.STKINDI("if07","zj","策略名称",0,5) '取日线信号
application.MsgOut "数据数量" & Formula.DataSize
for i=0 to Formula.DataSize-1
application.MsgOut Formula.GetBufData("Cc",i) 'Cc为策略中的信号(虚拟持仓变量)
next
End Sub
如果要取最后一根K线的信号,可以使用Formula.GetBufData("Cc",Formula.DataSize-1)
使用此方法有些问题,如果没有打开过技术分析图,会取不到数据的,不知道是不是金字塔的bug,还需要请开发人员测试。
说明历史数据没有补充,打开图表后会自动补充数据。
使用VBA调取公式时,应该先保证历史数据的完整性