欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → VBA获取SAR指标失败

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2183人关注过本帖树形打印复制链接

主题:VBA获取SAR指标失败

帅哥哟,离线,有人找我吗?
kooex
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:27 积分:0 威望:0 精华:0 注册:2017/3/28 16:08:14
VBA获取SAR指标失败  发帖心情 Post By:2017/3/30 12:10:09 [只看该作者]

获取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
失败

 回到顶部
帅哥哟,离线,有人找我吗?
王锋
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:罗宾汉 帖子:11808 积分:20695 威望:0 精华:10 注册:2009/8/18 8:15:13
  发帖心情 Post By:2017/3/30 16:52:20 [只看该作者]

请给出你的PEL公式的代码,否则我们这边没法测试


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部