How to read value from Excel cell in QTP

Example - 

Below code will read a value from Excel cell in QTP

                                             

 filepath  = "C:\Sai\Report.xlsx"

 Set objExcel = CreateObject("Excel.Application")                                                                                       objExcel.Visible = True

                                                                                                                                                                     Set Wb = objExcel.Workbooks.Open(filepath)

                                                                                                                                                                     print Wb.worksheets(1).Cells(1,1).Value 

  ' read value from Excel cell 1,1