Does QTP support writing runtime data to multiple sheets in excel

[Shwethareddy]

Hi,

I am trying to write data to multiple sheets in excel, but isnt working with the below code. Please let me know for any corrections.
Updating Links on different pages of the webpage directly to excel.

'Admin Login

Code:

Browser("CCAMS | Login").Page("CCAMS | Login").WebEdit("UserName").Set "sfpuc.admin@jenesys.in"
Browser("CCAMS | Login").Page("CCAMS | Login").WebEdit("Password").Set "admin@jenesys"
Browser("CCAMS | Login").Page("CCAMS | Login").WebButton("Login").Click

Set alllinkob = Description.Create()
alllinkob("micclass").value ="Link"

Set objAlllinkObj =Browser("CCAMS | Login").Page("CCAMS | Home | 1.1.33").ChildObjects(alllinkob)

'Write to Excel  
Set myxl=createobject("Excel.Application")
myxl.Application.Workbooks.Open "C:\LinkCheckLogin.xlsx"
myxl.Application.Visible=True
Set mysheet=myxl.ActiveWorkbook.Worksheets("Home")


'Home Page-fetching Links info
For a=0 to objAlllinkObj.count-1

url = objAlllinkObj(a).getroproperty("url")
nam=objAlllinkObj(a).getroproperty("name")

call geturlstatus(url )

Next
'Site Search-Different webpage in the same applictaion

Browser("CCAMS | Login").Page("CCAMS | Home | 1.1.33").Link("Site Search").Click

myxl.Application.Visible=True
Set mysheet=myxl.ActiveWorkbook.Worksheets("SiteSearch")


Set lnk=description.Create
lnk("micclass").value="Link"

Set Sitelnk=Browser("CCAMS | Login").Page("CCAMS | Site Search |").ChildObjects(lnk)
For a=0 to Sitelnk.count-1

url = Sitelnk(a).getroproperty("url")
nam=Sitelnk(a).getroproperty("name")

call geturlstatus(url )

Next
'Link Check function

Public Function geturlstatus(url )
     On Error Resume Next
     Call ClearBrowserCache()
     Set webService = nothing
     Set webService= CreateObject("Microsoft.XMLHTTP")  ' Create an xmlhttp object
     webService.open "GET", url, False     ' Opens the connection to the remote server
     webService.Send
     pagestatus = webService.status
     If pagestatus >= 200 or pagestatus <= 206 Then
         mysheet.Cells(a+2,1)=nam
         mysheet.Cells(a+2,2)="Success"
         mysheet.Cells(a+2,3)=pagestatus
         mysheet.Cells(a+2,4)=url
                     geturlstatus = 0

     elseif pagestatus >= 302 or pagestatus <= 307 Then
     mysheet.Cells(a+2,1)=nam
         mysheet.Cells(a+2,2)="Redirection"
         mysheet.Cells(a+2,3)=pagestatus
         mysheet.Cells(a+2,4)=url
             geturlstatus = 1

      elseif pagestatus >= 400 or pagestatus <= 423 Then
         mysheet.Cells(a+2,1)=nam
         mysheet.Cells(a+2,2)="Client Error"
         mysheet.Cells(a+2,3)=pagestatus
         mysheet.Cells(a+2,4)=url
            geturlstatus = 1

  elseif pagestatus >= 500 or pagestatus <= 505 Then
         mysheet.Cells(a+2,1)=nam
         mysheet.Cells(a+2,2)="Server Error"
         mysheet.Cells(a+2,3)=pagestatus
         mysheet.Cells(a+2,4)=url
                geturlstatus = 1
    
     End If
     Set webService = nothing
     err.clear
End Function

[Ankesh]

What is the error you are getting?

[Shwethareddy]

Hi Ankesh,
Thanks for teh reply, was able to solve it by addding new sheet method to shift teh focus to next sheet.

Thanks