Try .. Catch

[Rodrigo Pavan]

Pessoal, fiz uma integração com o Excel, é para não ter que ficar sempre abrindo o objeto usando o CreateObject, estou dando um Try em GetActiveObject, caso não passar ele dava o CreateObject, até versões anteriores do Fwh, funcionava corretamente, a partir da 2.8, ele chama o GetActiveObject, só que ele nunca entra no Catch, ou seja, o oExcel acaba sendo um objeto mas não do Excel....

segue exemplo:

TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
Mensagem( "ERRO! MS-Excel nao encontrado. [" + Ole2TxtError()+ "]" )
RETURN
END
END

oExcel:WorkBooks:Add()



Ps: Se alguem tiver sugestão, de uma maneira mais simples de fazer isso, eu agradeço...


muito obrigado a todos

[]s

[Rodrigo Pavan]

ninguem?