ActiveDelphi

[brenaox]

Bom dia,

Alguém me pode me dá uma luz.

Preciso de importar planilhas de um arquivo de excel no delphi 7 para o banco de dados access.


Obrigada
Brena

[leandersantosm]

procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
Linha:Integer;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Visible :=False;
Excel.WorkBooks.Open('c:\arquivo.xls');
Excel.WorkBooks[1].Sheets[1].Cells[1,1]:=Now;
Linha:=1;
While not Linha >= 50 do
Begin
Tabela.Insert;
TabelaCampo1.Value:=Excel.WorkBooks[1].Sheets[1].Cells[3,2]
//implemente os campos como na linha acima
Tabela.Post;
Linha:=Linha+1;
end;