ошибка при создании "COMОбъект". Интерфейс не поддерживается

[andron81_81]

1С:Предприятие 8.3 (8.3.22.2411) УПП.

Сервер предпиятия 64 битный.
Ексель установил так же 64 битный.

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

В общем при запуске процедуры регламентного возникает ошибка :

Ошибка при вызове конструктора (COMОбъект)
{ВнешняяОбработка.ГрафикПрохожденияЗаказовДляРегламентного.МодульОбъекта(449)}:Ехсел = Новый COMОбъект("Excel.Application");
{ОбщийМодуль.ВШ_Общий.Модуль(16)}:Справочники.Организации.НайтиПоКоду("000000003") ,

по причине:
-2147467262(0x80004002): Интерфейс не поддерживается
по причине:

по причине:
-2147467262(0x80004002): Интерфейс не поддерживается

Если запустить процедуру во внешней обработке у себя локально , то всё успешно отрабатывается. Но тут с задания с сервера (на сервере Excel 64бит установлен).

Код Выделить Развернуть


ТабДокумент.Записать(ФайлЕксельИмя,ТипФайлаТабличногоДокумента.XLS);




//тут рабочий код

    Ехсел = Новый COMОбъект("Excel.Application");
    Книга=Ехсел.Workbooks.Open(ФайлЕксельИмя);
    Ехсел.Visible = ложь;
   
    Ехсел.Cells(2,2).FormulaLocal = "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;B8:B1008)"; 
    Ехсел.Cells(2,7).FormulaLocal = "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;G8:G1008)"; 
    Ехсел.Cells(2,17).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,31).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,35).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,36).FormulaLocal ="=RC[-1]-R[-1]C[3]";
    Ехсел.Cells(1,39).FormulaLocal ="=R[1]C[-8]+R[1]C";
    Ехсел.Cells(1,40).FormulaLocal ="=R[1]C[-23]-RC[-1]";
    Ехсел.Cells(1,41).FormulaLocal ="=RC[-1]/ЧИСТРАБДНИ(СЕГОДНЯ();ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ())+1;0))";
    Ехсел.Cells(2,45).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,46).FormulaLocal ="=RC[-1]-RC[2]";
    Ехсел.Cells(2,48).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,53).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;R[6]C:R[1006]C)";
    Ехсел.Cells(2,39).FormulaLocal ="=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;AM8:AM1008)";
    Ехсел.Range("A7:BB7").AutoFilter();
   
   
  Книга.Save();
  Ехсел.Workbooks.Close();
  Ехсел.Application.Quit();
  Ехсел="";

//тут рабочий код



[Максим75]

andron81_81, почитайте это, может поможет

https://infostart.ru/1c/articles/196323/

[andron81_81]

Максим75, да, кажется помогло

[andron81_81]

Максим75, спасибо - забыл сказать !