qtp的datatable

b| Q0z3cOW0aM[Pp0今天有人发帖，问如何取excel的数据51Testing软件测试网 ^\.Seq/d9Z Q&U

本人写了一个，另外导入的xls文件第一行会被当做sheet的字段名,切记.

使用split返回的是数组 ,最后使用m(i)来存放取到的数据.

Dim p(9),i,input
B(}$@ Y%TU J H#Ml0i =151Testing软件测试网4L` B)mML
sub put1(excelname)
J!C`(fz8aa6x0Dim out1
'll.d{;mnc;N/Y0datatable.ImportSheet excelname,1,"Global"  '

nD;I1u"Wi-e0out1= datatable.GetSheet("Global").GetParameter("A")51Testing软件测试网 lB0L/ZP+E(X
p(i-1) = out1
8B.SCS/w&vpSG0end sub 51Testing软件测试网
o G c#kN];R"R.h
Do 51Testing软件测试网 `0Cd8O
p$]u6q
 Input = InputBox("Enter excel name")
*R#B:b@2do0 If   Input ="" Then
o:W5z$oO0  Exit do
D2pA"^"z g5Hc0 End If51Testing软件测试网]{LZO:`
call put1("D:\"&input)51Testing软件测试网b5l6s2?!oCm
i=i+151Testing软件测试网0l J QY-H7qju
Loop 51Testing软件测试网N({-v;WZ9^ PfX9LE
Dim a ,q,m(9)51Testing软件测试网@5IWn5Q/E_m
i = 051Testing软件测试网a,S,y2co&F'O(z
do  until p(i)=""51Testing软件测试网h+r wh0E*K,]Nfs
q= split(p(i),"_",-1,1)
/jlb {0m(i)=q(0)
3Q-Rv5h6V#dx M\(DT'{0i =i+1
?Sd)Z.{*F C:sD0loop
{[.NL/U5l_051Testing软件测试网2g].]_PH