Здравствуйте! Помогите, пожалуйста!
Я программирую в Lotus Notes, раньше создавал отчеты при момощи VBA в MS office:
        Set xl=CreateObject("Excel.Application")
        Set xlWbk=xl.Workbooks.Add
        xl.Visible=True
        xlWbk.ActiveSheet.Cells(1,1) = "отчет"
Теперь возникла необходимость избавиться от MS из-за некоторых
обстоятельств :) Поэтому нужно из VBA через OLE добраться до листа
OpenOffice документа. Пока наковырял только это:
               Forall o In rtitem.EmbeddedObjects
                Set handle=o.Activate(True)     
                Set document   = handle.CurrentController.Frame
               End Forall
или так:    Set xl=CreateObject("opendocument.CalcDocument.1")
А вот дальше не получается.

Reply via email to