Вывести из дбгрид в excel

[Айдар]

Помогите вывести данные из дбгирд в эксель с назвниями столбцов.
в дбгрид данные идут из датасета

[Stilet]

А нескромный вопрос: в самом экзеле настроить внешний источник данных? Это же проще - пусть экзель сам подтягивает данные.

[Айдар]

Сообщение от Stilet

А нескромный вопрос: в самом экзеле настроить внешний источник данных? Это же проще - пусть экзель сам подтягивает данные.

пока такой вариант не рассматриваеться, уже сделал вывод

[Slym]

могу поспорить что мой вариант отвергнут...

procedure DS2CSV(DS:TCustomADODataSet;FileName:string);
var FS:TFileStream;
  i:integer;
  procedure Write(const Str:string);
  begin
    FS.WriteBuffer(Str[1],length(Str));
  end;
begin
  FS:=TFileStream.Create(FileName,fmCreate);
  try
    for i:=0 to DS.FieldCount-1 do
      Write(AnsiQuotedStr(DS.Fields[i].FieldName,'"')+';');
    Write(#13#10);
    while not DS.Eof do
    begin
      for i:=0 to DS.FieldCount-1 do
        Write(AnsiQuotedStr(DS.Fields[i].AsString,'"')+';');
      Write(#13#10);
      DS.Next;
    end;
  finally
    FS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DS2CSV(ADOTable1,'d:\x.csv')
end;