UFT自动化-参数化-导到excel提升

'检查openOrder的from，to，name和excel里面的from，to，name是否相同

from1 = Window("FlightReservation").WinComboBox("FlyFrom:").GetROProperty("text")

to1 = Window("FlightReservation").WinComboBox("FlyTo:").GetROProperty("text")

name1 = Window("FlightReservation").WinEdit("Name:").GetROProperty("text")

from2 =DataTable.GetSheet("Global").GetParameter("p_From").Value

to2 =DataTable.GetSheet("Global").GetParameter("p_To").Value

name2 =DataTable.GetSheet("Global").GetParameter("p_Name").Value

If from1=from2 Then

         Reporter.ReportEventmicPass ,"FromCheck","===="

else

   Reporter.ReportEvent micFail ,"FromCheck","!<>"

End If

If to1=to2 Then

         Reporter.ReportEventmicPass ,"FromCheck","Pass"

else

   Reporter.ReportEvent micFail ,"FromCheck","Fail"

End If

If name1=name2 Then

         Reporter.ReportEventmicPass ,"FromCheck","Pass"

else

   Reporter.ReportEvent micFail ,"FromCheck","Fail"

End If

 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'连接到excel

Dim rownum

rownum =DataTable.GetSheet("Global").GetRowCount

If rownum = 0 Then

         DataTable.Import"C:\zhh_uft\练习\参数化\数据\data.xls"

End If

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'全选第二张票

Window("FlightReservation").Dialog("FlightsTable").WinList("From").Select 1

 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'票数提交到报告
tickets = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
tickets1 = cint(tickets)
Reporter.ReportEvent micDone,"TicketNum",ticket