Qtp中用代码实现匹配添加

Option Explicit
Dim Total,RightNum,LeftNum,num
     
With Browser("Poll Location Management").Page("Poll Location Management").Frame("Builing Add/Edit")
    .Link("Add New").Click
    
For num = 1 To 2000 Step 1
    .WebEdit("Building ID").Set "sjtest"&num
    .WebEdit("Building Name").Set "sjtestName"&num
    .WebEdit("Organization Name").Set "test213"
    .WebEdit("Street Address").Set "sjtestStreet"&num
    .WebEdit("City").Set "sjtestCity"&num
    .WebEdit("Zip").Set "11111"
    .Link("Save/Next").Click
    
    If .WebElement("Saved Successfully.").Exist Then
    Reporter.ReportEvent micPass,"Step 1:Add","Passed"
    Else
    Reporter.ReportEvent micFail,"Step 1:Add","Failed"
    End If
    
    If num=2000 Then
    .Link("Back").Click    
    End If
Next
     
Total=.WebElement("TotalNumber").Object.innerText
RightNum=Right(Total,4)
LeftNum=Left(RightNum,3)
'Msgbox(LeftNum)
     If LeftNum=2587 Then
         Reporter.ReportEvent micPass,"Step 1:AddTotal","Passed"
     Else
        Reporter.ReportEvent micFail,"Step 1:AddTotal","Failed"
     End If
     
End With