51Testing软件测试论坛

标题: qtp 如何通过控制excel里的数据，和页面为table里的数据进行比较 [打印本页]
作者: auto_tester    时间: 2014-4-21 13:52
标题: qtp 如何通过控制excel里的数据，和页面为table里的数据进行比较
本帖最后由 auto_tester 于 2014-4-22 13:18 编辑

大家好啊，大家谁知道qtp如何通过导入excel，控制excel里面的数据和页面table里的数据进行比较！
作者: auto_tester    时间: 2014-4-21 13:55
回复 1# auto_tester
高人谁有这样的例子，请赐教！
作者: auto_tester    时间: 2014-4-23 09:00
For i = 1 To 1 Step 1
       
For j = 1 To 2 Step 1

Set excel = createobject("Excel.Application")
excel.Workbooks.Open "D:\Test.xlsx"
Set osheet = excel.Sheets.Item(1)

d =osheet.cells(i,j)
print d
Dim result
For b = 2 to Browser("IDS Super - Member Details").Page("IDS Super - Member Details").WebTable("Pension Account").RowCount
          result = trim(cstr(Browser("IDS Super - Member Details").Page("IDS Super - Member Details").WebTable("Pension Account").GetCellData(b,4)))

    If  d = result then
                                Reporter.ReportEvent micPass,"Current Withdrawals" ,"预期是" &d& "实际是" &result
                        else
                       
                            Reporter.ReportEvent micFail,"Current Withdrawals","预期是" &d& "实际是" &result
           
    End If
Next
Next
next
为什么从我上面excel取出来的一个值，而通过webtable取出来的是一行值，而我想要实现的是从excel里取出来的值和webtable里去出来的值是一一对应的关系，我应该如何做？
作者: auto_tester    时间: 2014-4-23 09:07
  1. For i = 1 To 1 Step 1
  2.        
  3. For j = 1 To 2 Step 1

  5. Set excel = createobject("Excel.Application")
  6. excel.Workbooks.Open "D:\Test.xlsx"
  7. Set osheet = excel.Sheets.Item(1)

  9. d =osheet.cells(i,j)
  10. print d




  15.        
  16.        

  18. Dim result
  19. For b = 2 to Browser("IDS Super - Member Details").Page("IDS Super - Member Details").WebTable("Pension Account").RowCount
  20.           result = trim(cstr(Browser("IDS Super - Member Details").Page("IDS Super - Member Details").WebTable("Pension Account").GetCellData(b,4)))

  22.     If  d = result then
  23.                                 Reporter.ReportEvent micPass,"Current Withdrawals" ,"预期是" &d& "实际是" &result
  24.                         else
  25.                        
  26.                             Reporter.ReportEvent micFail,"Current Withdrawals","预期是" &d& "实际是" &result
  27.            
  28.     End If

  30. Next
  31. Next
  32. next
复制代码

现在代码是从excel中取到一个值，而webtable里取到的一行值，进行的对比， 我现在想实现的是excel里去一个值和webtable里的一个值进对比，如何实现啊？？
作者: cj_51Testing    时间: 2014-6-10 11:15
弱弱的问一下 如果只取一个值为什么还要用循环获取每一行的第4列值干什么呢?
作者: auto_tester    时间: 2014-6-10 12:52
回复 5# cj_51Testing


    不是取一个值，是取那个table里所有的值进行比较！



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2