function ran(i) '好像是为了定义对象
end function
nr = Browser("集团管理").Page("预订中心").WebList("ctl00$CRSRight$RevCrsPage1$Dro").GetROProperty("value") '取到内容01,并赋值给nr
sun = ran(nr)
msgbox (nr) '能正确显示nr的内容01
DataTable.Value("name","Global")= "#" &nr '想把01传到GlobalSheet的name中