Ошибка при вызове конструктора (COMObject)

[Akbar11]

Всем привет, ребята ошибка распространённая. Облазил все темы. Даже в гуголе до 10 страницы добрался ничего не помогает. Все перепробовал. Вот сама ошибка. База серверная
Конфигурация ИТИЛ 1С:ITIL. Управление информационными технологиями предприятия. ПРОФ, редакция 1.1. Версия платформы 1С:Предприятие 8.3 (8.3.10.2466). При выполнение кода

ExcelApplication = Новый COMObject("Excel.Application");

Ошибка

{ВнешняяОбработка.ЗагрузкаЭлектроныхАдресовИзЭксель.Форма.Форма.Форма(4)}: Ошибка при вызове конструктора (COMObject)
      ExcelApplication = Новый COMObject("Excel.Application");
по причине:
-2147221005(0x800401F3): Недопустимая строка с указанием класса

Может кто подскажет что еще может быть, что еще можно сделать. Ну или хотябы вместе разберемся с этой проблемой.

[DoCaru]

скорее всего офис слетел на сервере. попробуй переустановить

[vitalshim]

regsvr32 "C:\Program Files\1cv8\8.3.10.2466\bin\comcntr.dll"

[antoshik86]

https://yandex.ru/search/?text=-2147...win=333&lr=237

[vitalshim]

regsvr32 "C:\Program Files\1cv8\8.3.10.2466\bin\comcntr.dll"

Запускать от имени администратора

[vitalshim]

Я пользуюсь этим способом, работает везде:

&НаКлиенте
Процедура Загрузка(Команда)

Режим = РежимДиалогаВыбораФайла.О� �крытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильт� � = НСтр("ru = ''; en = ''")
+ "Excel 97 • 2003 (*.xls)|*.xls|Excel 2010 и выше (*.xlsx)|*.xlsx";

ДиалогОткрытияФайла.Множе� �твенныйВыбор = Ложь;
ДиалогОткрытияФайла.Загол� �вок = "Выберите файлы";
Если ДиалогОткрытияФайла.Выбра� �ь() Тогда

ПолныйПуть = ДиалогОткрытияФайла.Полно� �ИмяФайла;

COMОб = ПолучитьCOMОбъект(ПолныйПут ь);
СтраницаФ = COMОб.WorkSheets(1);

Для НомСтроки = 2 По 100 Цикл

МассивЭлементов = Новый Массив;
МассивЭлементов.Вставить(0, СтраницаФ.Cells(НомСтроки,12).va lue);
МассивЭлементов.Вставить(1, СтраницаФ.Cells(НомСтроки,5).val ue);
МассивЭлементов.Вставить(2, СтраницаФ.Cells(НомСтроки,6).val ue);
МассивЭлементов.Вставить(3, СтраницаФ.Cells(НомСтроки,15).va lue);
МассивЭлементов.Вставить(4, СтраницаФ.Cells(НомСтроки,8).val ue);
МассивЭлементов.Вставить(5, СтраницаФ.Cells(НомСтроки,13).va lue);
МассивЭлементов.Вставить(6, СтраницаФ.Cells(НомСтроки,14).va lue);
МассивЭлементов.Вставить(7, НомСтроки);
//МассивЭлементов.Вставить(8, СтраницаФ.Cells(НомСтроки,11).va lue);
//МассивЭлементов.Вставить(9, СтраницаФ.Cells(НомСтроки,12).va lue);
//МассивЭлементов.Вставить(10 , СтраницаФ.Cells(НомСтроки,13).va lue);
//МассивЭлементов.Вставить(11 , СтраницаФ.Cells(НомСтроки,6).val ue);

Если НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,12).value) И НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,5).value) Тогда

Прервать;

КонецЕсли;

ЗагрузкаНаСервере(МассивЭ� �ементов,ПолныйПуть);

КонецЦикла;

Иначе

Режим = РежимДиалогаВопрос.ОК;
Ответ = Вопрос(НСтр("ru = 'Загрузка прервана!';"
+ " en = 'Do you want to continue?'"), Режим, 0);
Если Ответ = КодВозвратаДиалога.ОК Тогда
Возврат;
КонецЕсли;

