标题：VBA STKINDI 的问题

1楼

deni977 发表于：2019/5/28 13:39:26

sPolicyName = "IF2019A1" '策略名称

iPeriod=13 '13多分钟，2分钟

Set Formula = marketdata.STKINDI("IF00","ZJ",sPolicyName,0,iPeriod,2,2300) 'IF300

CounTmp = Formula.DataSize-1

TRDKCC = Formula.GetBufData("ccc",CounTmp) '取得PEL策略持仓

application.MsgOut cdate(time) & ",IF00 pel持仓:" & TRDKCC

sPolicyName = "RB2019A1" '策略名称

iPeriod=0 '0，1分钟

Set Formula = marketdata.STKINDI("RB00","SQ",sPolicyName,0,iPeriod,0,2300) 'RB00

CounTmp = Formula.DataSize-1

TRDKCC = Formula.GetBufData("ccc",CounTmp) '取得PEL策略持仓

application.MsgOut cdate(time) & ",RB00 pel持仓:" & TRDKCC

sPolicyName = "RU2019A1" '策略名称

iPeriod=1 '1，5分钟

Set Formula = marketdata.STKINDI("RU00","SQ",sPolicyName,0,iPeriod,0,2300) 'RU00

CounTmp = Formula.DataSize-1

TRDKCC = Formula.GetBufData("ccc",CounTmp) '取得PEL策略持仓

application.MsgOut cdate(time) & ",RU00 pel持仓:" & TRDKCC

……

都是这样的写法，总共有18个品种，不同的策略名称、不同的周期，为什么读取不到PEL中的 CCC值？（策略加载在图表看到CCC是有数值的）

2楼

deni977 发表于：2019/5/28 13:45:41

补充一下，单个品种、单个策略来调取是可以得到 PEL 的CCC参数的

3楼

yukizzc 发表于：2019/5/28 16:53:01

注意: 该方法返回的Formula对象将使用共享的内存缓冲区,如果你有多个品种需要转换并且同时处理,请使用数组类Array保存转换后的Formula对象数据.

返回的数据你要一个个保存

4楼

deni977 发表于：2019/5/28 17:08:53

现在是调用后用 application.MsgOut 输出，这个结果全部都是0，保存到数据也是0.

5楼

无为剑 发表于：2019/5/28 17:26:35

Formula.DataSize 打印调试看一下这个变量是多少，如果是0那么检查marketdata.STKINDI参数是否有误

共5 条记录, 每页显示 10 条, 页签: [1]