How to Write a value in excel cell in QTP

 Example - 

Below code will Write a value in Excelsheet cell in QTP

                                             

 filepath  = "C:\Bugs\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