Delphi olecontainer excel одновременная работа

Обновлено: 07.07.2024

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

Разберём как происходит добавление формы в программу:

procedure TFOptions . Button3Click ( Sender : TObject ) ; //Предварительная обработка шаблона Main . XLApp . WorkBooks . Open ( OpenDialog1 . FileName ) ; AssignFile ( DatFile , Main . ProgDir + '\dat\ ' + ChangeFileExt ( ExtractFileName ( OpenDialog1 . FileName ) , '.dat' ) ) ; //* for k1 := 1 to Main . XLApp . Workbooks [ 1 ] . WorkSheets . Count do for k2 := 1 to Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . UsedRange . Columns . Count do for k3 := 1 to Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . UsedRange . Rows . Count do if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'sum' ) then if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'set' ) then if ( Main . XLApp . WorkBooks [ 1 ] . WorkSheets [ k1 ] . Cells [ k3 , k2 ] . Style . Name = 'mean' ) then Main . XLApp . WorkBooks [ 1 ] . SaveAs ( Main . ProgDir + '\forms\ ' + ExtractFileName ( OpenDialog1 . FileName ) ) ; //* IniFile := TIniFile . Create ( Main . ProgDir + '\Statistic.ini' ) ; length := IniFile . ReadInteger ( 'ListForms' , 'length' , length ) ; IniFile . WriteInteger ( 'ListForms' , 'length' , length + 1 ) ; IniFile . WriteString ( 'ListForms' , IntToStr ( length + 1 ) , ChangeFileExt ( ExtractFileName ( OpenDialog1 . FileName ) , '' ) ) ;

Добавление формы происходит при нажатии кнопки. После этого должен открыться экселевский файл, в котором проверяются все заполненые ячейки на наличие ячеек со стилями sum, mean и set. Позиции данных ячеек записываются в файл, для дальнейшего использования.

Рассмотрим код по подробнее:

Так же мы объявляем Файл данных. Тип данных будет integer

Что бы начать работать с OLE объектами надо для начала создать Com объект:

Синтаксис этой функции следующий: function CreateOleObject(const ClassName: string): IDispatch;

Тоесть в функции мы указываем имя класса ClassNam в виде string а на выходе функции мы получаем ID данного объекта.

Дальше мы может открыть файл Excel который мы выбрали в самом начале нашей процедруры:

Данную операцию мы проделываем используя метод Open Рабочей книги:

Main . XLApp . WorkBooks . Open ( OpenDialog1 . FileName ) ;

Данный метод имеет следующий ситнтаксис: .Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

Дальше мы открываем файл с данными для записи в файл получаемых значений, но так как статья об OLE объектах мы не будем подробно описывать:

Фантастика. Мало того, что это именно то, что спрашивает автор
и что ему действительно нужно, так это единственно-возможный
адекватный вариант - Close всё равно так или иначе не обойти,
что с Save/Changed, что без. Но не видишь, так не видишь.