Для работы с Excel в Delphi, первым делом нужно в Uses указать модуль ComObj.
Как запустить Excel и открыть новый документ в Delphi
|
1 2 3 4 5 6 7 8 |
procedure TForm1.Button1Click(Sender: TObject); var XL: Variant; begin XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта XL.WorkBooks.add; // Создание новой рабочей книги XL.visible := true; end; |
Как обратиться к отдельным ячейкам листа Excel в Delphi
|
1 2 3 4 |
XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Value:='30'; //Результатом является присвоение ячейке [1,1] первого листа значения 30. Также к ячейке //текущего листа можно обратиться следующим образом: XL.Cells[1, 1]:='30'; |
Как добавить формулу в ячейку листа Excel в Delphi
|
1 |
XL.WorkBooks[1].WorkSheets[1].Cells[3,3].Value := '=SUM(B1:B2)'; |
Форматирование текста в ячейках Excel, производится с помощью свойств Font и Interior объекта Cell:
|
1 2 3 4 5 6 7 |
// Цвет заливки XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Interior.Color := clYellow; // Цвет шрифта XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Color := clRed; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Name := 'Courier'; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Size := 16; XL.WorkBooks[1].WorkSheets[1].Cells[1,1].Font.Bold := True; |
Работа с прямоугольными областями ячеек, с помощью объекта Range:
|
1 2 3 |
XL.WorkBooks[1].WorkSheets[1].Range['A1:C5'].Value := 'Blue text'; XL.WorkBooks[1].WorkSheets[1].Range['A1:C5'].Font.Color := clBlue; //В результате в области A1:C5 все ячейки заполняются текстом 'Blue text'. |
Как выделить группу (область) ячеек Excel в Delphi
|
1 |
XL.Range['A1:C10'].Select; |
Как установить объединение ячеек, перенос по словам, и горизонтальное или вертикальное выравнивание Excel в Delphi
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
//Выделяем группу (область) ячеек XL.Range['A1:C10'].Select; // объединение ячеек XL.Selection.MergeCells:=True; // перенос по словам XL.Selection.WrapText:=True; // горизонтальное выравнивание XL.Selection.HorizontalAlignment:=3; //вериткальное выравнивание XL.Selection.VerticalAlignment:=1; //Возможны следующие значения: //1 - выравнивание по умолчанию, //2 - выравнивание слева, //3 - выравнивание по центру, //4 - выравнивание справа. |
Как задать границы ячеек Excel в Delphi
|
1 2 |
XL.Selection.Borders.LineStyle:=1; // значение может быть установлено от 1 до 10 |
Как выровнять столбцы Excel по ширине, в зависимости от содержания
|
1 |
XL.selection.Columns.AutoFit; |
Как удалить столбец Excel в Delphi
|
1 |
XL.columns[1].delete; |
Как задать формат ячеек Excel в Delphi
|
1 2 3 4 |
XL.columns[1].NumberFormat := '@'; // текстовый формат XL.columns[1].NumberFormat := 'm/d/yyyy'; // формат дата XL.columns[1].NumberFormat = '0.00%' // формат процентный XL.columns[1].NumberFormat = 'h:mm;@'// формат время |