Доклад: Отчётность в Excel

Наша задача создать отчётность в Excel. Эта потребность может возникнуть у каждого программиста баз данных, ведь Office установлен в нашей стране практически на каждом компьютере. А это значит, что вашу отчётность можно смело переносить между компьютерами и быть уверенным, что её смогут прочитать.

Сначала я покажу полностью процедуру, потому что исходников в конце статьи не будет, а потом мы разберём её по косточкам:

procedure TForm1.Button1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=40;

Colum.Columns[2].ColumnWidth:=10;

Colum.Columns[3].ColumnWidth:=30;

Colum.Columns[4].ColumnWidth:=10;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,2]:='Отчётиз Delphi';

Sheet.Cells[2,1]:='Колонка 1';

Sheet.Cells[2,2]:='Колонка 2';

Sheet.Cells[2,3]:='Колонка 3';

Sheet.Cells[2,4]:='Колонка 4';

index:=3;

for i:=0 to 2 do

--> ЧИТАТЬ ПОЛНОСТЬЮ <--