Перегон в Excel

[girz]

Созданно приложение с доступом к базе данных MS Access по технологии ADO используются компоненты ADOConection, ADOTable, DataSource, DBgrid.
Вопрос как вывести данные из DBgrida в Excel. Помогите очень надо код желательно с поиснениями.

[edgy]

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

Вопрос как вывести данные из DBgrida в Excel.

DBGrid не содержит данных. Он их всего лишь отображает.
Поэтому выводить данные будем из датасета.

Ну и как вариант:

procedure TForm1.Button1Click(Sender: TObject);
var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
   StartCol, StartRow, j : integer;
   RowCount, ColCount : Integer;
   n:OleVariant;
begin
   StartCol := 1;
   StartRow := 3;

 // Размеры выводимого массива данных
   RowCount := ADODataSet1.RecordCount;
   ColCount := ADODataSet1.FieldDefs.Count;

 // Создание Excel
   ExcelApp := CreateOleObject( 'Excel.Application' );

 // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;

    n := true;
 //  Создаем книгу (Workbook)
   Workbook := ExcelApp.WorkBooks.Add( n );
   ArrayData := VarArrayCreate( [ 0, RowCount, 1, ColCount ], varVariant );

     for j := 1 To ADODataSet1.FieldDefs.Count do
       begin
        ArrayData[ 0, j ] := ADODataSet1.FieldDefs.Items[ j - 1 ].DisplayName;
       end;

 // Заполняем массив
   ADODataSet1.DisableControls;
   ADODataSet1.First;
   while not ADODataSet1.Eof do
     begin
       for j := 1 To ADODataSet1.FieldDefs.Count Do begin
         ArrayData[ ADODataSet1.RecNo, j ] := ADODataSet1.FieldbyName( ADODataSet1.FieldDefs.Items[ j - 1 ].DisplayName ).value;
       end;
       ADODataSet1.Next;
   end;

   ADODataSet1.EnableControls;

//  Левая верхняя ячейка области, в которую будем выводить данные        
  Cell1 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow, StartCol ];
 // Правая нижняя ячейка области, в которую будем выводить данные
   Cell2 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow + RowCount, StartCol + ColCount - 1 ];

 // Область, в которую будем выводить данные
   Range := WorkBook.WorkSheets[ 1 ].Range[ Cell1, Cell2 ];

 //  Вывод данных
   ExcelApp.Application.Cells[ 1, 1 ] := form1.Caption;
   Range.Value := ArrayData;
   ExcelApp.Visible := True;
  end;

[edgy]

P.S. Да и чуть совсем не забыл, - для полной работоспособности не забудьте в uses упомянуть ComObj.

[artemavd]

А могут быть проблемы с перегоном, если таблицы связаны?

[edgy]

В Excel выводится содержимое датасета. Данные естественно могут представлять собой выборку из разных таблиц. Так что не вижу здесь каких-либо проблем.

[new_user]

я немного переделал под свою задачу

procedure TMain_.export_Click(Sender: TObject);
var
XLApp,Sheet,Colum:Variant;
x, y, i,index: integer;
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
   StartCol, StartRow, j : integer;
   RowCount, ColCount : Integer;
   n:OleVariant;
begin
   StartCol := 1;
   StartRow := 3;
   RowCount := module1.ADOTable4.RecordCount;
   ColCount := module1.ADOTable4.FieldDefs.Count;
    // Создание Excel
   ExcelApp := CreateOleObject( 'Excel.Application' );

 // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
   ExcelApp.Application.EnableEvents := false;

    n := true;
 //  Создаем книгу (Workbook)
   Workbook := ExcelApp.WorkBooks.Add( n );
   ArrayData := VarArrayCreate( [ 0, RowCount, 1, ColCount ], varVariant );

     for j := 1 To module1.ADOTable4.FieldDefs.Count do
       begin
        ArrayData[ 0, j ] := module1.ADOTable4.FieldDefs.Items[ j - 1 ].DisplayName;
       end;

 // Заполняем массив
   module1.ADOTable4.DisableControls;
  module1.ADOTable4.First;
   while not module1.ADOTable4.Eof do
     begin
       for j := 1 To module1.ADOTable4.FieldDefs.Count Do begin
         ArrayData[ module1.ADOTable4.RecNo, j ] := module1.ADOTable4.FieldbyName( module1.ADOTable4.FieldDefs.Items[ j - 1 ].DisplayName ).value;
       end;
       module1.ADOTable4.Next;
   end;

   module1.ADOTable4.EnableControls;

//  Левая верхняя ячейка области, в которую будем выводить данные        
  Cell1 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow, StartCol ];
 // Правая нижняя ячейка области, в которую будем выводить данные
   Cell2 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow + RowCount, StartCol + ColCount - 1 ];

 // Область, в которую будем выводить данные
   Range := WorkBook.WorkSheets[ 1 ].Range[ Cell1, Cell2 ];

 //  Вывод данных
   ExcelApp.Application.Cells[ 1, 1 ] := groupbox1.Caption;
   Range.Value := ArrayData;
   ExcelApp.Visible := True;
  end;

 {try
    XLApp := CreateOleObject('Excel.Application'); //открываю excel, но не отображаю его
  except
    MessageDlg('Похоже, что Microsoft Excel не установлен :(', mtError, [mbok], 0);
    exit;
  end;

у меня данные отображаются в дбгриде и название столбцов у меня другое чем в самой таблице, как мне сделать чтобы название как в дбгриде и как мне задать ширину столбцов выводимых в иксель?

[soleil@mmc]

"дешевле" (в смысле кода) сделать отчет, например, в фастрепорте и заюзать фильтр экспорта в эксель
опять-таки, если контора откажется от экселя и перейдет под ОпенОфис, то останется только новый фильтр экспорта добавить вместо переписывания кучи кода

[new_user]

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

[soleil@mmc]

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

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

ну так ты уточнения способа вывода не делал
и мой вариант решения вполне соответствует заданному вопросу

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

[new_user]

фастрепорта у меня нет возможности использовать, т.к в универе стоят обрезанные версии delphi и многих компонентов там нету