forum.clarionlife.net

Код: Выделить всё

EO_  Long ! Хотя правильно конечно CString(65)
Visible_ Byte(True)

  Code

  EO_                        = Create(0,Create:Ole)
  EO_{Prop:Create}           = 'Excel.Application'

  If Visible_ then EO_{'Application.Visible'} = True.

  If EO_{'Application.Name'} = 'No ole automation interface'
     Destroy(EO_)
  else
     If Visible_ then  EO_{'Application.Visible'} = -1.
     EO_{'Application.Activate'}
     EO_{'Application.WorkBooks.Add'}
     
     ! Юзаем с удовольствием Microsft Excel через интерфейс OLE
     
     EO_{'Application.ActiveWindow.Close'}
     EO_{'Application.Quit'}

     EO_{Prop:Deactivate}
     Destroy(EO_)     
  end