# GetSelfData 方法
GetSelfData(Name, Code, Market)
读取指定自定义数据内容,返回值:根据自定义数据项内容返回相应的数据,当为证券相关序列和横向统计类型时返回数组,其他则相应返回单值数字。若调用失败则返回Empty空值。
参数
参数 | 说明 |
---|---|
Name | 自定义数据项名称 |
Code | 品种代码(当自定义数据属性为横向统计时该参数无需填写) |
Market | 品种代码(当自定义数据属性为横向统计时该参数无需填写) |
示例
调取证券类相关序列自定义数据
Sub Test()
dim data
dim data_date
'调取序列主数据
data = marketdata.GetSelfData("data1","600004","sh")
'调取对应的数据日期
data_date = marketdata.GetSelfDataByDate("data1","600004","sh")
if IsEmpty(data) <> true then
count = UBound(data)
'循环打印输出数据内容
for i = 0 to count
application.MsgOut data_date(i) & " "& data(i)
next
end if
'销毁数组数据
Set data = nothing
Set data_date = nothing
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
25
26
27
28
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
应用于