Однако не получается установить свойства шрифта в ячейке.
Код:
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
Excel, Workbook, Wsheet1: variant;
i, j: integer;
begin
try
Excel := CreateOleObject('Excel.Application');
Excel.Visible := True;
except
Application.MessageBox('Microsoft Excel не найден.',
'Невозможно выполнить экспорт', MB_OK or MB_ICONWARNING);
Exit;
end;
Workbook := Excel.Workbooks.Add;
// Wsheet1 := Workbook.Sheets[0]; // не работает
Wsheet1 := Workbook.ActiveSheet;
for i := 1 to 9 do
begin
Wsheet1.Cells(Succ(i), 1) := i;
// Wsheet1.Cells(Succ(i), 1).Font.Size = 14; // не работает
// Wsheet1.Cells(Succ(i), 1).Font.Bold = True; // не работает
Wsheet1.Cells(1, Succ(i)) := i;
end;
for i := 1 to 9 do
begin
for j := 1 to 9 do
begin
Wsheet1.Cells(Succ(i), Succ(j)) := i * j;
end;
end;
Wsheet1.Columns.AutoFit;
end;
Как задать свойства ячейки?
Lazarus 0.9.28.3 FPC 2.4.0
