Importar dados do excel
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
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
Curtidas 0
Respostas
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´
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
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
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