На этом шаге мы рассмотрим компонент TExcelWorksheet.

Компонент TExcelWorksheet - сервер, позволяющий работать с отдельными листами отдельной книги в Excel. Основные 4 свойства аналогичны свойствам TWordApplication.

Рассмотрим некоторые свойства и методы данного компонента.

Удалить лист в книге методом Delete

ExcelWorksheet1.Delete(lcid);  //lcid= LOCALE_SYSTEM_DEFAULT

Вставить картинку

ExcelWorksheet1.Shapes.AddPicture('полный путь доступа к картинке',1,1,10,4,30,50);

где 10 - отступ слева, 4 - отступ сверху, 30 – ширина, 50 – высота.

Определить количество строк и столбцов

1.
ExcelWorksheet1.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
// Количество строк и столбцов.
Caption:='Строк: '+inttostr(ExcelApplication1.ActiveCell.Row)+' Столбцов: '+ 
                              inttostr(ExcelApplication1.ActiveCell.Column);
2.
// Количество столбцов.
caption:=inttostr(ExcelWorksheet1.UsedRange[0].Columns.Count );
//Количество строк.
caption:=inttostr(ExcelWorksheet1.UsedRange[0].Rows.Count );

Установить ориентацию листа

ExcelWorksheet1.PageSetup.Orientation:=xlLandscape;//Альбомная.
ExcelWorksheet1.PageSetup.Orientation:=xlPortrait; //Книжная.

Задать имя листа

ExcelWorksheet1.Name:='Имя листа';

Добавить линию

ExcelWorksheet1.Shapes.AddLine(х1,у1,х2,у2);

где х1,у1 – координаты начала линии, х2,у2 – координаты конца линии.

Добавить фигуру

ExcelWorksheet1.Shapes.AddShape(Type:Integer,х1,у1,х2,у2);

где type – задает тип фигуры, х1,у1 – координаты левого верхнего угла, х2,у2 – правого нижнего угла.

Создадим приложение, иллюстрирующее данное свойство. На форме разместим две кнопки и компонент TRadioGroup, позволяющий выбирать фигуру для добавления в документ Microsoft Excel. Результат работы приложения можно увидеть на рисунке.

Рис.1. Графические вставки в Microsoft Excel

Текст этого примера можно взять здесь.

Предыдущий шаг Содержание