Como verificar se já existe um objeto Excel aberto com Visual Fox Pro.

oExcel = Createobject("Excel.application")


Por muito tempo eu utilizei a função acima para criar um novo objeto excel, porém muitos de meus usuários reclamavam que toda vez que se gerava um relatório, um novo exel era criado, dificultando a interação entre os relatórios.

Pois bem, após algumas horas criei a lógica abaixo. Pode não ser um "senhor" código, mas funciona.

Try
oExcel = Getobject(, "Excel.Application")
Catch
oExcel = Createobject("Excel.application")
EndTry