ActiveDelphi

[natan.carlos]

Bom dia a todos, alguem pode me ajudar a fazer uma importação de arquivo XLS e XLSX para uma tabela paradox.

Achei esse comando, mas já está dando erro:

Excel := CreateOleObject('Excel.Application');
Excel.Visible :=false;
{Excel.Workbooks.Add;}
Excel.WorkBooks.Open(caminho);

Linha:=1;
for i := 0 to 25 - 1 do begin
dm_tabela_preco.cdstabela.insert;
dm_tabela_preco.cdstabelacod_produto.asstring:=Excel.WorkBooks[1].Sheets[1].Cells[Linha,];
dm_tabela_preco.cdstabelaproduto.asstring:=Excel.WorkBooks[1].Sheets[1].Cells[Linha,2];
dm_tabela_preco.cdstabelapreco.asstring:=Excel.WorkBooks[1].Sheets[1].Cells[Linha,3];
dm_tabela_preco.cdstabela.post;
Linha:=Linha+1;
end;
end;



erro: [Error] Unit1.pas(9: Undeclared identifier: 'CreateOleObject'

[phdorocha]