КонецЕсли;

КонецПроцедуры

[Akbar11]

Сейчас посмотрел, офис там и не стоит. Возможно ли это влияет на данную ошибку? Хотя вроде, работало раньше без офиса на сервре. Но точно утверждать не буду

[vitalshim]

Я пользуюсь этим способом, работает везде:

&НаКлиенте
Процедура Загрузка(Команда)

Режим = РежимДиалогаВыбораФайла.О� �крытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильт� � = НСтр("ru = ''; en = ''")
+ "Excel 97 • 2003 (*.xls)|*.xls|Excel 2010 и выше (*.xlsx)|*.xlsx";

ДиалогОткрытияФайла.Множе� �твенныйВыбор = Ложь;
ДиалогОткрытияФайла.Загол� �вок = "Выберите файлы";
Если ДиалогОткрытияФайла.Выбра� �ь() Тогда

ПолныйПуть = ДиалогОткрытияФайла.Полно� �ИмяФайла;

COMОб = ПолучитьCOMОбъект(ПолныйПут ь);
СтраницаФ = COMОб.WorkSheets(1);

Для НомСтроки = 2 По 100 Цикл

МассивЭлементов = Новый Массив;
МассивЭлементов.Вставить(0, СтраницаФ.Cells(НомСтроки,12).va lue);
МассивЭлементов.Вставить(1, СтраницаФ.Cells(НомСтроки,5).val ue);
МассивЭлементов.Вставить(2, СтраницаФ.Cells(НомСтроки,6).val ue);
МассивЭлементов.Вставить(3, СтраницаФ.Cells(НомСтроки,15).va lue);
МассивЭлементов.Вставить(4, СтраницаФ.Cells(НомСтроки,8).val ue);
МассивЭлементов.Вставить(5, СтраницаФ.Cells(НомСтроки,13).va lue);
МассивЭлементов.Вставить(6, СтраницаФ.Cells(НомСтроки,14).va lue);
МассивЭлементов.Вставить(7, НомСтроки);
//МассивЭлементов.Вставить(8, СтраницаФ.Cells(НомСтроки,11).va lue);
//МассивЭлементов.Вставить(9, СтраницаФ.Cells(НомСтроки,12).va lue);
//МассивЭлементов.Вставить(10 , СтраницаФ.Cells(НомСтроки,13).va lue);
//МассивЭлементов.Вставить(11 , СтраницаФ.Cells(НомСтроки,6).val ue);

Если НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,12).value) И НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,5).value) Тогда

Прервать;

КонецЕсли;

ЗагрузкаНаСервере(МассивЭ� �ементов,ПолныйПуть);

КонецЦикла;

Иначе

Режим = РежимДиалогаВопрос.ОК;
Ответ = Вопрос(НСтр("ru = 'Загрузка прервана!';"
+ " en = 'Do you want to continue?'"), Режим, 0);
Если Ответ = КодВозвратаДиалога.ОК Тогда
Возврат;
КонецЕсли;

КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗагрузкаНаСервере(МассивЭ� �ементов,ПолныйПуть)

ВремяОплаты = СокрЛП(МассивЭлементов.Пол учить(0));
КартаКлиента = СокрЛП(МассивЭлементов.Пол учить(1));
СнятаяСумма = СокрЛП(МассивЭлементов.Пол учить(2));
ТелФ = СокрЛП(МассивЭлементов.Пол учить(3));


ДатаФ = СокрЛП(МассивЭлементов.Пол учить(4));
НомерФ = СокрЛП(МассивЭлементов.Пол учить(5));
СуммаФ = СокрЛП(МассивЭлементов.Пол учить(6));
НомСтроки = СокрЛП(МассивЭлементов.Пол учить(7));
КонецПроцедуры

[DoCaru]

установи офис. раньше может у тебя не серверный вариант был (в толстом работает)

[Akbar11]

Делал, и не раз)