QTP自动化：使用Excel数据驱动的网页测试与结果验证

For i=4 to 11
Browser("烟草行业大政工平台").Page("烟草行业大政工平台").WebEdit("user.loginId").Set   ReadExcel  ("shiyan",i,4)
Browser("烟草行业大政工平台").Page("烟草行业大政工平台").WebEdit("user.password").SetSecure ReadExcel  ("shiyan",i,5)
Browser("烟草行业大政工平台").Page("烟草行业大政工平台").WebButton("登录").Click
Call xuanzeyanzheng (i)
Dim istatus,istest
istatus=ReadExcel("shiyan",i,7)'读取excel中的实际结果取提示的信息
istest=ReadExcel("shiyan",i,6)'读取excel中的预期结果的提示信息
zhengzepipei istest,istatus
Next
'写入excel
Function DoExcel(sheetname,x,y,yy)
 Dim ObjExcel,SrcExcel,ExcValue

   Set ObjExcel = CreateObject ("Excel.Application")
    
    ObjExcel.Visible = False
   Set SrcExcel = ObjExcel.WorkBooks.Open("F:\case1.xls")
    SrcExcel.WorkSheets(sheetname).Activate
    SrcExcel.WorkSheets(sheetname).Cells(x,y).Value =yy
    ObjExcel.DisplayAlerts = False
    ObjExcel.Save 
    ObjExcel.quit
    Set ObjExcel = Nothing
    Set SrcExcel = Nothing
End Function
'读excel
Function ReadExcel(sheetname,x,y)
 Dim ObjExcel,SrcExcel,ExcValue
   Set ObjExcel = CreateObject ("Excel.Application")