Иcпользование API на Delphi 7

for i := 1 to 10 do S.Cells[i, 1] := i;

S.Cells[i, 1] := '=Sum(A1:A10)'; // Вставка формулы

// Работа с областью (рангом)

R:=XLApp.Workbooks[1].WorkSheets['Delphi Data'].Range['C1:F25'];

R.Formula := '=RAND()'; // Вставка формулы в ранг

R.Columns.Interior.ColorIndex := 3; // Цвет закраски фона

R.Font.Color := clGreen; // Цвет ранга

R.Borders.LineStyle := cXL2; // Ячейки обрамленные

// Работа с колонкой и шрифтом

C:=XLApp.Workbooks[1].WorkSheets['Delphi Data'].Columns;

C.Columns[1].ColumnWidth := 5; C.Columns.Item[1].Font.Bold := True;

C.Columns[1].Font.Color := clBlue;

end;

end.

3. ИМПОРТ/ЭКСПОРТ ДАННЫХ ИЗ EXCEL

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, OleServer, ExcelXP, comobj;

type

TForm1 = class(TForm)

ee: TExcelApplication;

Button1: TButton;

StringGrid1: TStringGrid;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

// Импорт данных из Excel в StringGrid

var i: integer; s1,s2: string;

begin

StringGrid1.ColWidths[0]:=120; StringGrid1.ColWidths[1]:=320;

ee.Workbooks.Add('D:\Report11.xls ', 0);

ee.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

StringGrid1.RowCount:=ee.ActiveCell.Row;

for i:=0 to ee.ActiveCell.Row do begin

s1:=ee.Cells.Item[8+i, 2]; s2:=ee.Cells.Item[8+i, 3];

if s1='' then break;

StringGrid1.Cells[0, i]:=s1; StringGrid1.Cells[1, i]:=s2;

end; StringGrid1.RowCount:=i; ee.Disconnect;

end;

procedure TForm1.Button2Click(Sender: TObject);