Создание отчета в excel из БД

[Tanzor69]

Собственно имеем: СУБД Access 2007, Delphi Xe, рабочий проект написанный в нем же. Так же имеем: ADOConnection, ADOQuery. Остался последний штрих. Вывести на лист excel результат запроса что находится в ADOQuery. Или если по другому сказать, вывести на лист excel то что отображается в данный момент в DBGrid1, который в свою очеред подключен к ADOQuery1. Буду рад увидеть какие то готовые примеры, или ссылки на статьи, книги и т.д. Думаю вопрос легко решаемый и часто встречающийся. Просто сам первый раз буду это делать, поэтому не имею образца

[Stilet]

Рекомендую решать это не в Делфи:
http://www.programmersforum.ru/showthread.php?t=89383
http://www.programmersforum.ru/showthread.php?t=141788

[Tanzor69]

спасибо конечно, но это по-моему не то.
В программе есть форма, на ней отображается результат запроса ADOQuery. При то что так же на форме есть поля для фильтрации, и запрос может измениться. Так вот на этой форме есть еще кнопка - Печать, которая должна вывести информацию которая отображается в DBGrid в Excel. А то что предлагаете вы мне, вообще никак не относится к результатам запроса ADOQuery.

[eval]

так а вопрос то в чем? откыть excel умеете?

[Tanzor69]

вопрос в том, что никогда раньше так не делал, но думаю что так можно. поэтому прошу показать какие нибудь примеры. Можно и не в эксель, а просто на печать на принтер вывести набор данных из ADOQuery. Тогда подскажите какими компонентами пользоваться? Я как то раз делал через QuickReport, правда Delphi 7 был. А сейчас начал искать этот компонент, а он платный))

[Tanzor69]

ребят, сам виноват, надо было сначала в интернете поискать. Вот что нашел, посмотрите, пожалуйста, то ли это? Должно ведь работать?

procedure TMainForm.ExcelBtnClick(Sender: TObject);
var i, j: integer;
    v: Variant;
begin
  ExApp := CoApplication_.Create;
  ExApp.Visible[0] := true;
  ExApp.Workbooks.Add(xlWBATWorksheet, 0);
  v := VarArrayCreate([0, DM.MainQuery.RecordCount+1,
                       0, Dm.MainQuery.FieldCount-1], varVariant);
  WS := ExApp.ActiveSheet as WorkSheet;
  for i:=0 to Dm.MainQuery.FieldCount-1 do begin
    v[0, i] := Dm.MainQuery.Fields.DisplayLabel;
  end;
  DM.MainQuery.First;
  j:=2;
  try
    DM.MainQuery.DisableControls;
    While not DM.MainQuery.Eof do begin
      for i:=0 to Dm.MainQuery.FieldCount-1 do begin
        v[j, i] := Dm.MainQuery.Fields.Value;
      end;
      dm.MainQuery.Next;
      inc(j);
    end;
  finally
    DM.MainQuery.EnableControls;
  end;
  ws.Cells.Range['a1',
    chr(ord('a')+varArrayHighBound(v, 2))+
    intToStr(varArrayHighBound(v, 1)+1)].value := v;
end;