Робота з EXCEL: прийоми оформлення документа (звіту)
В
uses додати ComObj
var
Form1:
TForm1;
XL
: Variant;// Змінна в якій створюється об'єкт EXCEL
Створення документа
// Об'єкт EXCEL
XL: =
CreateOleObject ( 'Excel.Application');
//
Щоб не ставив питання про збереження документа
: = False;
//
новий документ
XL.WorkBooks.Add;
//
або завантажуємо його
XL.WorkBooks.Open (MyDir
+ 'Akt.xls');
(
MyDir - глобальна змінна типу string у неї поміщаємо шлях
до
каталогу запуску нашої програми по події FormCreate
procedure TForm1.FormCreate (Sender:
TObject);
begin
GetDir (0, MyDir);
end;
я
завжди так роблю, щоб програму можна було в будь-який каталог
помістити
разом зі своїми додатковими файлами, в цьому випадку шлях
буде
вибиратися завжди правильно
)
//
Робимо його видимим
XL.Visible
: = True;
//
Коли прога вже відтестовані краще це робити в кінці, швидше працює,
//
а поки немає краще на початку
//
Ліве і праве поля відступу для друку
XL.WorkBooks [1]. WorkSheets [1]. PageSetup.LeftMargin
: = 30;
XL.WorkBooks [1]. WorkSheets [1]. PageSetup.RightMargin
: = 10;
// Даємо назву сторінці
XL.WorkBooks [1]. WorkSheets [1]. Name
: = 'Прайс лист';
//
Рядок з'являється на кожному аркуші під час друку
XL.WorkBooks [1]. WorkSheets [1]. PageSetup.PrintTitleRows
: = '$ 3: $ 3';
XL.WorkBooks [1]. WorkSheets [1]. PageSetup.PrintTitleColumns
: = '$ A: $ A';
// формат числа
for i: 4 = 13 to do
XL.WorkBooks [1]. WorkSheets [1]. Columns [i]. NumberFormat
: = '0, 00 ';
XL.WorkBooks [1]. WorkSheets [1]. Columns [4]. NumberFormat
: = '0 ';
//
Таким способом можна задавати ширину колонки
XL.WorkBooks [1]. WorkSheets [1]. Columns [1]. ColumnWidth
: = 4.5;
XL.WorkBooks [1]. WorkSheets [1]. Columns [2]. ColumnWidth
: = 50;
for i: = 3 to 13 do
XL.WorkBooks [1]. WorkSheets [1]. Columns [i]. ColumnWidth
: = 8;
// Шрифт жирний
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. Font.Bold
: = True;
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. Font.Color
: = ClBlack;
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. Font.Size
: = 16;
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. Font.Name
: = 'Times New Roman';
XL.WorkBooks [1]. WorkSheets [1]. Cells [1,4]
: = 'Прайс лист';
// вирівнюючи по
центру по вертикалі
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. VerticalAlignment
: = 2;
// вирівнюючи по
центру по горизонталі
XL.WorkBooks [1]. WorkSheets [1]. Rows [1]. HorizontalAlignment
: = 3;
// Дмитро Старців осередку
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A1: D1']. Merge;
// вирівнюючи по
центру по вертикалі
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. VerticalAlignment
: = 2;
// вирівнюючи по
центру по горизонталі
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. HorizontalAlignment
: = 3;
// вирівнюючи по
лівому краю
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,2]. HorizontalAlignment
: 2 =;
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,3]. HorizontalAlignment
: = 2;
// вирівнюючи по
правому краю
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,4]. HorizontalAlignment
: = 4;
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. Font.Color
: = ClBlack;
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. Font.Name
: = 'Times New Roman';
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. Font.Size
: = 12;
XL.WorkBooks [1]. WorkSheets [1]. Rows [3]. Font.Bold
: = True;
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,1]
: = '№';
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,2]
: = 'Назва продукції';
XL.WorkBooks [1]. WorkSheets [1]. Cells [3,3]
: = 'Од. вим .';
//
змалювання діапазону комірок тільки знизу
//
Borders [1] .... [4] - це краю комірки ColorIndex -4142 - пустий колір i і n --
змінні
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders.LineStyle: = 1;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders.Weight: = 2;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders [4]. ColorIndex: =
1;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders [1]. ColorIndex: =
-4142;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders [2]. ColorIndex: =
-4142;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A'
+ IntToStr (i) + ':' + chr (ord ( 'C') + n) + IntToStr (i)]. Borders [3]. ColorIndex: =
-4142;
// змалювання діапазону комірок
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A3:'
+ Chr (ord ( 'C') + n) + IntToStr (i)]. Borders.LineStyle: = 1;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A3:'
+ Chr (ord ( 'C') + n) + IntToStr (i)]. Borders.Weight: = 2;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A3:'
+ Chr (ord ( 'C') + n) + IntToStr (i)]. Borders.ColorIndex: = 1;
// присвоєння клітинці значення
XL.WorkBooks [1]. WorkSheets [1]. Cells [i, j]
: = 'К-сть';
//
Повертати слова, писати вертикально, під кутом і т.д.
XL.WorkBooks [1]. WorkSheets [1]. Rows [2]. Orientation
: = 90;
XL.WorkBooks [1]. WorkSheets [1]. Range [ 'A2: B2']. Orientation
: = 0;
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://vlad2000.h1.ru/
