Форум программистов [Powered by Invision Power Board]

Код

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, DB,
  DBTables,ComObj,activeX, Excel2000, OleServer;
не забуть на форму добавить Exel хреновины во вкладке Servers. 
procedure TForm10.BitBtn5Click(Sender: TObject);

Var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
   App:variant;
Begin
   BeginCol := 1;
   BeginRow := 17;

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


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


 //  Создаем Книгу (Workbook)
 //  Если заполняем шаблон, то
   Workbook := ExcelApp.WorkBooks.Add('C:\ДИПЛОМ Ильиных\ПРАЙС\1.xls' );
   ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

 // Заполняем массив
   Table1.DisableControls;
   Table1.First;
   While Not Table1.eof Do
   Begin
       For J := 1 To Table1.FieldDefs.Count Do
       Begin
           ArrayData[Table1.RecNo, J] :=
            Table1.FieldbyName(Table1.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Table1.Next;
   End;

   Table1.EnableControls;

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

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

 // А вот и сам вывод данных
 // Намного быстрее поячеечного присвоения
   Range.Value := ArrayData;

 // Делаем Excel видимым
   ExcelApp.Visible := True;
end;