Page 1 of 1

Try .. Catch

Posted: Mon Feb 05, 2007 11:32 am
by 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

Posted: Tue Feb 06, 2007 11:26 am
by Rodrigo Pavan
ninguem?