【软件自动化测试-QTP实战技能 19】== 关闭 MESSAGE BOX 当关闭EXCEL 时

 

'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