auto_tester 发表于 2014-4-21 13:52:58

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

本帖最后由 auto_tester 于 2014-4-22 13:18 编辑

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

auto_tester 发表于 2014-4-21 13:55:00

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

auto_tester 发表于 2014-4-23 09:00:51

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)))

    Ifd = 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:58

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)))

    Ifd = 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里的一个值进对比，如何实现啊？？

cj_51Testing 发表于 2014-6-10 11:15:02

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

auto_tester 发表于 2014-6-10 12:52:13

回复 5# cj_51Testing


    不是取一个值，是取那个table里所有的值进行比较！
页: [1]
查看完整版本: qtp 如何通过控制excel里的数据，和页面为table里的数据进行比较