Hp uft 如何将动态Webtable的数据与预期结果进行比较.xlsx工作表

我有一个动态webtable，其中行和列的数量取决于输入。现在我的webtable有8行11列。在确定测试用例是通过还是失败之前，我需要将webtable、行和列与预期的结果excel表进行比较

introwcount=browser("SAP Transcation iView").Page("SAP Transaction iView").SAPFrame("Generate Leave Entitlement").WebTable("WebTable).RowCount
for r = 1 to introwcount 
  intcolcount=browser("SAP Transaction iView").Page("SAP Transaction iView").SAPFrame("Generate Leave Entitlement").WebTable("WebTable").ColCount(r)
next

---

我有行数和列数…请帮助继续…使用脚本编写

您可能需要对此进行一些调试。有很多方法可以验证。你的问题太宽泛，无法给出具体的答案。请提供下一个问题的具体细节

introwcount=browser("SAP Transcation iView").Page("SAP Transaction iView").SAPFrame("Generate Leave Entitlement").WebTable("WebTable).RowCount
intcolcount=browser("SAP Transaction iView").Page("SAP Transaction iView").SAPFrame("Generate Leave Entitlement").WebTable("WebTable").ColCount(r)


Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.WorkBooks.Open(FilePath)
set objSheet = objWorkBook.Sheets(SheetName)


intSheetRowCount = objSheet.UsedRange.Rows.Count
intSheetColCount = objSheet.UsedRange.Columns.Count
blnFlag = True 'setting the default value first
If intSheetRowCount <> introwcount OR intSheetColCount <> intcolcount Then
    blnFlag = False
End if

If blnFlag = true Then
    for r = 1 to introwcount 
        for c = 1 to intcolcount
            strExcelValue = ""
            strTableValue = ""
            strExcelValue = objSheet.Cells(introwcount, intcolcount).value
            strTableValue = browser("SAP Transcation iView").Page("SAP Transaction iView").SAPFrame("Generate Leave Entitlement").WebTable("WebTable).GetCellData(introwcount,intcolcount)

            If (strComp(strExcelValue, strTableValue, 0) <> 0 Then
                blnFlag = False 'Used for resulting purpose
            End If
        Next
    Next
End If          


if blnFlag = True then
    msgbox "Pass"
Else
    msgbox "Fail"
End If

Set objSheet = Nothing
objWorkBook.Close
Set objWorkBook = Nothing
objExcel.Quit
Set objExcel = Nothing

introwcount=browser（“SAP Transaction iView”）.Page（“SAP Transaction iView”）.SAPFrame（“生成休假权利”）.WebTable（“WebTable”）.RowCount
intcolcount=browser（“SAP事务iView”）.Page（“SAP事务iView”）.SAPFrame（“生成休假权利”）.WebTable（“WebTable”）.ColCount（r）
设置objExcel=CreateObject（“Excel.Application”）
设置objWorkBook=objExcel.WorkBooks.Open（文件路径）
设置objSheet=objWorkBook.Sheets（SheetName）
intSheetRowCount=objSheet.UsedRange.Rows.Count
intSheetColCount=objSheet.UsedRange.Columns.Count
blnFlag=True“首先设置默认值
如果是intSheetRowCount introwcount或intSheetColCount intcolcount，则
blnFlag=False
如果结束
如果blnFlag=true，则
对于r=1，输入计数
对于c=1到intcolcount
strExcelValue=“”
strTableValue=“”
strExcelValue=objSheet.Cells（introwcount，intcolcount）.value
strTableValue=browser（“SAP Transaction iView”）.Page（“SAP Transaction iView”）.SAPFrame（“生成休假权利”）.WebTable（“WebTable”）.GetCellData（introwcount，intcolcount）
如果（strComp（strExcelValue，strTableValue，0）0，则
blnFlag=False“用于结果用途
如果结束
下一个
下一个
如果结束
如果blnFlag=True，则
msgbox“通行证”
其他的
msgbox“失败”
如果结束
设置objSheet=Nothing
关闭
设置objWorkBook=Nothing
退出
设置objExcel=Nothing
<代码>如果它对你有用，请考虑接受答案。