Excel = Новый COMОбъект("Excel.Application");
       Excel.Application.Workbooks.Add(1);
       Если МетодРасчета Тогда
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ИСТИНА)";
       Иначе
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ЛОЖЬ)";
       КонецЕсли;
       Excel.Sheets(1).Cells(1,"B").Value = ДатаНачало;
       Excel.Sheets(1).Cells(1,"C").Value = ДатаОкончания;
       КоличествоДней = Excel.Sheets(1).Cells(1,"A").Value;
       Попытка
           Excel.ActiveWorkBook.SaveAs(КаталогВременныхФайлов() + "FailRascheta.xls");    
       Исключение
           Сообщение = ОписаниеОшибки();
       КонецПопытки;
       Excel.Application.Quit();

Пишу вот такой код. Пользователи работают в терминале под одним пользователем отрабатывает отлично, у другого пользователя пишет ошибку "Ошибка при установке значения атрибута контекста (FormulaLocal): Произошла исключительная ситуация (0x800a03ec)" обошел все форумы, забивал формулу на английском. Все равно не работает.

а без буковок попробуй

Не совсем понял.

Excel.Sheets(1).Cells(1,"A")
=
Excel.Sheets(1).Cells(1,1)

без "А" в Cells(1,"A")

понял, проблемка только завтра попробую.

может там адреса в формате R1C1 забиты, хотя сумнительно
либо на англицком формулу забей в
....Formula = ...

других вариантов нету?

"Formula =" пробовал не помогает, вообще неработало

"FormulaR1C1 =" тоже пробовал

могут быть какие-то настройки в самом EXL

???

везде на локальных машинах работает. Проблема только в терминале, хотя права у пользователей одинаковый.

отладчик не предлагать?

проходил отладчиком, только я в таком состоянии, приму любое предложение которое не пробовал.

тест 1
поменять формула на "=1"

проверить схавает хоть что-то?

ну да, отсекаешь 1 причину за другой

отлично, попробую.

(0)может быть разные версии Оффис у юзеров? у меня изза этого раньше в VBA проблемы возникали.

на моей машине 2010, у клиента на локальных машинах и сервере 2003, и везде работает кроме терминала.

может при установки админ не на всех пользователей VBA установил.

????

(21) excel без vba не ставится )

может это быть причиной?

я уже готов поверить в любое не вероятное.

(21) Только что проверил код в (0) под терминалом - все работает. Проблема может быть с правами пользователей.

я под своим пользователем в терминал заходил, у меня не работало, под сисадмином заходил работает, назначил права сисадмина себе все равно не работает.

может мой пользователь не входит какую-то группу типа "Пользователи DCOM"

Права на папку КаталогВременныхФайлов() посмотри на запись

я убирал строки
       Если МетодРасчета Тогда
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ИСТИНА)";
       Иначе
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ЛОЖЬ)";
       КонецЕсли;
без них отрабатывало под всеми пользователями нормально.

так что права у всех на временный каталог есть.

может там англицкий Excel у юзера, хотя сумнительно

Админ ставил под своим профелем и разрешил использовать всем пользователям, так что у всех один и тот же, но я проверю.

(0)
Подозрительное присвоение: Value = ДатаНачало
Соответствует ли тип значения и формат ячейки xls и тип переменной ДатаНачало
Потом надо подумать над присвоением: КоличествоДней = что-то
Возможно это что-то (Value) надо привести к строковому типу.
Для отладки можно присвоить строковые константы.

Лучше через setValue устанавливать значения, чем через прямое присвоение.

Суть в том что на присвоение даты не ругается, ругается на формулу

Это не сработало
Excel.Sheets(1).Cells(1,"A")
=
Excel.Sheets(1).Cells(1,1)

Excel.Sheets(1).Cells(1,1).Formula = "=DAYS360(B1;C1;0)";

Этот тест сработал
тест 1
поменять формула на "=1"

Не сработало.
Excel.Sheets(1).Cells(1,1).Formula = "=DAYS360(B1;C1;0)";

мне кажется это права, но не могу понять какие и на что

(40) Попробуй FormulaR1C1 - что скажет?

есть сдвиг
Excel.Sheets(1).Cells(1,1).FormulaLocal = "DAYS360(B1;C1;1)"
это сработало, но не посчитал.

Как правильно передать DAYS360(B1;C1;1) третий параметр в EXL истина или ложь

(43) А что должно было посчитать? И как именно "не посчитал"?

вернул неопределено

прошу прошения

я незаметил один знак

я написал вот так DAYS360(B1;C1;1), а надо было =DAYS360(B1;C1;1). И это не сработало. Извеняюсь.

что есть "не сработало"?
Вылетела с ошибкой?
в файле что-нить сохранилось?

а под юзером у которого проблема в терминале эксель запустить слабо?

ошибка даже самая какая и была в начале

под пользователем у которого не работает, запускаю эксель и все работает если руками на прямую в эксель забиваешь.

поэтому и говорю не понятный глюк.

Сервис - Параметры - Общие - Стиль ссылок R1C1 под проблемным пользователем стоит?

