Обращение к Microsoft Excel из среды Delphi. Обращение к Excel из DELPHI
В данном обзоре рассмотрены основные конструкции, позволяющие получить доступ к книге Excel из DELPHI.
Организация доступа к книге EXCEL
Для взаимодействия с MS excel в
программе необходимо использовать
модуль ComObj
uses ComObj;
и объявить переменную для доступа к MS excel
следующего типа:
var Excel: Variant;
Инициализация переменной Excel в
простейшем случае можно осуществить так:
Excel:=
CreateOleObject("Excel.Application");
Создание новой книги:
Excel.Workbooks.Add;
Открытие существующей книги (где
path
- путь к фалу с
расширением xls.):
Excel.Workbooks.Open;
Открытие существующей книги
только для чтения:
Excel.Workbooks.Open;
Закрытие Excel:
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
Блокировка запросов (подтвеждений,
уведомлений) Excel, например, запретить
запрос на сохранение файла:
Excel.DisplayAlerts:=False;
Отображаем Excel на экране:
Excel.Visible:= True;
или скрываем:
Excel.Visible:= False;
Печать содержимого активного
листа excel:
Excel.ActiveSheet.PrintOut;
Чтение/запись данных в EXCEL
Доступ к ячейке в текущей книге
Excel можно осуществить следующим образом:
Excel.Range["B2"]:="Привет!";
-
для записи значения в ячейку или
s:=Excel.Range["B2"];
- для
чтения,
где B2
- адрес ячейки.
Или используя стиль ссылок R1C1:
Excel.Range]:="Привет!";
,
где
- координата ячейки.
Вообще, ячейке Excel можно присваивать любое значение (символьное, целое, дробное, дата) при этом Excel установит форматирование в ячейке применяемое по умолчанию.
Формат ячеек в EXCEL
Выделить (выбрать) группу ячеек
для последующей работы можно так:
Excel.Range,
Excel.Cells].Select;
или
Excel.Range["A1:C5"].Select;
при этом будет выделена область
находящаяся между ячейкой A1 и C5.
После выполнения выделения
можно установить:
1) объединение ячеек
Excel.Selection.MergeCells:=True;
2) перенос по словам
Excel.Selection.WrapText:=True;
3) горизонтальное выравнивание
Excel.Selection.HorizontalAlignment:=3;
при присваивании значения 1 используется
выравнивание по умолчанию, при 2 -
выравнивание слева, 3 - по центру, 4 - справа.
4) вериткальное выравнивание
Excel.Selection.VerticalAlignment:=1;
присваиваемые значения аналогичны
горизонтальному выравниванию.
5) граница для ячеек
При значении 1 границы ячеек рисуются
тонкими сплошными линиями.
Кроме этого можно указать значения для
свойства Borders, например, равное 3. Тогда
установится только верхняя граница для
блока выделения:
Excel.Selection.Borders.LineStyle:=1;
Значение свойства Borders задает различную
комбинацию граней ячеек.
В обоих случаях можно использовать
значения в диапазоне от 1 до 10.
Использование паролей в EXCEL
Установка пароля для активной
книги может быть произведена следующим
образом:
try
// попытка установить пароль
Excel.ActiveWorkbook.protect("pass");
except
// действия при неудачной попытке
установить пароль
end;
где pass - устанавливаемый пароль на книгу.
Снятие пароля с книги
аналогично, использовуем команду
Excel.ActiveWorkbook.Unprotect("pass");
Установка и снятие пароля для
активного листа книги Excel производится
командами
Excel.ActiveSheet.protect("pass"); // установка
пароля
Excel.ActiveSheet.Unprotect("pass"); // снятие пароля
где pass - пароль, установленный для защиты
книги.
Вспомогательные операции в EXCEL
Удаление строк со сдвигом
вверх:
Excel.Rows["5:15"].Select;
Excel.Selection.Delete;
при выполнении данных действий будут
удалены строки с 5 по 15.
Установка закрепления области
на активном листе Excel
// снимаем
закрепление области, если оно было задано
Excel.ActiveWindow.FreezePanes:=False;
// выделяем нужную ячейку, в
данном случае D3
Excel.Range["D3"].Select;
// устанавливаем
закрепление области
Excel.ActiveWindow.FreezePanes:=True;
Удачной работы!
В этой статье мы рассмотрим основные конструкции, позволяющие получить доступ к книге MS Excel из Delphi.
Организация доступа к книге EXCEL
Для взаимодействия с MS Excel в программе необходимо использовать модуль ComObj
Uses ComObj;
и объявить переменную для доступа к MS Excel следующего типа:
Var MsExcel: Variant;
Инициализация переменной Excel в простейшем случае можно осуществить так:
MsExcel:= CreateOleObject("Excel.Application");
Создание новой книги:
MsExcel.Workbooks.Add;
Открытие существующей книги (где path - путь к фалу с расширением xls.):
MsExcel.Workbooks.Open;
Открытие существующей книги только для чтения:
MsExcel.Workbooks.Open;
Закрытие Excel:
MsExcel.ActiveWorkbook.Close; MsExcel.Application.Quit;
Блокировка запросов (подтверждений, уведомлений) Ms Excel, например, запретить запрос на сохранение файла:
MsExcel.DisplayAlerts:=False;
Отображаем Excel на экране:
MsExcel.Visible:= True;
или скрываем:
MsExcel.Visible:= False;
Печать содержимого активного листа MS Excel:
MsExcel.ActiveSheet.PrintOut;
Чтение/запись данных в EXCEL
Доступ к ячейке в текущей книге Excel можно осуществить следующим образом:
Для записи значения в ячейку:
MsExcel.Range["B2"]:="Привет!";
Для чтения значения из ячейки:
S:=MsExcel.Range["B2"];
где B2 - адрес ячейки.
Или используя стиль ссылок R1C1:
MsExcel.Range]:="Привет!";
где - координата ячейки.
Вообще, ячейке Excel можно присваивать любое значение (символьное, целое, дробное, дата) при этом Ms Excel установит форматирование в ячейке применяемое по умолчанию.
Формат ячеек в EXCEL
Выделить (выбрать) группу ячеек для последующей работы можно так:
MsExcel.Range, MsExcel.Cells].Select; // или MsExcel.Range["A1:C5"].Select;
при этом будет выделена область находящаяся между ячейкой A1 и C5.
После выполнения выделения можно установить объединение ячеек, перенос по словам, а также горизонтальное и вертикальное выравнивание:
// объединение ячеек MsExcel.Selection.MergeCells:=True; // перенос по словам MsExcel.Selection.WrapText:=True; // горизонтальное выравнивание MsExcel.Selection.HorizontalAlignment:=3; // вертикальное выравнивание MsExcel.Selection.VerticalAlignment:=1;
Для вертикального и горизонтального выравнивания используются следующие значения:
1 - используется выравнивание по умолчанию
2 - выравнивание слева
3 - по центру
4 - справа.
Граница ячеек
При значении 1 границы ячеек рисуются тонкими сплошными линиями.
Кроме этого можно указать значения для свойства Borders, например, равное 3. Тогда установится только верхняя граница для блока выделения:
MsExcel.Selection.Borders.LineStyle:=1;
Значение свойства Borders задает различную комбинацию граней ячеек. В обоих случаях можно использовать значения в диапазоне от 1 до 10.
Использование паролей в EXCEL
Установка пароля для активной книги может быть произведена следующим образом:
Try // попытка установить пароль MsExcel.ActiveWorkbook.protect("pass"); except // действия при неудачной попытке установить пароль end;
где pass - устанавливаемый пароль на книгу.
Снятие пароля с книги аналогично, используем команду
MsExcel.ActiveWorkbook.Unprotect("pass");
где pass
Установка и снятие пароля для активного листа книги Excel производится командами
MsExcel.ActiveSheet.protect("pass"); // установка пароля MsExcel.ActiveSheet.Unprotect("pass"); // снятие пароля
где pass - пароль, установленный для защиты книги.
Вспомогательные операции в EXCEL
Удаление строк со сдвигом вверх:
MsExcel.Rows["5:15"].Select; MsExcel.Selection.;
при выполнении данных действий будут удалены строки с 5 по 15.
Установка закрепления области на активном листе Excel
// снимаем закрепление области, если оно было задано MsExcel.ActiveWindow.FreezePanes:=False; // выделяем нужную ячейку, в данном случае D3 MsExcel.Range["D3"].Select; // устанавливаем закрепление области MsExcel.ActiveWindow.FreezePanes:=True;
Сохранение активной книги Excel
Мы рассмотрели в разд. 6.4.2 основные операции, связанные с книгами. Теперь перейдем к операциям с листами книги. Коллекция листов содержится в свойстве Worksheets объекта книги. Эта коллекция по своим свойствам подобна рассмотренной ранее коллекции Workbooks. К листу можно обращаться по индексу или по имени. Например, следующие операторы при работе с серверами СОМ открывают и активизируют первый лист книги, представленной объектом Excel Workbook 1, передают указатель на этот лист в переменную Excel Worksheet 1 и активизируют лист, т.е. выдвигают его на первый план в окне Excel:
ExcelWorksheetl:= ExcelWorkbookl.Worksheets as ExcelWorksheet; ExcelWorksheetl.Activate(LOCALE_USER_DEFAULT);
ExcelWorksheetl:= ExcelWorkbookl.Worksheets; ExcelWorksheetl.Activate;
Свойство Worksheets имеется также в объекте сервера. Это свойство относится к активной книге. Так что следующие операторы при работе с серверами СОМ производят операции с активной книгой, открывая и активизируя в ней лист, имя которого (например, "Лист1") задано в окне редактирования Editl:
Worksheets as ExcelWorksheet; ExcelWorksheetl.Activate(LOCALE USER DEFAULT);
При работе с серверами автоматизации OLE аналогичные операторы выглядят так:
ExcelWorksheetl:= ExcelApplicationl.Worksheets; ExcelWorksheetl.Activate;
Если лист с заданным именем отсутствует в книге, будет генерироваться исключение. Так что если имеется подобная опасность, это исключение надо перехватить, например, следующим образом:
ExcelWorksheetl:= ExcelApplicationl.
Worksheets as ExcelWorksheet; ExcelWorksheetl.Activate(LOCALE_USER_DEFAULT); except
ShowMessage("He удалось открыть лист "" + Editl.Text + """); end;
Добавить новый лист в книгу можно методом Add объекта Worksheets:
Function Add(Before: OleVariant; After: OleVariant; Count: OleVariant; Type_: OleVariant; lcid: Integer): IDispatch;
Параметры Before или After - это объект листа, перед которым или после которого осуществляется вставка. Обычно достаточно задать только один из этих параметров, а другой сделать равным EmptyParam. Если оба параметра равны EmptyParam, то новые листы вставляются перед текущим активным листом. Параметр Count указывает число вставляемых листов. Если этот параметр равен EmptyParam, то вставляется один лист. Параметр Туре__ определяет тип вставки. При значении EmptyParam вставляется новый пустой лист.
Например, следующий код при работе с серверами СОМ вставляет один новый лист перед активным листом активной книги и передает указатель на него в переменную ExcelWorksheetl:
EmptyParam, EmptyParam, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT) as ExcelWorksheet;
А следующий код вставляет два новых листа после третьего листа активной книги:
Var After, Num: OleVariant; After:= ExcelApplicationl.Worksheets; Num:= 2;
ExcelWorksheetl:= ExcelApplicationl.Worksheets.Add(
EmptyParam,After,Num,EmptyParam, LOCALE_USER_DEFAULT) as ExcelWorksheet;
При работе с серверами автоматизации OLE аналогичные операторы выглядят так:
ExcelWorksheetl:= ExcelApplicationl.Worksheets.Add;
ExcelWorksheetl:= ExcelApplicationl.Worksheets.Add(
After:= ExcelApplicationl.Worksheets, Count:= 2);
Имя вставленного или любого имеющегося листа можно изменить с помощью свойства Name. Например:
ExcelWorksheetl.Name:= "Счет-фактура"; Удалить лист из книги можно методом Delete:
ExcelWorksheetl.Delete(LOCALE_USER_DEFAULT);
Напечатать лист можно методом Printout, не отличающимся от аналогичного метода, описанного ранее для книги. Например, печать текущей страницы при работе с серверами СОМ может быть оформлена так:
ExcelWorksheetl:= ExcelApplicationl.ActiveSheet as, ExcelWorksheet; ExcelWorksheetl.Printout(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LOCALE_USER_DEFAULT);
При работе с серверами автоматизации OLE получается попроще:
ExcelWorksheetl:= ExcelApplicationl.ActiveSheet; ExcelWorksheetl.Printout;
Предварительный просмотр листа перед печатью можно осуществить методом PrintPreview:
Procedure PrintPreview(EnableChanges: OleVariant; leid: Integer);
Параметр EnableChanges указывает возможность внесения изменений при просмотре. Например, следующий оператор обеспечивает при работе с серверами СОМ предварительный просмотр активного листа книги:
(ExcelApplicationl.ActiveSheet as ExcelWorksheet).
PrintPreview (true, LOCALE_USER_DEFAULT) ;
Для серверов OLE аналогичный оператор имеет вид:
ExcelApplicationl.ActiveSheet;PrintPreview(true);
В данном обзоре рассмотрены основные конструкции, позволяющие получить доступ к книге Excel из Delphi.
Организация доступа к книге EXCEL
Для взаимодействия с MS excel в программе необходимо использовать модуль ComObj и объявить переменную для доступа к MS Excel вариантного типа.
uses ComObj;
var Excel: Variant;
Инициализацию переменной Excel в простейшем случае можно осуществить так:
Excel:= CreateOleObject("Excel.Application");
Создание новой книги:
Excel.Workbooks.Add;
Открытие существующей книги (где path - путь к фалу с расширением xls.):
Excel.Workbooks.Open;
Открытие существующей книги только для чтения:
Excel.Workbooks.Open;
Закрытие Excel:
Excel.ActiveWorkbook.Close;
Excel.Application.Quit;
Блокировка запросов (подтвеждений, уведомлений) Excel, например, запретить запрос на сохранение файла:
Excel.DisplayAlerts:=False;
Отображаем или скрываем Excel на экране:
Excel.Visible:= True;
Excel.Visible:= False;
Печать содержимого активного листа Excel:
Excel.ActiveSheet.PrintOut;
Чтение/запись данных в EXCEL
Доступ к ячейке в текущей книге Excel можно осуществить следующим образом:
Excel.Range["b2"]:="Привет!"; // запись значения в ячейку
s:=Excel.Range["b2"]; // чтение значения из ячейки
Где b2 - адрес ячейки.
Или используя стиль ссылок R1C1:
Excel.Range]:="Привет!";
Где - координата ячейки.
Вообще, ячейке Excel можно присваивать любое значение (символьное, целое, дробное, дата) при этом Excel установит форматирование в ячейке применяемое по умолчанию.
Формат ячеек в EXCEL
Выделить (выбрать) группу ячеек для последующей работы можно так:
Excel.Range, Excel.Cells].Select;
// либо
Excel.Range["A1:C5"].Select;
При этом будет выделена область находящаяся между ячейкой A1 и C5.
После выполнения выделения можно установить:
1) Объединение ячеек:
Excel.Selection.MergeCells:=True;
2) Перенос по словам:
Excel.Selection.WrapText:=True;
3) Горизонтальное выравнивание:
Excel.Selection.HorizontalAlignment:=3;
При присваивании значения 1 используется выравнивание по умолчанию, при 2 - выравнивание слева, 3 - по центру, 4 - справа. 4) Вериткальное выравнивание
Excel.Selection.VerticalAlignment:=1;
Присваиваемые значения аналогичны горизонтальному выравниванию.
5) Граница для ячеек:
При значении 1 границы ячеек рисуются тонкими сплошными линиями.
Кроме этого можно указать значения для свойства Borders, например, равное 3. Тогда установится только верхняя граница для блока выделения:
Excel.Selection.Borders.LineStyle:=1;
Значение свойства Borders задает различную комбинацию граней ячеек.
В обоих случаях можно использовать значения в диапазоне от 1 до 10.
Использование паролей в EXCEL
Установка пароля для активной книги может быть произведена следующим образом:
try
// попытка установить пароль
Excel.ActiveWorkbook.protect("pass");
except
// действия при неудачной попытке установить пароль
end;
Где pass - устанавливаемый пароль на книгу.
Снятие пароля с книги аналогично, использовуем команду
Excel.ActiveWorkbook.Unprotect("pass");
Установка и снятие пароля для активного листа книги Excel производится командами
Excel.ActiveSheet.protect("pass"); // установка пароля
Excel.ActiveSheet.Unprotect("pass"); // снятие пароля
Где pass - пароль, установленный для защиты книги.
Вспомогательные операции в EXCEL
Удаление строк со сдвигом вверх (при выполнении данных действий будут удалены строки с 5 по 15):
Excel.Rows["5:15"].Select;
Excel.Selection.Delete;
Установка закрепления области на активном листе Excel:
// снимаем закрепление области, если оно было задано
Excel.ActiveWindow.FreezePanes:=False;
// выделяем нужную ячейку, в данном случае D3
Excel.Range["D3"].Select;
// устанавливаем закрепление области
Excel.ActiveWindow.FreezePanes:=True;
