Пример 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)
