Управление Microsoft Excel

Delphi , Технологии , OLE Automation MSOffice

uses AciveX;        // для Delphi 3 и 4

uses Ole2, OleAuto; // для Delphi 2

procedure TForm1.Button1Click(Sender: TObject);
var 
  MyExcel: Variant;
begin
  MyExcel:=CreateOleObject('Excel.Application');
  MyExcel.Visible:=true;
  MyExcel.WorkBooks.Add;
  MyExcel.Cells[1,1].value:='1';
  MyExcel.ActiveWorkbook.SaveAs(PATHNAME);
  MyExcel.Quit;
end;

Here's the translation of the text into Russian:

Этот программный код на языке Delphi создает экземпляр Microsoft Excel и выполняет некоторые основные операции с ним.

Следующий разбор кода:

uses AciveX;          // для Delphi 3 и 4
uses Ole2, OleAuto;   // для Delphi 2

Эти строки импортируют необходимые библиотеки для работы с компонентами ActiveX (AciveX) и автоматизацией OLE (Object Linking and Embedding) (Ole2 и OleAuto). Специфическая библиотека, используемая, зависит от версии Delphi.

procedure TForm1.Button1Click(Sender: TObject);

Это процедура, которая будет вызвана при клике кнопки Button1. Она является частью формы (TForm1), что означает, что она имеет доступ к компонентам и свойствам формы.

var MyExcel: Variant;

Эта строка объявляет переменную MyExcel типа Variant, которая может содержать любое тип данных, включая объекты.

begin
  MyExcel:=CreateOleObject('Excel.Application');

Эта строка создает экземпляр объекта приложения Excel с помощью функции CreateOleObject. Строка 'Excel.Application' указывает ProgID (Программный идентификатор) объекта, который нужно создать.

MyExcel.Visible:=true;

Эта строка устанавливает свойство Visible объекта приложения Excel в значение True, что делает его видимым на экране.

MyExcel.WorkBooks.Add;

Эта строка добавляет новый файл книги в приложение Excel.

MyExcel.Cells[1,1].Value:='1';

Эта строка устанавливает значение ячейки на первой строке и первой колонке активной страницы в значение '1'.

MyExcel.ActiveWorkbook.SaveAs(PATHNAME);

Эта строка сохраняет активную книгу в файл с указанным PATHNAME. Свойство ActiveWorkbook возвращает текущую активную книгу.

MyExcel.Quit;
end;

Наконец, эта строка закрывает приложение Excel и освобождает его ресурсы. Это важно для очистки после использования объектов COM, таких как Excel.

В целом, этот код демонстрирует, как создать экземпляр Microsoft Excel, сделать его видимым, добавить новый файл книги, установить значения ячеек и сохранить книгу в файл.

В статье описано использование Microsoft Excel в программировании на языке Delphi, с помощью кода на Pascal, демонстрируя создание приложения, которое открывает и редактирует файл Microsoft Excel.

Комментарии и вопросы

:: Главная :: OLE Automation MSOffice ::