Try .. Catch

Try .. Catch

Postby Rodrigo Pavan » 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
User avatar
Rodrigo Pavan
 
Posts: 22
Joined: Tue Dec 26, 2006 12:53 pm

Postby Rodrigo Pavan » Tue Feb 06, 2007 11:26 am

ninguem?
User avatar
Rodrigo Pavan
 
Posts: 22
Joined: Tue Dec 26, 2006 12:53 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 35 guests