Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
09.03.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18381.zip — 4.74 kb
  • otchjotnost-v-excel_18381_1.rtf — 18.14 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Отчётность в 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
begin
Sheet.Rows[index].Font.Color:=clGreen;
Sheet.Cells[index,1]:=random(100);
Sheet.Cells[index,2]:=random(100);
Sheet.Cells[index,3]:=random(100);
Sheet.Cells[index,4].Font.Color:=clRed;
Sheet.Cells[index,4]:=random(100);



Ваше мнение



CAPTCHA