ADOQuery выгрузить в эксель...

[Betmen]

все банально просто если бы не мелочи...
есть 1(!) таблица на сотрудников...поля отдел, кабинет, ФИО, телефон..
делаем запрос через АДОКвери.
надо организовать (а не "замутить") экспорт в эксель-таблицу из адо:
примерно вот такая таблица на выходе

Отдел абвгдэйка
каб.104 Иванов иван иваныч 333-22-11
каб.105 Иванов иван иваныч 333-22-12
каб.101 Иванов иван иваныч 333-22-13
Отдел IT
каб.102 Пупкин иван иваныч 333-22-00
каб.107 Пупкин Костя иваныч 333-22-04
каб.106 Пупкин Игорь иваныч 333-22-02

так вот, каждая запись доложна занимать строку в три ячейки (каб., ФИО, Тел.), строки группированы по отделу и перед группой строк с одинаковым значением поля ОТДЕЛ объединяем ячейки в строке и пишем туда название отдела, где эти сотрудники...
проблема возникла как объединить строку с названием отдела

вот что пока наработал...в АДОКвери1.СКУЛЬ написано селект * имя_таблицы

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  XLApp, Sheet, Colum, row:Variant;
  index:Integer;
begin
  XLApp:= CreateOleObject('Excel.Application');
  XLApp.Visible:=true;
  XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].WorkSheets[1].Name:='1';
//изменяем ширину столбцов
  Colum:=XLApp.Workbooks[1].WorkSheets['1'].Columns;
  Colum.Columns(1).ColumnWidth:=20;
  Colum.Columns[2].ColumnWidth:=20;
  Colum.Columns[3].ColumnWidth:=20;
  Colum.Columns[4].ColumnWidth:=20;
//формат текста в первой строке
  Row:=XLApp.Workbooks[1].WorkSheets['1'].Rows;
  Row.Rows[1].Font.Bold:=true;
  Row.Rows[1].Font.Color:=clBlue;
  Row.Rows[1].Font.Size:=14;

  Sheet:=XLApp.Workbooks[1].WorkSheets['1'];
//заполняем ШАПКУ
  Sheet.Cells[1,1]:='каб';
  Sheet.Cells[1,2]:='фио';
  Sheet.Cells[1,3]:='тел';
  index:=2;
  ADOQuery1.First;
//заполняем строки циклом "пока не кончились строки в квери"
  while not ADOQuery1.EOF do
  begin

    Sheet.cells[index,2]:=ADOQuery1.Fields[2].AsString;//каб
    Sheet.cells[index,3]:=ADOQuery1.Fields[3].AsString;//фио
    Sheet.cells[index,4]:=ADOQuery1.Fields[4].AsString;//тел

    Inc(index);
    ADOQuery1.Next;
  end;

end;

Давайте писать на нормальном русском языке.
Вы не в подъезде с дружками общаетесь, а находитесь на серьезном форуме...

[monushka]

Объединение ячеек осуществляется с помощью свойства Merge. Например, вот так:

E.ActiveSheet.Range['A3:C4', EmptyParam].Merge(True);

Вообще советую Вам эту ссылку, здесь есть ответы на многие вопросы, связанные с редактированием Excel посредством Delphi.

[Betmen]

насчет русского языка...так проще, это щитается жаргонными выражениями...спасибо за помощь, но как-то на форуме негусто стало...просто пока написали ответ, я сам нашел и все сделал...всем спасибо)

[mihali4]

Это - не жаргон. Это пошлое юношеско-прыщавое выпендривание.