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)
是这样用的吧
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指标线数值