* В следующем примере в форму включается элемент управления OLE
* Container, а свойства OleClass и DocumentFile используются, чтобы задать
* Excel в качестве OLE-сервера и определить электронную таблицу Excel в
* качестве редактируемого файла.

* Свойство DocumentFile определяет электронную таблицу BOOK1.XLS в
* каталоге EXCEL на диске C. Данный пример будет работать неправильно,
* если файл и каталог, заданные в свойстве DocumentFile, не существуют; в
* этом случае нужно модифицировать свойство DocumentFile, чтобы
* задать существующий файл электронной таблицы с каталогом.

* Метод DoVerb используется для активизации электронной таблицы при
* редактировании.

frmMyForm = CREATEOBJECT('Form') && Create a Form

frmMyForm.Closable = .F. && Disable the Control menu box

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && Add Command button

frmMyForm.AddObject("oleObject","oleExcelObject") && Add OLE object

frmMyForm.cmdCommand1.Visible=.T. && Display the "Quit" Command button

frmMyForm.oleObject.Visible=.T. && Display the OLE control

frmMyForm.oleObject.Height = 50 && OLE control height

frmMyForm.Show && Display the Form

frmMyForm.oleObject.DoVerb(-1) && -1 for Edit

READ EVENTS && Start event processing

DEFINE CLASS oleExcelObject as OLEControl

OleClass ="Excel.Sheet" && Server name

DocumentFile = "C:\EXCEL\BOOK1.XLS" && This file must exist

ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton && Create Command button

Caption = '\<Quit' && Caption on the Command button

Cancel = .T. && Default Cancel Command button (Esc)

Left = 125 && Command button column

Top = 210 && Command button row

Height = 25 && Command button height

PROCEDURE Click

CLEAR EVENTS && Stop event processing, close Form

ENDDEFINE