動的Webtableのデータを期待結果と比較する方法..xlsx

Question

私は、行と列の数が入力に依存する動的Webtableを持っています。私のWebtableは8行11列です。テストケースが合格したか失敗したかを判断する前に、webtable、行と列を期待される結果と比較する必要があります。私は、行と列の数を持っている

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 

...親切にさらに進行するのに役立ち...スクリプト

Answer 1

であなたは、この上の少しのデバッグが必要な場合があります。あなたが検証できる方法はたくさんあります。あなたの質問は、特定の答えを出すには広すぎます。次の質問から具体的な情報を提供してください

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