нет не стоит

Excel.Sheets(1).Cells(1,1).Formula = "=B1";

может тупо в формуле C или B в кириллице заведены

еще раз все перепроверил B это английская B, С тоже.

хм - а точно вылетает на установке формулы, а не раньше на
Excel.Sheets(1)? Не помню, честно говоря там индексы с 0 или с 1?

спецально отладчиком проходил, еще строку с присвоением формулы комментировал, затыкается только на формуле.

Яч = Excel.Sheets(1).Cells(1,1);
Яч.Formula = "=B1";

почему Formula? у меня это не сработало.
я пишу FormulaLocal.
Так же я пробовал Formula = "=B1" и FormulaLocal = "=B1", все отработало.

а не пробовал сначала данные в B1 и С1 заполнить, а уже потом формулу? )

Попробовал В1 и С1 заполнил, и все равно заткнулся на формуле.

Ради интереса изменил формулу

Excel.Sheets(1).Cells(1,2).Value = 10;
       Excel.Sheets(1).Cells(1,3).Value = 20;
       Excel.Sheets(1).Cells(1,1).FormulaLocal = "=Сумм(B1;C1)";
И все равно ругается на присвоение формулы.

(67) лист не защищенный или ячейка?

я никаких защит не ставил. А как проверить?

новый лист создаю же.

Excel.Sheets(1).Cells(1,1).FormulaLocal = "=B1 + C1";

Excel.Sheets(1).Cells(1,1).AllowEdit проверка на разрешение редактирования. Хотя можно проверить и просто попытвашись записать значение.
Еще можно формулу попытаться вписать так:

Excel.Sheets(1).Cells(1,1).RANGE.FormulaLocal = ...


Хоть что-то новенькое.
Ошибка.
Ошибка при получении значения атрибута контекста (Range): Неверное число параметров

А вот это посчитал
Excel.Sheets(1).Cells(1,1).FormulaLocal = "=B1 + C1";

я так понимаю проблема с использованием внутренних формул экселя, если простое сложение посчитал.

Excel.Application.Workbooks.Add(1);
почему 1 в аргументе?
а если просто
Excel.Application.Workbooks.Add();

я где то взял пример создание нового документа и листа, и все работало пока в терминал не запустили.

корявый пример )

(76) Не помогло.Ошибка при установке значения атрибута контекста (FormulaLocal): Произошла исключительная ситуация (0x800a03ec)

покопался по хелпу, там формула присваивается только на актином листе (в примерах).
Может стоит попробовать так:

Excel.Sheets(1).Activate;
ActiveSheet.FormulaLocal = ....


вот еще пример из хелпы:

Worksheets(1).Range("C5:C10").Cells(1, 1).Formula = "=Rand()"


Excel = Новый COMОбъект("Excel.Application");
Excel.Application.Workbooks.Add();
Excel.Visible = Истина;

(79) кстати - попробуй по деревянному - зайди в эксель, создай формулу, а потом с 1Сы ее считай и посмотри как она выглядит )

спасибо большое, попробую но только завтра.

ничего не сработало. буду искать другой выход.

Я тут встречал расчеты.
Европейский метод -
?(День(Дата2)=31,30,День(Дата2))-?(День(Дата1)=31,30,День(Дата1))+30*(Год(Дата2)*12+Месяц(Дата2)-Год(Дата1)*12-Месяц(Дата1))
 
Американский метод -
?(День(Дата2)=31 И День(Дата1)<30,31,30)-?(День(Дата1)=31,30,День(Дата1))+30*(Год(Дата2)*12+Месяц(Дата2)-Год(Дата1)*12-Месяц(Дата1))

Европейский метод расчет еще боле менее, а вот американский не правильно считает, может кто нибудь уже пытался решить это в 1С.

к примеру задаеш период 26.08.2010-12.02.2011
Европейски метод дает 166
Американский метод дает 184

В экселе оба метода дают 166

В порядке бреда, попробуй поменять местами строки кода
       Excel.Sheets(1).Cells(1,"B").Value = ДатаНачало;
       Excel.Sheets(1).Cells(1,"C").Value = ДатаОкончания;

       Если МетодРасчета Тогда
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ИСТИНА)";
       Иначе
           Excel.Sheets(1).Cells(1,"A").FormulaLocal = "=ДНЕЙ360(B1;C1;ЛОЖЬ)";
       КонецЕсли;

Т.е. сначала присвоить даты, а уже потом формулу ссылающуюся на даты..

пробовал не помогает.

кажись нашел
если кому интересно проверьте тоже, может я что-то не замечаю
Американский метод расчета
?(День(ДатаКон)=31,30,День(НачалоДня(ДатаКон)) - День(НачалоМесяца(ДатаКон)))+?(День(ДатаНач)=31,30,День(КонецМесяца(ДатаНач)) - День(НачалоДня(ДатаНач)))+30*(Год(ДатаКон)*12+(Месяц(ДатаКон)-1)-Год(ДатаНач)*12-Месяц(ДатаНач))