Пример QuickStart из руководства по OfficeTemplates 2.0 чуть-чуть изменен
Код: Выделить всё
Ex.Init(window,?Ex,1,1,FALSE)
SETCURSOR(CURSOR:Wait)
Ex.CreateFile()
Ex.Select('A10')
Ex.Assign('10.2')
Ex.Select('A11')
Ex.Assign('24.7')
Ex.Select('A12')
Ex.ExecFunction('=SUM(A10:A11)')
Ex.AddSheet(2) ! <= КАМЕНЬ ПРЕТКНОВЕНИЯ !!!
! создается один лист, потом добавляются еще два
Ex.SelectSheet(1)
Ex.Assign('Hello Clarion!')
SETCURSOR()
Ex.SetVisible(TRUE)
Excel закрывается (пользователем) без ошибок
При работе в Win98 - Excel98
Excel закрывается (пользователем) - ошибка работы программы (Excel)
посоветуйте что-нибудь
и еще - как удалять листы в Office Templates?
Функции обратной AddSheet там нет
--
Best regards,
Иван mailto:shkmail@inbox.ru
Написал: ClaList(2)