Экспорт нужно делать не из DBGrid, а из самой базы. BDGrid лишь отображает тебе то, что храниться в базе.
Код:
with Excel do
begin
Workbooks.Add('', 0);
Cells.Item[1,1] := ADOTable1.FieldByName('Нужное тебе поле').Value;
Visible[0] := True;
end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|