RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-22 Por tôpico Moked - Tamara \(Brazil\) 



function TfrmManutencaoBD.GetOrCreateObject(const ClassName: string): IDispatch;
var
  ClassID: TGUID;
  Unknown: IUnknown;
begin
//* Cria através do nome do arquivo a aplicação do excel
  try
    ClassID := ProgIDToClassID(ClassName);
    if Succeeded (GetActiveObject(ClassID, nil, Unknown)) then
    OleCheck (Unknown.QueryInterface (IDispatch, Result))
    else
    Result := CreateOleObject (ClassName);
  except
    MessageDlg(MsgTranslator('Nome de arquivo Inválido!', idioma), mtInformation, [mbOk], 0);
    Abort;
  end;
end;
 
function TfrmManutencaoBD.NumColToLetra(coluna: Word): String;
var
    Letra : String[3];
    N : {Word;} Integer;
    N_CAR : Byte;
Begin
//* Converte o número da coluna do excel em letra
  N_CAR := 0;
  N := COLUNA;
  While N > 0 do
  begin
    Inc(N_CAR);
    N:=(N-1) div 26;
  end;
  Case N_CAR of
    1:Letra:=Chr(coluna+64);
    2:begin
    N  := (coluna-1) div 26;
    coluna := coluna-26*N;
    Letra  := Chr(N+64)+Chr(coluna+64);
  end;
    3:begin
    N  := (coluna-27) div 676;
    Letra  := Chr(N+64);
    coluna := coluna-676*N;
    N  := (coluna-1) div 26;
    Letra  := Letra+Chr(N+64);
    N  := coluna-26*N;
    Letra  := Letra+Chr(N+64);
  end;
  end;
  Result := Letra;
end;
 
 Excel := GetOrCreateObject('Excel.Application');
 Excel.Workbooks.Open(Arquivo);
 Cel := NumColToLetra(I) + IntToStr(1);  { Normalmente o Nome das colunas fica na 1ªlinha}

 
É isso q tenho, agora basta vc adaptar as suas necessidades...
 
Espero ter ajudado!
 
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]  
www.moked.com.br <http://www.moked.com.br/> 



De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva ®
Enviada em: sexta-feira, 19 de maio de 2006 19:45
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importar do Excel p/ Delphi


Amigo, vc poderia passar essa rotina mais completa pra eu ver como se faz
isso?

Como abrir a planilha do excel e tal?
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moked - Tamara (Brazil)
  Enviada em: sexta-feira, 19 de maio de 2006 11:19
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Importar do Excel p/ Delphi


  Nesio, é só vc abrir o arquivo do excel pegar o valor da celula da
seguinte forma:

  Valor := Excel.Range[Cel,Cel].Value;

  Depois setar no FieldByName este valor...

  Tamara Clemente - Suporte Técnico
  Moked do Brasil - Consultoria de Segurança Empresarial
  Divisão MokInf de Informática
  PABX: (55-11) 5071-2748
  [EMAIL PROTECTED] 
  www.moked.com.br <http://www.moked.com.br/>


  

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Nesio Messias
  Enviada em: sexta-feira, 19 de maio de 2006 10:46
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Importar do Excel p/ Delphi


  Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se
tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil
itens, por favor me ajudem..Nesio.


  -
  Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz.

  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>






  Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE


