# OPTIONLABEL 方法
OPTIONLABEL(Index, Code, Market)
取指定索引的期权合约合约
返回值: 操作成功返回1 ，否则返回0
参数
| 参数 | 说明 | 备注 |
|---|---|---|
| Index | 基于0索引的期权合约序号 | 输入参数 |
| Code | 返回指定的品种代码. 注意：如果频繁调用该属性，请注意使用完毕后释放返回值 | 输入参数 |
| Market | 返回指定的品种市场. 注意：如果频繁调用该属性，请注意使用完毕后释放返回值 | 输入参数 |
注意：调用该函数前必须调用OPTIONSIZE函数取得合约列表并初始化缓冲区。
示例
Sub Test()
Dim Code
Dim Market
'调取50ETF标的合约的1509月份全部期权合约
Count = marketdata.OPTIONSIZE("510050","QQ","1509",0)
For i = 0 To Count-1
'遍历读取并打印该合约月份的全部合约市场及代码
If marketdata.OPTIONLABEL(i,Code,Market) > 0 Then
Application.MsgOut Market & "---" &Code
'释放字符串变量内存
Set Code = nothing
Set Market = nothing
End If
Next
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
应用于