Hi Sujith,
Here is the code which will read data from the excel sheet and will set the
same in flight app
Set xlobj=CreateObject("Excel.Application")
Set workbookObj=xlobj.Workbooks.Open ("E:\Userlist.xls")
Set wrksheetObj=workbookObj.Worksheets(1)
SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"
Dialog("text:=Login").Activate
Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set
wrksheetObj.cells(1,1)
Dialog("text:=Login").WinEdit("attached text:=Password:").Set
wrksheetObj.cells(1,2)
wait 2
Dialog("text:=Login").WinButton("text:=OK").Click
Window("text:=Flight Reservation").Close
Thanks and Regards,
Govindaram Sirvi
On Mon, Feb 28, 2011 at 5:45 AM, mahima mendu <[email protected]> wrote:
> You need to use
> Set objFso=CreateObject("Excel.Application")
>
>
> On Sun, Feb 27, 2011 at 2:21 PM, Ganesh muralidharan
> <[email protected]>wrote:
>
>> Instead of using OpenTextFile("E:\Userlist.xls",1) why can't you use
>> Datatable.importsheet?
>>
>> Have u tried checking the value of array myField? The subscript error must
>> be happening because the myField(1) element never got created and
>> the entire split data us stored in myField(0)
>>
>>
>> On Sun, Feb 27, 2011 at 2:40 AM, Sujith C S <[email protected]>wrote:
>>
>>> HI friends,
>>>
>>>
>>> My Aim was to read an excel file and use the values in each colums for
>>> data driven testing.
>>>
>>>
>>> I have an excel file,in which the 1st clm is username (with column
>>> heading),and 2nd column is password(1st row is heading).File attached
>>>
>>> Below script which i used to run flight app, results in error
>>>
>>>
>>>
>>> Subscript out of range in line"Dialog("text:=Login").WinEdit("attached
>>> text:=Agent Name:").Set myField(1)". "
>>>
>>> Please help me to find out the error in my code,
>>>
>>> Thanks in advance
>>>
>>>
>>>
>>> Dim objFso, myFile, myLine, myField
>>> Set objFso=CreateObject("Scripting.FileSystemObject")
>>> Set myFile=objFso.OpenTextFile("E:\Userlist.xls",1)
>>>
>>> Do Until myFile.AtEndOfStream
>>> myLine=myFile.ReadLine
>>> myField=Split(myLine,",")
>>> SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest
>>> Professional\samples\flight\app\flight4a.exe"
>>> Dialog("text:=Login").Activate
>>> Dialog("text:=Login").WinEdit("attached text:=Agent Name:").Set
>>> myField(0)
>>> Dialog("text:=Login").WinEdit("attached text:=Password:").Set myField(1)
>>> wait 2
>>> Dialog("text:=Login").WinButton("text:=OK").Click
>>> Window("text:=Flight Reservation").Close
>>> Loop
>>> myFile.Close
>>> Set objFso=Nothing
>>>
>>>
>>>
>>> --
>>> 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
>>
>>
>>
>>
>> --
>> Regards,
>>
>>
>> Ganesh Muralidharan
>> 'God Never Forgets'
>>
>> --
>> 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
> "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
>
--
Thanks and Regards,
Govind
--
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
