# GetFromCount 方法
GetFromCount(Code, Market，TypeName,Block)
指定品种包含在那些板块中.
返回值：返回ArrayString对象类型包含的板块数量
参数
| 参数 | 说明 |
|---|---|
| Code | 输入参数，品种代码 |
| Market | 输入参数，市场标识名称,例如"SH"表示上海市场 |
| TypeName | 输入参数，分类名称，例如“地域”分类，若为空字符串则表示不限分类从全部板块中寻找 |
| Block | 输出参数，ArrayString对象类型，返回该分类名称下的所有板块的合集 |
示例
Sub Test()
'创建Block外部对象，将对象实例置变量b中
Set b = CreateObject("Stock.Block")
'创建一个变量
Dim d
'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.ArrayString")
'显示数量并打印输出所有板块
msgbox b.GetFromCount("600000","sh","概念",d)
for i = 0 to d.count-1
application.MsgOut d.getat(i)
next
'不要忘记释放对象，不然会导致内存泄漏
set b = nothing
set d = nothing
end sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
应用于