# GetTypeBlock 方法
GetTypeBlock(TypeName,Block)
得到指定分类下的板块集合.
返回值：返回ArrayString对象类型包含的板块数量
参数
| 参数 | 说明 |
|---|---|
| TypeName | 输入参数，分类名称，例如“地域”分类 |
| Block | 输出参数，ArrayString对象类型，返回该分类名称下的所有板块的合集 |
示例
Sub Test()
'创建Block外部对象，将对象实例置变量b中
Set b = CreateObject("Stock.Block")
'创建一个变量
Dim d
'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.ArrayString")
'显示数量并打印输出所有板块
msgbox b.GetTypeBlock("概念",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
应用于