FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Try .. Catch
Posts: 22
Joined: Tue Dec 26, 2006 12:53 PM
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

Posts: 22
Joined: Tue Dec 26, 2006 12:53 PM
Try .. Catch
Posted: Tue Feb 06, 2007 11:26 AM

ninguem?

Continue the discussion