- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5)
---- VBA里获取不到SAR指标值 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=149875)
-- 发布时间：2017/3/30 7:32:47
-- VBA里获取不到SAR指标值
msgbox FormulaSar.GetBufData("SAR",Data1.Count-i)总是结果出错，后来发现公式SAR没有显示值，就简单的“SAR(P,STEP,MAXP),CIRCLEDOT”，后来给SAR加了显示值，如“SARV:SAR(P,STEP,MAXP),CIRCLEDOT”，也是调用失败，后来自己手动新加了一个公式也调用失败，请问应该如何调用，谢谢
-- 发布时间：2017/3/30 9:04:33
--
完整贴下你的FormulaSar代码呢
光看这句看不出问题可能
-- 发布时间：2017/3/30 11:40:27
--
Set Data1= marketdata.GetHistoryData("if06","zj",6)
Set Formula =
marketdata.StkindiByData("SAR",Data1)
for i=Data2.Count-20 to Data2.Count-1
msgbox Formula.GetBufData("SAR",Data1.Count-i)
next
如果换成MACD就成功了
Set Data1= marketdata.GetHistoryData("if06","zj",6)
Set Formula = marketdata.StkindiByData("MACD",Data1)
for i=Data2.Count-20 to Data2.Count-1
msgbox Formula.GetBufData("DEA",Data1.Count-i)
next
-- 发布时间：2017/3/30 11:50:44
--
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
上面的失败
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
成功
-- 发布时间：2017/4/5 13:23:26
--
您先看下SAR指标
里面有没有sarv这个指标输出变量