Из таблицы BDE в Excel

[awde]

Здравствуйте, у меня проблема следующая. Мне нужно из таблицы BDE отправить данные в Excel. Все компоненты находятся в DataModule. Желательно про комментировать каждую строку, так как мне нужно это в курсовой и скорее всего придется объяснять. А да забыл сказать что таблица находится в Paradox 7

[Serge_Bliznykov]

а что тут думать - выбирайте нужные поля (можно ttable, можно tquery)
в цикле по всем записям проходитесь - нужные поля отправляете в MS Excel (через OLE-автоматизацию, например).
всё.

что в данной схеме не ясно?
записи перебирать можно так:

  dsMyData.Open;
  RowExcel := xxx; // № строчки, куда помещать данные в Excel
  while Not dsMyData.EOF do begin
     // кинуть в MS Excel нужные поля - как это сделать, см. по Delphi + Excel OLE автоматизация

    // увеличим позицию № строки
    inc(RowExcel);
  
    // перейдём на следующую запись в наборе данных
   RowExcel.Next;
  end;

[awde]

Спасибо. Я по другому сделал

procedure TForm3.Button4Click(Sender: TObject);
var
table:integer;
begin

If CreateExcel = true then
begin
VisibleExcel(true);
AddWorkBook;
AddSheet('123');
DataModule2.Table1.DisableControls;
ExcelTableAddFromDBGrid(DBGrid1,tru e,table);
DataModule2.Table1.EnableControls;
end;
end;

Дополнительный файл MyExcel подключил