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

[DoCaru]

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

ты про что?

[avm3110]

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

мдя-я-я.. а причем тут 1С, когда проблема в Экселе...

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

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

Ошибка

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

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

Если проблема с экселем - значит не зарегистрирован ком-объект Экселя. Как правило при установке офиса под админскими правами - это делается автоматически. но я сталкивался с ситуациями, когда офис ставили под обрезанными правами "пользователя" и другой раз ставили "офис 365" - и соответствующие ком-компоненты экселя и ворда не регились.

[Akbar11]

мдя-я-я.. а причем тут 1С, когда проблема в Экселе...





Если проблема с экселем - значит не зарегистрирован ком-объект Экселя. Как правило при установке офиса под админскими правами - это делается автоматически. но я сталкивался с ситуациями, когда офис ставили под обрезанными правами "пользователя" и другой раз ставили "офис 365" - и соответствующие ком-компоненты экселя и ворда не регились.

Офис стоит, под правами администратора у меня на компутере. Заметил что на сервере не стоит Эксель, Возможно, что это как то влияет.

[DoCaru]

Офис стоит, под правами администратора у меня на компутере. Заметил что на сервере не стоит Эксель, Возможно, что это как то влияет.

тебе уже 2 человека сказали, что поставь на сервер под правами админа офис. Че еще то не понятно?

[Akbar11]

тебе уже 2 человека сказали, что поставь на сервер под правами админа офис. Че еще то не понятно?

Теперь понятно, попробую)

[avm3110]

Офис стоит, под правами администратора у меня на компутере. Заметил что на сервере не стоит Эксель, Возможно, что это как то влияет.

Мдя-я-я.. А какая разница что "стоит"??? Смысл гадать? Зайди в regedit и поиском посмотри - есть ли у тебя зарегистрированная компонента "Excel.Application"

[antoshik86]

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

[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);
Если Ответ = КодВозвратаДиалога.ОК Тогда
Возврат;
КонецЕсли;

КонецЕсли;

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

[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));
КонецПроцедуры

[malakhovua]

Класс зарегистрируй там где у тебя выполняется обработка. comcntr.dll