在QTP中读取excel中的数据

‘在query工作簿的querySheet表单中填写测试数据（查询内容）

Set excelObj = CreateObject("Excel.Application")

Set workbook = excelObj.Workbooks.Open("C:\query.xls")

Set sheet = workbook.Sheets("querySheet")

rownum = sheet.UsedRange.Rows.Count

For  i=2 to rownum

    queryContent = sheet.cells(i,1).value     

JavaWindow("主菜单").JavaMenu("查询").Select

JavaWindow("查询").JavaEdit("查询内容:").Set queryContent

JavaWindow("查询").Close

Next

excelObj.Quit

Set excelObj=nothing