Как исправить ошибку «Invalid class string» (0x800401F3) при загрузке данных из Excel на сервере 1С?

&НаКлиенте
Процедура ВыполнитьЗагрузку(Команда)
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Фильтр = "Файлы Excel (*.xls;*.xlsx)|*.xls;*.xlsx";
    Диалог.Заголовок = "Выберите файл для загрузки";
    
    Если Диалог.Выбрать() Тогда
        ПутьКФайлу = Диалог.ПолноеИмяФайла;
        
        // Шаг 1. Читаем данные на клиенте в простой массив структур
        МассивДанных = ПрочитатьФайлExcelНаКлиенте(ПутьКФайлу);
        
        Если МассивДанных.Количество() > 0 Тогда
            // Шаг 2. Передаем массив на сервер для обработки
            СоздатьНоменклатуруНаСервере(МассивДанных);
            ПоказатьПредупреждение(, "Загрузка успешно завершена!");
        Иначе
            ПоказатьПредупреждение(, "Файл пуст или не содержит корректных данных.");
        КонецЕсли;
    КонецЕсли;
    
КонецПроцедуры

&НаКлиенте
Функция ПрочитатьФайлExcelНаКлиенте(Знач ПутьКФайлу)
    
    МассивРезультатов = Новый Массив;
    
    Попытка
        ExcelПриложение = Новый COMОбъект("Excel.Application");
    Исключение
        ВызватьИсключение "Не удалось запустить Microsoft Excel на локальном компьютере. Возможно, приложение не установлено.";
    КонецПопытки;
    
    ExcelПриложение.DisplayAlerts = Ложь;
    
    Попытка
        Книга = ExcelПриложение.Workbooks.Open(ПутьКФайлу);
        Лист = Книга.Sheets(1); // Работаем с первым листом
        
        // Определяем заполненные строки
        ВсегоСтрок = Лист.UsedRange.Rows.Count;
        
        // Начинаем считывание со второй строки (пропускаем шапку таблицы)
        Для НомерСтроки = 2 По ВсегоСтрок Цикл
            
            КодАртикула = СокрЛП(Лист.Cells(НомерСтроки, 1).Value);
            Наименование = СокрЛП(Лист.Cells(НомерСтроки, 2).Value);
            
            Если ПустаяСтрока(Наименование) Тогда
                Продолжить; // Пропускаем пустые строки
            КонецЕсли;
            
            // Записываем данные в простую структуру
            СтрокаДанных = Новый Структура;
            СтрокаДанных.Вставить("Артикул", КодАртикула);
            СтрокаДанных.Вставить("Наименование", Наименование);
            
            МассивРезультатов.Добавить(СтрокаДанных);
        КонецДля;
        
        Книга.Close(Ложь);
    Исключение
        ExcelПриложение.Quit();
        ВызватьИсключение "Ошибка при чтении файла Excel: " + ОписаниеОшибки();
    КонецПопытки;
    
    ExcelПриложение.Quit();
    Возврат МассивРезультатов;
    
КонецФункции

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

&НаКлиенте
Процедура ЗагрузитьФайлШтатнымиСредствами(Команда)
    
    // Выбор файла пользователем на клиенте
    ПараметрыВыбора = Новый ПараметрыДиалогаПомещенияФайла;
    ПараметрыВыбора.Фильтр = "Таблицы Excel (*.xlsx; *.xls)|*.xlsx;*.xls";
    ПараметрыВыбора.Заголовок = "Выберите файл для загрузки номенклатуры";
    
    ОписаниеФайла = Новый ОписаниеПередаваемогоФайла;
    
    НачатьПомещениеФайлаНаСервер(
        Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтотОбъект),
        ,,,
        ПараметрыВыбора,
        УникальныйИдентификатор
    );
    
КонецПроцедуры

&НаКлиенте
Процедура ПослеПомещенияФайла(Результат, АдресИлиРезультат, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
    
    // Если пользователь успешно выбрал и передал файл на сервер
    Если АдресИлиРезультат <> Неопределено Тогда
        // Вызываем серверный метод для парсинга и загрузки
        ЗагрузитьИзХранилищаНаСервере(АдресИлиРезультат);
        ПоказатьПредупреждение(, "Загрузка номенклатуры успешно выполнена!");
    КонецЕсли;
    
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьИзХранилищаНаСервере(Знач АдресХранилища)
    
    // Создаем имя для временного файла на сервере
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");
    
    // Получаем двоичные данные файла из хранилища и записываем на диск сервера
    ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(АдресХранилища);
    ДвоичныеДанныеФайла.Записать(ИмяВременногоФайла);
    
    // Инициализируем ТабличныйДокумент 1С
    ТабДок = Новый ТабличныйДокумент;
    
    Попытка
        // Читаем файл Excel напрямую без использования COM-объектов!
        ТабДок.Прочитать(ИмяВременногоФайла, СпособЧтенияЗначенийТабличногоДокумента.Значение);
    Исключение
        УдалитьФайлы(ИмяВременногоФайла);
        ВызватьИсключение "Не удалось прочитать файл на сервере. Ошибка: " + ОписаниеОшибки();
    КонецПопытки;
    
    // После чтения обязательно удаляем временный файл с диска сервера
    УдалитьФайлы(ИмяВременногоФайла);
    
    // Преобразуем ТабличныйДокумент в стандартную ТаблицуЗначений с помощью ПостроителяЗапроса
    Построитель = Новый ПостроительЗапроса;
    Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабДок.Область());
    Построитель.ЗаполнитьНастройки();
    Построитель.Выполнить();
    
    ТаблицаДанных = Построитель.Результат.Выгрузить();
    
    // Обрабатываем полученную таблицу
    НачатьТранзакцию();
    Попытка
        Для Каждого СтрокаТаблицы Из ТаблицаДанных Цикл
            
            // Предположим, что колонки в Excel называются "Артикул" и "Наименование"
            // В ТаблицеДанных имена колонок могут быть автоматически названы как "Ф1", "Ф2" и т.д.
            // Проверим заполненность первой колонки (индекс 0)
            Артикул = СокрЛП(СтрокаТаблицы[0]);
            Наименование = СокрЛП(СтрокаТаблицы[1]);
            
            Если ПустаяСтрока(Наименование) Тогда
                Продолжить;
            КонецЕсли;
            
            НайденнаяСсылка = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул);
            
            Если НайденнаяСсылка.Пустая() Тогда
                НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
                НоваяНоменклатура.Наименование = Наименование;
                НоваяНоменклатура.Артикул = Артикул;
                НоваяНоменклатура.Записать();
            КонецЕсли;
            
        КонецДля;
        ЗафиксироватьТранзакцию();
    Исключение
        ОтменитьТранзакцию();
        ВызватьИсключение "Ошибка транзакции при записи данных: " + ОписаниеОшибки();
    КонецПопытки;
    
КонецПроцедуры