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