以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  请问老师  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=97667)
--  作者：qq代人发帖
--  发布时间：2016/5/20 15:50:09
--  请问老师
 sub s5()

Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = True
.Workbooks.Open("C:\\Users\\wei.zhou\\Desktop\\0.xlsm")
.cells(1,6).value＝STKINDI(\'SH600000\',\'RSI\',0,2)
end sub

 .cells(1,6).value＝STKINDI(\'SH600000\',\'RSI\',0,2)
这个函数老是调试不好，提示错误

 STKINDI(\'SH600000\',\'RSI\',0,2)
是这样用的吧
--  作者：yukizzc
--  发布时间：2016/5/20 16:17:41
--  

vba里面调用stkindi不是这么写的,看下下例子

Set Formula = marketdata.STKINDI("if08","zj","ma(5,10,20,60)",0,0) \'调用中金所IF08合约的1分钟的MA移动平均

msgbox Formula.GetBufData("ma3",924) \'显示第925根k线上的MA3指标线数值