QTP中读取Excel表格中的数据

Option explicit
Dim srcData,srcDoc,i,j
set srcData = CreateObject("Excel.Application")
srcData.Visible = true

set srcDoc = srcData.Workbooks.Open("D:\test.xlsx")
       srcDoc.Worksheets("Sheet1").Activate
    Dim myarray(7,4),temp
    Dim str
    For i=1 to 5
     For j=1 to 4
              myarray(i,j)= srcDoc.Worksheets("Sheet1").Cells(i,j).value
              str = str & myarray(i,j)
     Next
        str=str&chr(13)
      Next
   srcData.Workbooks.Close
   msgbox str

=====================================================
Excel表格test.xlsx内容如下：
no   name    sex
1     Alllen     男
2     Jim         男
3     Lucy       女