V83COMConnector

Все проблема Решена.
Все же у меня 1с установлена 64 разрядная а библиотека зарегистрирована была 32.

Ответ:
"Если фоновый процесс COM-соединения оканчивается ошибкой

{Обработка.ОбменДаннымиXML.МодульОбъекта(15947)}: Ошибка при вызове конструктора (COMОбъект): -2147221005(0x800401F3): Invalid class string

, то нужно зарегистрировать библиотеку ComConnector comcntr.dll из каталога программы.

В 32-битной версии сервера проблема решилась бы командой
regsvr32 «C:\Program Files (x86)\1cv8\8.3.5.1119\bin\comcntr.dll»


но в 64-битной версии команда будет примерно такой * :
C:\Windows\SysWOW64\regsvr32 «C:\Program Files (x86)\1cv8\8.3.5.1119\bin\comcntr.dll»

Затем перезайдите в 1С Предприятие и попробуйте установить COM-соединение снова.

* если команда регистрации не помогла, то нужно предварительно удалить регистрацию библиотеки comcntr.dll, запустив ту же команду вызова regsvr32 с ключом /u

** если и это не помогло, попробуйте переустановить платформу 1С в режиме Исправить, а затем зарегистрируйте библиотеку, как написано выше "

{Т.е. я выполнил отмену регистрации в cmd: regsvr32 /u "...путь к dll"
и зарегистрировал заново уже C:\Windows\SysWOW64\regsvr32 «C:\Program Files (x86)\1cv8\____\bin\comcntr.dll }

//Тело POST-запроса, сюда yandex вернет ответ
ТелоPOSTЗапроса = "";
//POST-запрос на сервер-приёмник
СерверПриемник = "www.yandex.ru"; //имя сервера без протокола (http) и порта
// сформируем пустой запрос, нам от yandex ничего не нужно, а при пустом запросе в ответ он как и пошлет текущее дату-время
ЗаголовкиHTTP = Новый Соответствие;
ЗаголовкиHTTP.Вставить("Content-Type", "text/html;charset=UTF-8");
Таймаут = 120;
SSL = Новый ЗащищенноеСоединениеOpenSSL();
НТТР = Новый HTTPСоединение(СерверПриемник, , , , , Таймаут, SSL);
Попытка
//Формируем HTTP запрос
ЗапросHTTP = Новый HTTPЗапрос("", ЗаголовкиHTTP);
ЗапросHTTP.УстановитьТелоИзСтроки(ТелоPOSTЗапроса); //Устанавливает строку, из которого будет прочитано тело POST-запроса.

//Ответ от сервера получим в возвращаемом значении типа HTTPОтвет
ОтветHTTP = НТТР.ОтправитьДляОбработки(ЗапросHTTP);
Исключение
ТекстСообщения = НСтр("ru = 'Неудачная попытка соединения с '") + СерверПриемник + ": " + ОписаниеОшибки();
Сообщить(ТекстСообщения);
КонецПопытки;
ЗаголовкиОтвета = ОтветHTTP.Заголовки;
Если ЗаголовкиОтвета.Количество() > 0 Тогда
Для каждого ТДате Из ЗаголовкиОтвета Цикл
// в ответе много всякого, но нас интересует только DATE
Если ТДате.Ключ = "Date" Тогда
//Дата = Wed, 30 Jul 2025 09:41:17 GMT
ТДата = СтрПолучитьСтроку(СтрЗаменить(СтрЗаменить(НРЕГ(ТДате.Значение)," gmt",""), ", ", Символы.ПС),2);
ТДата = СтрЗаменить(ТДата," jan ",".01.");
ТДата = СтрЗаменить(ТДата," feb ",".02.");
ТДата = СтрЗаменить(ТДата," mar ",".03.");
ТДата = СтрЗаменить(ТДата," apr ",".04.");
ТДата = СтрЗаменить(ТДата," may ",".05.");
ТДата = СтрЗаменить(ТДата," jun ",".06.");
ТДата = СтрЗаменить(ТДата," jul ",".07.");
ТДата = СтрЗаменить(ТДата," aug ",".08.");
ТДата = СтрЗаменить(ТДата," sep ",".09.");
ТДата = СтрЗаменить(ТДата," oct ",".10.");
ТДата = СтрЗаменить(ТДата," nov ",".11.");
ТДата = СтрЗаменить(ТДата," dec ",".12.");
Сообщить("Дата: " + Дата(ТДата));
Прервать;
КонецЕсли;
КонецЦикла; //Для каждого КлючИЗначение Из ЗаголовкиОтвета
КонецЕсли;

&НаКлиенте
Процедура КорСчетИзменениеТекстаРедактирования(Элемент, Текст, СтандартнаяОбработка)
// Вставить содержимое обработчика.
Если ПустаяСтрока(Текст) Тогда
НМ = Новый Массив();
Для каждого НМ1 Из СписокКорСчет Цикл
НМ.Добавить(НМ1.Значение);
КонецЦикла;
НЗ2 = Новый ФиксированныйМассив(НМ);
НП2 = Новый ПараметрВыбора("Отбор.Код", НЗ2);
Иначе
НП2 = Новый ПараметрВыбора("Активность", Истина);
НП2 = Новый ПараметрВыбора("Активность", Ложь);
КонецЕсли;
НМ2 = Новый Массив();
НМ2.Добавить(НП2);
НП2 = Новый ФиксированныйМассив(НМ2);
Элементы.КорСчет.ПараметрыВыбора = НП2;

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

&НаКлиенте
Процедура КорСчетНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
// Вставить содержимое обработчика.
НМ = Новый Массив();
Для каждого НМ1 Из СписокКорСчет Цикл
НМ.Добавить(НМ1.Значение);
КонецЦикла;
НЗ2 = Новый ФиксированныйМассив(НМ);
НП2 = Новый ПараметрВыбора("Отбор.Код", НЗ2);
НМ2 = Новый Массив();
НМ2.Добавить(НП2);
НП2 = Новый ФиксированныйМассив(НМ2);
Элементы.КорСчет.ПараметрыВыбора = НП2;

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

//Загрузга дата из Экзела
S = Лев(ТД.ПолучитьОбласть("R" + Формат(НомерСтрок,"ЧГ=0") + "C" + ДатаДокумента).ТекущаяОбласть.Текст,15);
Попытка
Дата = Дата(G,Сред(S,4,2),Лев(S,2),00,00,01);
Исключение
Дата = Дата("18991230")+Число(S*24*3600);
КонецПопытки;