QTP中读取Eexcel数据

^2l
ZFJ0   以下是我用QTP进行Excel数据的读取,希望可以给找这方面资料的朋友一点帮助,但也有可能代码有错误,请务必指出!以下是代码:

0l.T~-_uq fsT|!v0Option explicit
r7UpHd0I-mdoZ0Dim srcData,srcDoc,i,j51Testing软件测试网8h YqQ.l-N ?P4R
set srcData = CreateObject("Excel.Application")51Testing软件测试网$B f+o0zUcW
srcData.Visible = true51Testing软件测试网U L.}4Bv!o`
set srcDoc = srcData.Workbooks.Open("D:\test\calc.xls")51Testing软件测试网j?)D)Iw:Ps
       srcDoc.Worksheets("Sheet1").Activate
T"l4BQN;k3h!H0    Dim myarray(7,4),temp51Testing软件测试网?xf'AZ i'E2V*G
    Dim str
:r3q#B4~oO_F0    For i=2 to 7
f^(ZOz%h \0     For j=1 to 4
#s;BU\4cj0^t$X }0              myarray(i,j)= srcDoc.Worksheets("Sheet1").Cells(i,j).value
y!sq a!m&F~D*d0     Select Case j
vD;`'@%yDh[8p0     Case "1"51Testing软件测试网 xr#s3OEmJ
       str=str&myarray(i,j)&" "
"uc8X G9t.R0    Case "2"51Testing软件测试网FC _h&S:Iem @0H
      temp=myarray(i,j)
c{uV8y Q_.C0   Case "3"
0|n)\Ts.g}G0    str=str&myarray(i,j)&" "&temp
,RC o:[-sf \g%^0     Case "4"
FSK;A JU0      str=str&" = "&myarray(i,j)
2d8jm(f3a4d%\0     End Select
M
PY _j}7np0    Next51Testing软件测试网}E6kq+Sjq+B2EKo
    str=str&chr(13)
$X9L
Z.Fd0      Next51Testing软件测试网2g/y+?s,@ S7Nd^s+y
   srcData.Workbooks.Close
,t3PFR|
OrM"~0   msgbox str