<http://br.ard.yahoo.com/SIG=12fir7lfg/M=396559.7942981.9477179.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1148049495/A=3714796/R=2/id=noscript/SIG=1554
ctaqg/*http://lt.dell.com/lt/lt.aspx?CID=13048&LID=341557&DGC=BA&DGSeg=DHS&D
URL="" href="http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%">http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%
26l%3dpt%26s%3ddhs>

  

  Links do Yahoo! Grupos


  *  Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

  *  Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]


  *  O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .




  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





    Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.

RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-19 Por tôpico Eduardo Silva ® 



Amigo, vc poderia passar essa rotina mais completa pra eu ver como se faz
isso?

Como abrir a planilha do excel e tal?
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Moked - Tamara (Brazil)
  Enviada em: sexta-feira, 19 de maio de 2006 11:19
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Importar do Excel p/ Delphi


  Nesio, é só vc abrir o arquivo do excel pegar o valor da celula da
seguinte forma:

  Valor := Excel.Range[Cel,Cel].Value;

  Depois setar no FieldByName este valor...

  Tamara Clemente - Suporte Técnico
  Moked do Brasil - Consultoria de Segurança Empresarial
  Divisão MokInf de Informática
  PABX: (55-11) 5071-2748
  [EMAIL PROTECTED] 
  www.moked.com.br <http://www.moked.com.br/>


  

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Nesio Messias
  Enviada em: sexta-feira, 19 de maio de 2006 10:46
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Importar do Excel p/ Delphi


  Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se
tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil
itens, por favor me ajudem..Nesio.


  -
  Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz.

  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>






  Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE


<http://br.ard.yahoo.com/SIG=12fir7lfg/M=396559.7942981.9477179.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1148049495/A=3714796/R=2/id=noscript/SIG=1554
ctaqg/*http://lt.dell.com/lt/lt.aspx?CID=13048&LID=341557&DGC=BA&DGSeg=DHS&D
URL="" href="http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%">http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%
26l%3dpt%26s%3ddhs>

  

  Links do Yahoo! Grupos


  *  Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

  *  Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]


  *  O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .




  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





    Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



  __ Informação do NOD32 1.1454 (20060321) __

  Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
  http://www.nod32.com.br


[As partes desta mensagem que não continham texto foram removidas]







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-19 Por tôpico Eduardo Silva ® 



Como fazer isso?

Nunca consegui...
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Filipe Xavier Ramalho
  Enviada em: sexta-feira, 19 de maio de 2006 10:32
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Importar do Excel p/ Delphi


  Nossa, não precisa nada disso. Você pode conectar num arquivo Excel com
ADO
  e trata-lo como se fosse uma base de dados. As planilhas serão as tabelas.

  Att,

  Filipe

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de valmor (Evoluthiva)
  Enviada em: sexta-feira, 19 de maio de 2006 06:54
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Importar do Excel p/ Delphi

  Salve de excel para texto.
  E importe de texto para a sua base de dados.


  Um abraço


  Valmor

  Nesio Messias escreveu:

  >Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se
tiver
  pesso que me ajudem, caso o contrario terei de digitar uns 6 mil itens,
por
  favor me ajudem..Nesio.
  >
  >
  >-
  > Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
  celular e anti-spam realmente eficaz.
  >
  >[As partes desta mensagem que não continham texto foram removidas]
  >
  >
  >
  >
  >


  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



  Links do Yahoo! Grupos








  --
  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.1.392 / Virus Database: 268.6.1/343 - Release Date: 18/5/2006





  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





    Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



  __ Informação do NOD32 1.1454 (20060321) __

  Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
  http://www.nod32.com.br


[As partes desta mensagem que não continham texto foram removidas]







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-19 Por tôpico Filipe Xavier Ramalho 



Nossa, não precisa nada disso. Você pode conectar num arquivo Excel com ADO
e trata-lo como se fosse uma base de dados. As planilhas serão as tabelas.

Att,

Filipe

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de valmor (Evoluthiva)
Enviada em: sexta-feira, 19 de maio de 2006 06:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importar do Excel p/ Delphi

Salve de excel para texto.
E importe de texto para a sua base de dados.


Um abraço


Valmor

Nesio Messias escreveu:

>Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se tiver
pesso que me ajudem, caso o contrario terei de digitar uns 6 mil itens, por
favor me ajudem..Nesio.
>
>    
>-
> Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz. 
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>  
>


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >


 
Links do Yahoo! Grupos




 



-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.392 / Virus Database: 268.6.1/343 - Release Date: 18/5/2006
 








-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-19 Por tôpico Moked - Tamara \(Brazil\) 



Nesio, é só vc abrir o arquivo do excel pegar o valor da celula da seguinte forma:
 
    Valor := Excel.Range[Cel,Cel].Value;
 
Depois setar no FieldByName este valor...
 
Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial
Divisão MokInf de Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]  
www.moked.com.br  




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Nesio Messias
Enviada em: sexta-feira, 19 de maio de 2006 10:46
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Importar do Excel p/ Delphi


Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil itens, por favor me ajudem..Nesio.

    
-
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 

[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >






Yahoo! Grupos, um serviço oferecido por:  
PUBLICIDADE

  



Links do Yahoo! Grupos


*  Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/
    
*  Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]  
    
*  O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!  . 




[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.

RES: [delphi-br] Importar do Excel p/ Delphi

2006-05-19 Por tôpico Eduardo Silva ® 



Amigo, o que eu faço nesses casos é salva-la como DBase IV e dai eu crio uma
rotina no delphi para ler o DBase IV (que se não me engano é o formato do
clipper) e jogar no que vc quiser.

É fácil.


  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Nesio Messias
  Enviada em: sexta-feira, 19 de maio de 2006 09:38
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Importar do Excel p/ Delphi


  Ola Pessoal, tem como eu importar uma tabela do excel p/ o delphi, se
tiver pesso que me ajudem, caso o contrario terei de digitar uns 6 mil
itens, por favor me ajudem..Nesio.


  -
  Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz.

  [As partes desta mensagem que não continham texto foram removidas]



  --
  < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >





    Yahoo! Grupos, um serviço oferecido por:
  PUBLICIDADE





--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



  __ Informação do NOD32 1.1454 (20060321) __

  Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
  http://www.nod32.com.br


[As partes desta mensagem que não continham texto foram removidas]







-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
Links do Yahoo! Grupos

Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ 
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] 
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.