Privet!
Navernoje nado perevesti vsjo eto na english ili postoratsja naiti
russkojazoicnij user list. Sam ja k sozeleniju pomoc nemogu.
Andis
Serg Pechenov wrote:
Здравствуйте! Помогите, пожалуйста!
Я программирую в 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")
А вот дальше не получается.
