Fórum Importar dados do excel #208838

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´

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