Vbscript中的动态数组以及从excel中取值，放入动态数组中

'定义全局变量，供所有程序块使用,分别为excel实例对象，excel列值数组51Testing软件测试网v5L.b,a Ff~'t

dimobjExcel51Testing软件测试网 p6sS)j
J"I`_U&^;fv

dimary()

'定义把excel中列的值转换为数组的函数51Testing软件测试网Qn7I3}L0mR

functiontestF(i)

redimary(i)

ary(i)=objexcel.cells(i,1).value51Testing软件测试网W@,k9|,_

testF = ary(i)51Testing软件测试网7_}0|#Gy&I#|I({Mn

endfunction51Testing软件测试网mJ*\~xT0bf

subtest

'打开excel对象51Testing软件测试网 }*qOI!U_3?d

setōbjExcel = createobject("excel.application")

setōbjwk=objexcel.workbooks.open("d:\myfile.xls")51Testing软件测试网(e*Lm:{B$L

SetDriver =DDT.ExcelDriver("d:\MyFile.xls", "Sheet1")

fori =1to4

 log.message testF(i)51Testing软件测试网Hm-CDlQ8U}Ab

next51Testing软件测试网c(n)u/f;[2W5T!z

endsub51Testing软件测试网?C2H8up4le

 51Testing软件测试网jX r)hk2klP3V#g

 51Testing软件测试网0Q(n ~7X.{+L;@!C