Ler planilha excel e gravar em BD

[Guest sllc]

Olá Galera.

Preciso urgente de uma maneira de ler uma planilha em excel e importar para o meu BD. Busquei aqui no site e vi bastante coisa a respeito, mas tem muita coisa como gerar a planilha excel - e eu preciso fazer ao contrário.

Encontrei buscando por aí uma rotina assim:

Planilha := CreateoleObject('Excel.Application');

Planilha.WorkBooks.Open('CAMINHO'));

fNome := Planilha.Cells[1,1];

fMatricula := Planilha.Cells[1,2];

não consegui continuar porque não sei como fazer um loop até o final da planilha, acho que eu deveria ter um for de 1 até a última linha da planilha - alguém poderia me dar alguma dica para que eu consiga resolver este problema.

Agradeço muito a quem puder ajudar.

[]'s

Sergio

[Jhonas]

Preciso urgente de uma maneira de ler uma planilha em excel e importar para o meu BD. Busquei aqui no site e vi bastante coisa a respeito, mas tem muita coisa como gerar a planilha excel - e eu preciso fazer ao contrário.

Pelo proprio excel voce pode salvar como > .CVS e depois usar uma rotina para ler o arquivo

http://scriptbrasil.com.br/forum/index.php...st&p=495058

ou pode salvar o arquivo como .txt e usar esta rotina para ler o aquivo

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName);  // c:\arquivo.txt
    Reset(F);
    Readln(F, S);
    Edit1.Text := S;
    CloseFile(F);
  end;
end;

ou ainda pode salvar como arquivo DBF e usar um componente para ler tabelas DBF convertendo para o IB

http://osdir.com/ml/db.firebase.portuguese...1/msg00347.html

abraço