QTP读取EXCEL中的数据

'MODULE DEscrīptION:
'USER:
'GOLBAL FUNCTIONS AND VARIABLES DEFINED IN THIS MODULE:
'
'Date        Who      Rev             Comment
'-----------------------------------------------------------------
'
'
'******************************************************************
 Set excelapp=createobject("excel.application")
 Set excelbook=excelapp.workbooks.open("c:\test.xls")
 Set excelsheet=excelbook.worksheets("sheet1")
For i=1 to 4
 For j=1 to 2
 testno1=cstr(excelsheet.cells(i,j))
 msgbox (testno1)
 Next
Next