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