How to Write a value in excel cell in QTP

Example - 

Below code will Write a value in Excelsheet cell in QTP

                                             

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

Set objExcel = CreateObject("Excel.Application")

                                                                                                                                                      objExcel.Visible = True

                                                                                                                                                      Set Wb = objExcel.Workbooks.Open(filepath)

                                                                                                                                                      Wb.worksheets(1).Cells(1,1).Value    = "xyz "       'store xyz in excel cell