Option Explicit
Dim vPath, vApp, vSheet, vOrder, vRow, vName
vPath = "C:\Users\AA83986\Desktop\FlightDDF.xlsx"
Set vApp = CreateObject("Excel.Application")
vApp.Workbooks.Open vPath
Set vSheet = vApp.ActiveWorkbook.Worksheets("Sheet1")
vRow = 2
SystemUtil.Run "C:\Program Files (x86)\HP\QuickTest
Professional\samples\flight\app\flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set "Guru"
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").Set "mercury"
Dialog("Login").WinButton("OK").Click
Do while vSheet.Cells(vRow, 1) <> ""
vOrder = vSheet.Cells(vRow, 1)
Window("Flight Reservation").WinButton("Button_4").Click
Dialog("Open Order").WinCheckBox("Order No.")*.Click*
------------------------------------ Here Set "ON" isn't working so
changed it to Click
*Dialog("Open Order").WinEdit("Edit").Set "2"
-----------------------------------------------* Here Set vOrder isn't
working ... getting object is disabled error.. please help
Dialog("Open Order").WinButton("OK").Click
vName = Window("Flight Reservation").WinEdit("window
id:=1016").GetROProperty("text")
vSheet.Cells(vRow, 2) = vName
vApp.ActiveWorkbook.Save
vRow = vRow + 1
Loop
vApp.ActiveWorkbook.Close
vApp.Application.Quit
Set vApp = nothing
Set vSheet = nothing
Excel File is attached.
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
FlightDDF.xlsx
Description: MS-Excel 2007 spreadsheet
