qtp 如何通过控制excel里的数据，和页面为table里的数据进行比较

auto_tester

大家好啊，大家谁知道qtp如何通过导入excel，控制excel里面的数据和页面table里的数据进行比较！

auto_tester

回复 1# auto_tester
高人谁有这样的例子，请赐教！

auto_tester

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

1. For i = 1 To 1 Step 1
   
2.        
   
3. For j = 1 To 2 Step 1
   
4. 
   
5. Set excel = createobject("Excel.Application")
   
6. excel.Workbooks.Open "D:\Test.xlsx"
   
7. Set osheet = excel.Sheets.Item(1)
   
8. 
   
9. d =osheet.cells(i,j)
   
10. print d
    
11. 
    
12. 
    
13. 
    
14. 
    
15.        
    
16.        
    
17. 
    
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)))
    
21. 
    
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
    
29. 
    
30. Next
    
31. Next
    
32. next

复制代码

现在代码是从excel中取到一个值，而webtable里取到的一行值，进行的对比， 我现在想实现的是excel里去一个值和webtable里的一个值进对比，如何实现啊？？

cj_51Testing

弱弱的问一下 如果只取一个值为什么还要用循环获取每一行的第4列值干什么呢?

auto_tester

回复 5# cj_51Testing


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