Importar do Excel

[Dimmy Angelo]

Alguém tem algum código pra importar do Excel

[Leão]

Cara, melhor mesmo, é fazer a exportação para arquivo texto, existe um exemplo
que funciona no help do Xmaker, cria a tabela com os campos correspondente é
só importar...


Obrigado,
Leão

[ricardobhte]

Amigo, veja se resolve achei essa procedure na internet
procedure TForm1.BitBtn1Click(Sender: TObject);
var
excel: Variant;
x: Integer;
arquivo: string;
begin
arquivo:='c:\Teste.xls';
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=False;
Excel.DisplayAlerts:=False;
Excel.Workbooks.Add;
Excel.Workbooks[1].Sheets.Add;
Excel.Workbooks[1].WorkSheets[1].Name:='Teste';
Excel.Workbooks[1].WorkSheets[1].DisplayPageBreaks:=False;
Excel.Columns.AutoFit;

qryTeste.First;
while (not qryTeste.Eof) do
begin
excel.WorkBooks[1].Sheets[1].Cells[x,1]:=qryTeste.FieldByName('CAMPO').AsString;
qryTeste.Next;
end;

Excel.WorkBooks[1].Sheets[1].SaveAs(arquivo);
Excel.WorkBooks.Open(arquivo);
Excel.Visible:=True;
end;