-
Здравствуйте, помогите пожалуйста разобраться. Delphi XE2 Update 3. Excel 14.0.7015.1000 x64. Не могу понять почему первая строка вызывает исключение, а вторая отрабатывает нормально. Заранее спасибо.
var app:OleVariant; ....... //Получение объекта. if VarIsClear(app) then app:=CreateOleObject('Excel.Application'); if readonly then doc:=app.WorkBooks.Open(filename,0,true) else doc:=app.WorkBooks.Open(filename,0); ...... //Дальше собственно 2 разных попытки app.windows.Arrange(xlArrangeStyleHorizontal,false ,false,false); - EOleException 'метод Arrange класса Windows завершен неверно'.
(IDispatch(app.windows) as Windows).Arrange(xlArrangeStyleHorizontal,false,fa lse,false); - работает отлично.
|