ReDim area(area_rows) '定义一个动态数组,最大值为区域的个数
area_rows=Browser(Browser_name).Page(Page_name).Frame(Frame_name).WebList("name:=organ_code").GetROProperty("Items Count")
For i=1 to area_rows ''此处的j只能从1开始,否则报错,因为weblist是从1开始计算的
area(i)=Browser(Browser_name).Page(Page_name).Frame(Frame_name).WebList("name:=organ_code").GetItem(i)
'将下拉中的每个元素读取存放到数组中
'msgbox(area(i))
Next