以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA获取SAR指标失败  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=149899)

--  作者:kooex
--  发布时间:2017/3/30 12:10:09
--  VBA获取SAR指标失败
获取MACD指标的DEA成功,如下代码
Sub UserForm1_CommandButton1_Click()
Set Data1= marketdata.GetHistoryData("if06","zj",2)
Set Formula = marketdata.StkindiByData("MACD",Data1)
for i=1 to 5

msgbox Formula.GetBufData("DEA",Data1.Count-i)
next

End Sub
成功

因为SAR没有可显示值,后来我在公式里增加了显示变量SARV,还是失败,再自定义函数,还是一样失败,如下代码:
Sub UserForm1_CommandButton1_Click()
Set Data1= marketdata.GetHistoryData("if06","zj",2)
Set Formula = marketdata.StkindiByData("SAR",Data1)
for i=1 to 5

msgbox Formula.GetBufData("SARV",Data1.Count-i)
next

End Sub
失败

--  作者:王锋
--  发布时间:2017/3/30 16:52:20
--  
请给出你的PEL公式的代码,否则我们这边没法测试