Fórum copiar uma coluna do Excel e colar no dbgrid #416063

Grande Evandro tudo bem?
Estou com um arquivo de excel na qual preciso transportar para o banco de dados, eu achei um codigo que esta abaixo ele transporta dados do excel para o banco depois vc pode dar um select para aparecer na grid.

Neste exemplo vamos criar um procedimento genérico que vai exportar o resultado de uma query para o excel.

procedure pExportarDadosExcel(Query : TQuery);
var
Excel : Variant;
Linha, i : Integer;
begin
if not Query.IsEmpty then
begin
Query.First;
Excel := CreateOleObject(Excel.Application);
Excel.Visible := True;
Excel.Workbooks.Add;
Linha := 1;
for i := 0 to Query.FieldCount - 1 do
Excel.WorkBooks[1].Sheets[1].Cells[Linha,i+1] := Query.Fields[i].DisplayName;
Linha := 2;
While not Query.Eof do
Begin
for i := 0 to Query.FieldCount - 1 do
Excel.WorkBooks[1].Sheets[1].Cells[Linha,i+1] := Query.Fields[i].Value;
Query.Next;
Linha:=Linha+1;
end;
end;
end;

Se isso te ajudar fico feliz.

Tenha uma boa noite
obrigado
Deus abençoe sua familia e vc.