Excel_Datasheet Looping problem

[Saadat Chowdhury]

Hi everyone! I'm new in this forum and a very avid Qtp learner. I been trying to learn create a framework here it's working fine except my Excel loop is not working, it's just keep overwriting on the same row and column. Please anypne can help me out .

Code:

Environment.LoadFromFile"C:\Documents and Settings\Administrator\My Documents\Survey_Monkey.xml"
Executefile Environment.value("Env_Functionpath")
Repositoriescollection.Add Environment.value("Env_objrep")

i=2
For i = 2 to 4

set objExcel=createobject("Excel.application")
objExcel.workbooks.open Environment.value("Excel_path")
objExcel.application.visible=True
set objExcelsheet=objExcel.activeworkbook.worksheets("sheet1")

username=Fnrandomusername
Password=Environment.value("Env_Password")
Retype_password=Environment.value("Retype_Password")
Email_id=FnrandomEmailid


Fnlaunch_application
wait 2
Browser("Sign up for a FREE SurveyMonke").Page("Sign up for a FREE SurveyMonke").WebEdit("UserName").Set username
wait 3

Browser("Sign up for a FREE SurveyMonke").Page("Sign up for a FREE SurveyMonke").WebEdit("Password").Set Password
wait 3

Browser("Sign up for a FREE SurveyMonke").Page("Sign up for a FREE SurveyMonke").WebEdit("PassConfirm").Set Retype_password

Browser("Sign up for a FREE SurveyMonke").Page("Sign up for a FREE SurveyMonke").WebEdit("ContEmail").Set Email_id

Browser("Sign up for a FREE SurveyMonke").Page("Sign up for a FREE SurveyMonke").WebElement("Sign Up").Click
wait 5

If Browser("Sign up for a FREE SurveyMonke").Page("Welcome to SurveyMonkey!").Link("Sign Out").Exist then
    objexcelsheet.cells(2,5).value="Passed"
    objexcelsheet.cells(2,2).value=Fnrandomusername
    objexcelsheet.cells(2,7).value=FnrandomEmailid
    objexcelsheet.cells(2,6).value="Registration_successful"
    else
    objexcelsheet.cells(2,5).value="Failed"
    objexcelsheet.cells(2,6).value="Resistration_Failed"

end if
browser("index:=0").page("index:=0").CaptureBitmap"c:/Login_verification1.png",true


wait 3
Browser("Sign up for a FREE SurveyMonke").Page("Welcome to SurveyMonkey!").Link("Sign Out").Click

FnClose_browser

i=2+1

next

'Browser("Welcome to SurveyMonkey!").Page("Welcome to SurveyMonkey!").Link("Sign Out").Click

'objexcelsheet.cells(2,2).value=username
objexcelsheet.cells(2,3).value=Password
objexcelsheet.cells(2,4).value=Retype_password

objExcel.activeworkbook.save
objExcel.activeworkbook.close
objExcel.application.quit

set objExcel=nothing
set objExcelsheet=nothing