'Click on the excel application message box with QTP While closing the excel application
Set obj=CreateObject("Excel.Application")
obj.Visible=True
obj.DisplayAlerts=False
Set oWorkbook=obj.Workbooks.Open("H:/Book1.xls")
obj.EnableEvents =
False'Disable Events before closing workbook
oWorkbook.Close
obj.EnableEvents =
True
obj.Quit