Function written in Func library is not returning values but works in same script

[Shwethareddy]

Hi,

Below function when put in a function library is not returning values, while the same copied to same script works.

Note:Script is associated with the library & other sub procedures in the same library called by the same script are working fine.

Below is the code in the script:

Code:

Set myxl=nothing
Set myxl=Createobject("Excel.Application")
myxl.Application.Visible=True
User="sfp"
'Create Link object
Set weblnk=nothing
Set weblnk=description.Create
weblnk("micclass").value="Link"
Set objAlllinkobj=Nothing
Set objAlllinkobj=Browser("title:=.*","micclass:=Browser").Page("title:=.*","micclass:=Page").ChildObjects(weblnk)

''Create excel file to write data
Environment.Value("Alllinksfile")= "C:\Linkcheck\" & User & ".xlsx"
filepath=Environment.Value("Alllinksfile")
Set fso=Createobject("Scripting.FileSystemObject")
If fso.FileExists(filepath) Then
    fso.DeleteFile filepath
End If

Set xlbok=myxl.Workbooks.Add
Set mysheet=nothing
Set mysheet=myxl.Worksheets("Sheet1")
mysheet.cells(1,1)="Link"
mysheet.cells(1,2)="Status"
mysheet.cells(1,3)="Error Code"
mysheet.cells(1,4)="URL"

For a=0 to objAlllinkobj.count-1
roc=mysheet.usedrange.rows.count

url = objAlllinkObj(a).getroproperty("href")
'msgbox url
nam=objAlllinkObj(a).getroproperty("name")

'URL status
Call Geturlstatus (url)
Next

*************************************
Function  Geturlstatus(url)
On Error Resume Next
     'Call ClearBrowserCache()
     Set objhttp = nothing
     Set objhttp= CreateObject("Microsoft.XMLHTTP")  ' Create an xmlhttp object
     objhttp.open "GET", url, False     ' Opens the connection to the remote server
     objhttp.Send
     pagestatus = objhttp.status
    

     If pagestatus >= "200" or pagestatus <= "206" Then
         mysheet.cells(roc+1,1)=nam
         mysheet.cells(roc+1,2)="Success"
         mysheet.cells(roc+1,3)=pagestatus
         mysheet.cells(roc+1,4)=url
                     'geturlstatus = 0

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

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

  elseif pagestatus >= "500" or pagestatus <= "505" Then
         mysheet.cells(roc+1,1)=nam
         mysheet.cells(roc+1,2)="Server Error"
         mysheet.cells(roc+1,3)=pagestatus
         mysheet.cells(roc+1,4)=url
               ' geturlstatus = 1
    
     End If
     Set objhttp = nothing
     End Function
**************************************************

[Shwethareddy]

------------------------------------------------------------
Hi Selvam,
Thanks for the reply!
Below code isn't working still and throwing following errors-
Scenario1:
1.Access Denied: objhttp.send
2.Object required: 'mysheet'
Function file: C:\CCAMSauto\Links.qfl
Line (12): " mysheet.cells(roc+1,1)=nam".
Scenario2: When i copy the same function in script & use 'On Error resume next in the function' data is written to excel sheet.But when i dont use exception handling it throws above errors.
Scenario3: When i use exception handing in the function and have teh function in func library, script runs but data is not written to excel sheet.

[basanth27]

Shwetha,
Remove the on error resume next and put the code on debug mode. Trace the flow and you will know the issue.

[ssvali]

Shwetha,

U need pass 3 more parameters in Geturlstatus function

Call Geturlstatus(url,mysheet,nam,a).

In the function change roc+1 to a+2. I tried by changing this and it is working fine

Try and let us know the result.

[Shwethareddy]

Thanks for the info,Function is being called and data is written to Excel. But getting an exception for objhttp.send as "Access Denied".
Captured the error number(21479XXX), but was unable to analyse on the exception. Please let me know if this is something to do with configurations.
Note:This is happening on any web page on my machine.

[vinod123]

There is no access for u for the url