Augusto declare a fun��o como segue na cExcel e fa�a os testes acredito que funcione, no teste que fiz funcionou perfeitamente, o nome da fun��o voc� pode alterar: Function: GetText2 Description: Returns String: Parameters String: psCelula Static Variables Local variables Variant: vFormula String: sTexto Variant: vCelula1 Variant: vCelula2
Actions
If bArquivoAberto
Call SetRange ( psCelula, psCelula )
Call vCelula1.SetString ("1" )
Call vCelula2.SetString ( "A" )
Call oRange.PropGetItem( vCelula1, vCelula2, vFormula )
Call vFormula.GetString ( sTexto )
Return sTexto
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em nome
de Jose Augusto S. Oliveira
Enviada em: ter�a-feira, 16 de julho de 2002 16:09
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] Re: Word/Excel
Rosalvo;
Fiz v�rios testes e todos funcionaram bem. A �nica coisa que ainda n�o deu
certo e ler as c�lulas com esta f�rmula:
=SE(DIA.DA.SEMANA(A9)=1;"Dom";SE(DIA.DA.SEMANA(A9)=2;"Seg";SE(DIA.DA.SEMANA(
A9)=3;"Ter";SE(DIA.DA.SEMANA(A9)=4;"Qua";SE(DIA.DA.SEMANA(A9)=5;"Qui";SE(DIA
.DA.SEMANA(A9)=6;"Sex";"Sab"))))))
O resto esta funcionando. Muito obrigado pela sua ajuda e espero qualquer
dia poder retribuir.
Augusto
-----Mensagem original-----
De: Rosalvo Aires [mailto:[EMAIL PROTECTED]]
Enviada em: s�bado, 13 de julho de 2002 10:23
Para: 'SqlWindows'
Assunto: ENC: [sqlwin] Re: Word/Excel
Augusto estou usando o Windows 98 e Office 2000 e ocorreu o mesmo problema
que voc� relatou, verifiquei a classe Variant do Excel, e implementei na
cExcel a GetDate e a GetNumber fiz os testes e funcionou perfeitamente
acredito que deva funcionar com Office XP, espero ter ajudado!
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em nome
de Jose Augusto S. Oliveira
Enviada em: sexta-feira, 12 de julho de 2002 07:14
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] Re: Word/Excel
Rosalvo, esta funcionando. Consigo ler e escrever, mas quando na c�lula tem
uma data, retorna um n�mero e quando � uma f�rmula, esta retorna o texto da
f�rmula.
Voc� sabe como resolver isso ?
Eu tamb�m estou usando o Office XP.
Desde j� agrade�o a sua ajuda, muito obrigado.
Augusto
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Em nome
de Rosalvo Aires
Enviada em: quinta-feira, 11 de julho de 2002 17:17
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] Re: Word/Excel
Augusto passei pelo mesmo problema, estou lhe enviando uma app , que l� e
grava em uma planilha excel.
Verifique a classe cExcel e instancie uma vari�vel da mesma no seu form.
Para l�r os dados use GetText para gravar use SetText.
Espero ter ajudado.
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em nome
de Jose Augusto S. Oliveira
Enviada em: quinta-feira, 11 de julho de 2002 14:38
Para: [EMAIL PROTECTED]
Assunto: RES: [sqlwin] Re: Word/Excel
Caro Ricardo;
Muito obrigado, consegui gerar as APL's.
Voc� sabe se existe alguma documenta��o a respeito desse assunto ?
Estou precisando ler e gravar dados em uma Planilha Excel e nunca trabalhei
com esse tipo de programa.
Desde j� agrade�o qualquer ajuda.
Augusto
-----Mensagem original-----
De: Ricardo Gomes [mailto:[EMAIL PROTECTED]]
Enviada em: quarta-feira, 10 de julho de 2002 15:53
Para: [EMAIL PROTECTED]
Assunto: [sqlwin] Re:
Caro Amigo,
Essas apl's s�o constru�das pelo pr�prio Centura, atrav�s da op��o Component
- ActiveX Wizard. Vale lembrar que as apl�s ser�o baseadas na vers�o do
Excel que est� instalada no seu computador. Qdo gerei essas apl's, no micro
estava instalado o Excel 2002 (Office XP), e deu tudo certo. Qualquer
d�vida, � s� perguntar.
Ricardo.
----- Original Message -----
From: Jose Augusto S. Oliveira <mailto:[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
Sent: Wednesday, July 10, 2002 3:35 PM
Algu�m saberia me dizer onde eu consigo estas duas apls: Microsoft Excel 9.0
Object Library.apl Microsoft Word 9.0 Object Library.apl
Desde j� agrade�o qualquer ajuda.
Augusto
Usina Coruripe - Iturama (MG)
winmail.dat
Description: application/ms-tnef
