QTP中读取Eexcel数据

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

Option explicit51Testing软件测试网nb$XZ%_([BbO
Dim srcData,srcDoc,i,j51Testing软件测试网9U4TN*v"E
set srcData = CreateObject("Excel.Application")
n-eT ^E;l6c5re B94129srcData.Visible = true
5C Oj(d:E Ac6W0r0Nk94129set srcDoc = srcData.Workbooks.Open("D:\test\calc.xls")51Testing软件测试网\J0kety ^'Q
       srcDoc.Worksheets("Sheet1").Activate
@\3d4a#_R
Du94129    Dim myarray(7,4),temp
Re;\)c:o @ zt5x+h7y94129    Dim str51Testing软件测试网 S@(I.`2Q3w}
    For i=2 to 7
N$iLG)C'A8~!h94129     For j=1 to 4

L
wPL!HEK94129              myarray(i,j)= srcDoc.Worksheets("Sheet1").Cells(i,j).value51Testing软件测试网3w`|v`:aZ F;_
     Select Case j
ff!h BI,\#g6w94129     Case "1"51Testing软件测试网|q*{FX;r+|;W"q
       str=str&myarray(i,j)&" "
h:N9kFM%ja94129    Case "2"51Testing软件测试网W c6Y&M6b
      temp=myarray(i,j)51Testing软件测试网@1J nTHn| r$qM&oK
   Case "3"51Testing软件测试网s5hE!Mn`8S_4nu
    str=str&myarray(i,j)&" "&temp51Testing软件测试网jc_g'NU
     Case "4"51Testing软件测试网HG2~.o:Cu
      str=str&" = "&myarray(i,j)51Testing软件测试网"w B:ONrt!Rq W
     End Select

wmN5H_94129    Next
4?0I K.M%y])T5F ~/j94129    str=str&chr(13)
8G`;\X/`k94129      Next51Testing软件测试网/Mw(E4r1F/|8b
   srcData.Workbooks.Close51Testing软件测试网!T.V3k3d'v PS
   msgbox str