Importar dados do excel

Delphi

23/01/2004

Olá!

Eu preciso importar dados de uma planilha do excel e trazar para
o delphi. Preciso gravar no banco de dados

Utilizo Delphi 6 e Interbase

Como eu faço?

Agradeço muito a atenção!

[]s Roni


Ronithd

Ronithd

Curtidas 0

Respostas

Andreaffbr

Andreaffbr

23/01/2004

Veja se isso funciona, qualquer dúvida me mande um e-mail (andreaffbr@yahoo.com.br) , na edição 45 da revista clubedelphi sai uma máteria explicando uma outra forma de realizar essa importação.

procedure TGrdForm.SpeedButton4Click(Sender: TObject);
var
Excel: OleVariant;
Caminho: String;
begin
inherited;
if OpenDialog1.Execute then
begin
Caminho := OpenDialog1.FileName; //Recupera o caminho da tabela excel
end
else
Exit;
Screen.Cursor := crHourGlass;
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible := False;
Excel.Application.Workbooks.Open(Caminho);
cdsMainCampo.Value := Excel.ActiveSheet.Cells.Item[9,2].Value; //informa a linha e coluna
Excel.ActiveWorkbook.Close;
Excel.Quit;
Excel := Unassigned;
Screen.Cursor := crDefault;
end;
//OBS:Defina na cláusula Uses ´ComObj´


GOSTEI 0
Ronithd

Ronithd

23/01/2004

Funcionou legal está dica, mais eu to com um probleminha.

Toda vez q eu mando buscar da planilha do excel ele me pede pra salvar
o arquivo do excel q eu estou abrindo.

Não teria uma forma de somente buscar os dados, sem salvar a planilha?
ou sem q ele me peça pra sempre salvar a planilha?

É q a planilha vai ficar em um servidor, somente servindo alguns dados, que são atualizados a cada minuto via internet, com isso eu vou fazer com q meu sistema busque os dados da planilha, a cada 1 minuto e grave no banco.

Agradeço muito a ajuda de vcs!

[]s Roni


GOSTEI 0
POSTAR