Desculpe, também é 1.5, é que mandei um nível de classe superior, veja
os métodos internos que usam os objetos do Activex: !!CB!! 279 Function: SetRange Description: Returns Boolean: Parameters String: psCelula1 String: psCelula2 Static Variables Local variables : vCelula1 Class: Variant : vCelula2 Class: Variant Actions If bArquivoAberto Call vCelula1.SetString( psCelula1 ) Call vCelula2.SetString( psCelula2 ) If oWorksheet.PropGetRange( vCelula1, vCelula2, oRange ) Set bRangeInformado = TRUE Return bRangeInformado !!CB!! 279 Function: SetFormatCell Description: Returns Parameters Number: p_TipoFormato Static Variables Local variables : v_Format Class: Variant Actions If p_TipoFormato = EXC_Text Call v_Format.SetString( "@" ) Call oRange.PropSetNumberFormat( v_Format ) Else If p_TipoFormato = EXC_General Call v_Format.SetString( "General" ) Call oRange.PropSetNumberFormat( v_Format ) Else If p_TipoFormato = EXC_Number Call v_Format.SetString( "0.00000" ) Call oRange.PropSetNumberFormat( v_Format ) Else If p_TipoFormato = EXC_Date Call v_Format.SetString( "dd/mm/yy" ) Call oRange.PropSetNumberFormat( v_Format ) On 19/05/2010 16:39, Eduardo Borges wrote:
--
Erasmo Bispo de Oliveira Junior Gerente de Pesquisa e Desenvolvimento Softway S.A. - Soluções em Software para Comércio Exterior Pabx: +55 (19) 3344.9200 Direto:+55 (19) 3344.9361 Fax: +55 (19) 3344.9240 e-mail: erasmo.olive...@sfw.com.br web: http://www.softcomex.com.br Antes de imprimir esta mensagem, pense em sua responsabilidade e compromisso com o meio ambiente! |
Title: E-mail IPQ Tecnologia
- [sqlwin] exportação para excel George Hilton
- [sqlwin] Re: [sqlwin] exportação par... George Hilton
- [sqlwin] Exportação para excel Eduardo Borges
- Re: [sqlwin] Exportação para exc... Erasmo
- [sqlwin] Re: [sqlwin] Export... Eduardo Borges
- Re: [sqlwin] Re: [sqlwin... Erasmo
- [sqlwin] Centura X Word José Augusto Sabino de Oliveira