在QuickTest Pro中使用Excel电子表格中的数据

Question

我一直在试图弄清楚如何做到这一点。这是我的情况：

我有一个Excel电子表格（让我们将其称为“ workbook.xls”，我需要将两张纸用于脚本。其中一张纸具有一列数​​据“ columnA”，我正尝试将单元格A2放入其中（A1是标头）放入我的QTP脚本中使用。

我希望能够使用此特定值，然后处理一些数据，然后使用下一个单元格A3处理另一个过程/过程，依此类推。是否可能？

在其他语言中，我知道我可以使用for循环来遍历数据，但是我一直在尝试处理数据，然后返回循环以获取数据。

例如：

Excel可能将A2设为“ 1”，将A3设为“ 2”。 我希望能够将A1的值放入浏览器的输入字段中。然后，我希望能够对该值进行一些操作（单击，写入另一个文件等）。然后，我想移动放在值A3上，然后将A3的值放入与以前相同的输入字段中，然后执行其他一些操作（这可能与我对A2所做的不一样）。 我想知道如何实现此方案。

提前致谢。

Answer 1

是的，有可能。 假设我正确理解了您的问题，则可以执行以下操作：

Set xl = CreateObject("Excel.Application")
xl.Visible = True  'set to False for production

Set wb = xl.Workbooks.Open("C:\path\to\workbook.xls")
Set ws = wb.Sheets(1)

firstRow = ws.UsedRange.Rows(1).Row
lastRow  = firstRow - 1 + ws.UsedRange.Rows.Count

For i = firstRow+1 To lastRow
  val = ws.Cells(i, 1).Value   'get value from cell
  'do stuff with val
Next

wb.Close
xl.Quit

Answer 2

测试的数据表是Excel电子表格。 您可以将数据导入QTP中测试的DataTable中（在默认工作表中），也可以添加自己的数据，然后通过代码访问它们：

Set sheet = DataTable.GetSheet "Sheet Name"
numRows = sheet.GetRowCount

For index = 0 To numRows
    value = sheet.GetParameter(index)
    'Do something
Next