function error

[shipu]

Hello,

I have a code in qtp as below:

PHP Code:

Dim FilePath 
FilePath = "Template.xlsx"
Set ExcFile = ExcelApp.Workbooks.Open (FilePath)
Set SheetOne = ExcFile.Worksheets("HappyPath")
closeVB ''call the function 


I saved the function in the function library.

PHP Code:

Function closeVB

        If VbWindow("vbname:=frmPrint").Exist Then
                                    SheetOne.Cells(i+1,25) = "Yes"
                         
        Else

                                         SheetOne.Cells(i+1,25) = "No"
                        
        End if 

End Function 


When I run qtp, I get error "object required:sheetone". Do I need to have sort of return in the function?

Please advise.

-S

[vinod123]

where do you mention path of the file

[supputuri]

Make sure that you have a sheet "HappyPath".

[shipu]

Path of the file exist in the main file.
HappyPath exist already. My script works fine if I have the function in the main file. It does not work if I keep the function in the library.