Как решить ошибку moxel.dll при чтении файлов Excel в 1С:Предприятие на сервере без MS Office?

Функция ПрочитатьCSVВТаблицу(ИмяФайлаCSV, РазделительКолонок = ";", СтрокаЗаголовков = "") Экспорт
    // Инициализация таблицы данных
    ТаблицаДанных = Новый ТаблицаЗначений;
    КоличествоКолонок = 0;

    Попытка
        Чтение = Новый ЧтениеТекста(ИмяФайлаCSV, КодировкаТекста.Авто);
        ПрочитанЗаголовок = Ложь;

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

        Пока Истина Цикл
            СтрокаCSV = Чтение.ПрочитатьСтроку();
            Если СтрокаCSV = Неопределено Тогда
                Прервать; // Достигнут конец файла
            КонецЕсли;

            // Обработка первой строки как заголовка, если он еще не прочитан
            Если Не ПрочитанЗаголовок Тогда
                МассивЗаголовков = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаCSV, РазделительКолонок);
                Для Каждого Заголовок Из МассивЗаголовков Цикл
                    // Добавляем колонки, проверяя на уникальность имен, если необходимо
                    ИмяКолонки = Заголовок;
                    Счетчик = 1;
                    Пока ТаблицаДанных.Колонки.Найти(ИмяКолонки) <> Неопределено Цикл
                        ИмяКолонки = Заголовок + "_" + Счетчик;
                        Счетчик = Счетчик + 1;
                    КонецЦикл;
                    ТаблицаДанных.Колонки.Добавить(ИмяКолонки);
                КонецЦикла;
                КоличествоКолонок = ТаблицаДанных.Колонки.Количество();
                ПрочитанЗаголовок = Истина;
            Иначе
                // Чтение данных
                МассивЗначений = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(СтрокаCSV, РазделительКолонок);
                Если МассивЗначений.Количество() > 0 Тогда
                    НоваяСтрока = ТаблицаДанных.Добавить();
                    Для Индекс = 0 По Мин(МассивЗначений.ВГраница(), КоличествоКолонок - 1) Цикл
                        ЗначениеТекста = СокрЛП(МассивЗначений[Индекс]);
                        // Попытка преобразовать тип данных
                        Попытка
                            Если ЗначениеТекста = "" Тогда
                                НоваяСтрока[Индекс] = Неопределено;
                            ИначеЕсли СтрЧисло(ЗначениеТекста) <> 0 ИЛИ ЗначениеТекста = "0" Тогда
                                НоваяСтрока[Индекс] = СтрЧисло(ЗначениеТекста);
                            ИначеЕсли СтрДат(ЗначениеТекста) <> '00010101' Тогда
                                НоваяСтрока[Индекс] = СтрДат(ЗначениеТекста);
                            Иначе
                                НоваяСтрока[Индекс] = ЗначениеТекста;
                            КонецЕсли;
                        Исключение
                            НоваяСтрока[Индекс] = ЗначениеТекста; // В случае ошибки оставляем как строку
                        КонецПопытки;
                    КонецЦикла;
                КонецЕсли;
            КонецЕсли;
        КонецЦикл;
        Чтение.Закрыть();
    Исключение
        Сообщить("Ошибка при чтении CSV-файла """ + ИмяФайлаCSV + """: " + ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;

    Возврат ТаблицаДанных;
КонецФункции

// Пример использования функции:
// ПутьКФайлуCSV = "C:\Temp\МоиДанные.csv";
// ДанныеИзCSV = ПрочитатьCSVВТаблицу(ПутьКФайлуCSV);
// Если ДанныеИзCSV <> Неопределено Тогда
//     Сообщить("Успешно прочитано " + ДанныеИзCSV.Количество() + " строк из CSV.");
//     // Далее мы можем обрабатывать данные из ТаблицаДанных
//     Для Каждого СтрокаТЗ Из ДанныеИзCSV Цикл
//         // Пример вывода первой колонки
//         // Сообщить("Значение: " + СтрокаТЗ[0]);
//     КонецЦикла;
// КонецЕсли;

// Пример концептуального кода для распаковки XLSX и чтения Shared Strings
// Обратите внимание: полноценный парсер XLSX гораздо сложнее
// и требует обработки множества нюансов формата Open XML (типы ячеек, формулы, форматирование).

Функция ПолучитьОбщиеСтрокиИзXLSX(ПутьКФайлуXLSX) Экспорт
    ОбщиеСтроки = Новый Массив; // Будем хранить общие строки

    // Создаем временный каталог для распаковки
    КаталогДляРаспаковки = КаталогВременныхФайлов() + УникальныйИдентификатор();
    СоздатьКаталог(КаталогДляРаспаковки);

    // 1. Распаковка XLSX
    Попытка
        ZIPФайл = Новый ZIPФайл(ПутьКФайлуXLSX);
        ZIPФайл.Извлечь(КаталогДляРаспаковки);
        Сообщить("Файл XLSX успешно распакован в: " + КаталогДляРаспаковки);
    Исключение
        Сообщить("Ошибка распаковки XLSX: " + ОписаниеОшибки());
        УдалитьФайлы(КаталогДляРаспаковки);
        Возврат Неопределено;
    КонецПопытки;

    ПутьКSharedStrings = КаталогДляРаспаковки + "\xl\sharedStrings.xml";
    Если ФайлСуществует(ПутьКSharedStrings) Тогда
        Попытка
            ЧтениеXML = Новый ЧтениеXML;
            ЧтениеXML.УстановитьВходнойФайл(ПутьКSharedStrings);
            
            // Пропускаем все до первого элемента <si>
            Пока ЧтениеXML.Прочитать() И Не (ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "si") Цикл КонецЦикла;

            Пока ЧтениеXML.Прочитать() Цикл
                Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "si" Тогда // Shared String Item
                    // Внутри <si> ищем элемент <t>, который содержит текст
                    Пока ЧтениеXML.Прочитать() И Не (ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "si") Цикл
                        Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "t" Тогда // Text node
                            ЧтениеXML.Прочитать(); // Переходим на текст
                            Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
                                ОбщиеСтроки.Добавить(ЧтениеXML.Значение);
                            КонецЕсли;
                            Прервать; // Нас интересует только первый текстовый узел
                        КонецЕсли;
                    КонецЦикла;
                КонецЕсли;
                Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "sst" Тогда // Конец файла общих строк
                    Прервать;
                КонецЕсли;
            КонецЦикла;
            ЧтениеXML.Закрыть();
        Исключение
            Сообщить("Ошибка чтения sharedStrings.xml: " + ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;

    // Очищаем временные файлы
    УдалитьФайлы(КаталогДляРаспаковки);

    Возврат ОбщиеСтроки;
КонецФункции

// Пример использования:
// ПутьКФайлуXLSX = "C:\Temp\МоиДанные.xlsx";
// МассивОбщихСтрок = ПолучитьОбщиеСтрокиИзXLSX(ПутьКФайлуXLSX);
// Если МассивОбщихСтрок <> Неопределено Тогда
//     Сообщить("Успешно прочитаны общие строки. Количество: " + МассивОбщихСтрок.Количество());
//     // Например, выводим первые 5 строк
//     Для Индекс = 0 По Мин(4, МассивОбщихСтрок.ВГраница()) Цикл
//         // Сообщить("Строка " + Индекс + ": " + МассивОбщихСтрок[Индекс]);
//     КонецЦикла;
//     // Далее, для чтения данных с листов xl/worksheets/sheetX.xml,
//     // вам потребуется аналогично парсить эти XML-файлы,
//     // сопоставляя индексы строковых значений из ячеек с МассивОбщихСтрок.
// КонецЕсли;

// Данный код требует, чтобы на сервере были установлены необходимые OLEDB-драйверы
// и разрешено использование COM-объектов на сервере 1С.

Функция ПрочитатьExcelЧерезADO(ПутьКФайлуExcel) Экспорт
    ТаблицаДанных = Новый ТаблицаЗначений;
    Соединение = Неопределено;
    НаборЗаписей = Неопределено;
    Попытка
        СтрокаСоединения = "";
        ИмяФайлаНизкийРегистр = НРег(ПутьКФайлуExcel);

        Если СтрЗаканчиваетсяНа(ИмяФайлаНизкийРегистр, ".xlsx") Тогда
            // Для XLSX файлов (Office 2007 и выше)
            // Requires Microsoft Access Database Engine 2007/2010/2016 Redistributable
            СтрокаСоединения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" + ПутьКФайлуExcel + """;Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=1""";
        ИначеЕсли СтрЗаканчиваетсяНа(ИмяФайлаНизкийРегистр, ".xls") Тогда
            // Для XLS файлов (Office 97-2003)
            // Requires Microsoft Jet 4.0 OLE DB Provider
            СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" + ПутьКФайлуExcel + """;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""";
        Иначе
            Сообщить("Неподдерживаемый формат файла Excel для чтения через ADO.");
            Возврат Неопределено;
        КонецЕсли;

        Соединение = Новый COMОбъект("ADODB.Connection");
        Соединение.Open(СтрокаСоединения);

        // Получаем список листов в файле Excel
        // adSchemaTables = 20 (константа для ADODB.Connection.OpenSchema)
        Листы = Соединение.OpenSchema(20);
        ИмяЛистаДляЗапроса = "";
        Если Листы.EOF = Ложь Тогда
            Листы.MoveFirst();
            Пока Листы.EOF = Ложь Цикл
                // Ищем листы, которые являются таблицами, и чье имя содержит '$' (стандарт для листов Excel)
                Если Листы.Fields("TABLE_TYPE").Value = "TABLE" И СтрНайти(Листы.Fields("TABLE_NAME").Value, "$") > 0 Тогда
                    ИмяЛистаДляЗапроса = Листы.Fields("TABLE_NAME").Value;
                    Прервать; // Берем первый найденный лист
                КонецЕсли;
                Листы.MoveNext();
            КонецЦикла;
        КонецЕсли;
        Листы.Close(); // Закрываем Recordset с листами

        Если ПустаяСтрока(ИмяЛистаДляЗапроса) Тогда
            Сообщить("Не удалось найти рабочие листы в файле Excel.");
            Соединение.Close();
            Возврат Неопределено;
        КонецЕсли;

        // Выполняем SQL-запрос для получения данных с выбранного листа
        // HDR=Yes в Extended Properties означает, что первая строка содержит заголовки колонок.
        // Если заголовков нет, используйте HDR=No и обращайтесь к колонкам по F1, F2, F3...
        ЗапросSQL = "SELECT * FROM [" + ИмяЛистаДляЗапроса + "]";
        НаборЗаписей = Новый COMОбъект("ADODB.Recordset");
        НаборЗаписей.Open(ЗапросSQL, Соединение);

        // Создаем колонки в ТаблицаДанных на основе полей Recordset
        Для Каждого Поле Из НаборЗаписей.Fields Цикл
            // В ADO имена полей могут быть русскими или содержать пробелы,
            // что может быть проблемой при прямом использовании как имен колонок 1С.
            // Рекомендуется нормализовать имена.
            ИмяКолонки = Поле.Name;
            // Пример простой нормализации: замена пробелов, удаление спецсимволов.
            ИмяКолонки = СтрЗаменить(ИмяКолонки, " ", "");
            ИмяКолонки = СтрЗаменить(ИмяКолонки, ".", "");
            ИмяКолонки = СтрЗаменить(ИмяКолонки, "-", "");
            // Добавляем, если нет, чтобы избежать дублирования
            Если ТаблицаДанных.Колонки.Найти(ИмяКолонки) = Неопределено Тогда
                ТаблицаДанных.Колонки.Добавить(ИмяКолонки);
            КонецЕсли;
        КонецЦикла;

        // Заполняем ТаблицаДанных данными из Recordset
        Пока НаборЗаписей.EOF = Ложь Цикл
            НоваяСтрока = ТаблицаДанных.Добавить();
            Для Каждого Поле Из НаборЗаписей.Fields Цикл
                ИмяКолонки = Поле.Name;
                ИмяКолонки = СтрЗаменить(ИмяКолонки, " ", ""); // Применяем ту же нормализацию
                ИмяКолонки = СтрЗаменить(ИмяКолонки, ".", "");
                ИмяКолонки = СтрЗаменить(ИмяКолонки, "-", "");
                
                Если ТаблицаДанных.Колонки.Найти(ИмяКолонки) <> Неопределено Тогда
                    Попытка
                        // ADO может возвращать значения DBNull, которые 1С не понимает напрямую.
                        // Необходимо преобразовывать или проверять на Null.
                        Если ТипЗнч(Поле.Value) = Тип("COMОбъект") И Поле.Value.GetType().Name = "DBNull" Тогда
                            НоваяСтрока[ИмяКолонки] = Неопределено;
                        Иначе
                            НоваяСтрока[ИмяКолонки] = Поле.Value;
                        КонецЕсли;
                    Исключение
                        // В случае ошибки при чтении или преобразовании значения
                        НоваяСтрока[ИмяКолонки] = "";
                        Сообщить("Предупреждение: Ошибка чтения значения поля " + Поле.Name + ": " + ОписаниеОшибки(), СтатусСообщения.Важное);
                    КонецПопытки;
                КонецЕсли;
            КонецЦикла;
            НаборЗаписей.MoveNext();
        КонецЦикла;

    Исключение
        Сообщить("Критическая ошибка при чтении Excel через ADO: " + ОписаниеОшибки(), СтатусСообщения.Ошибка);
        Возврат Неопределено;
    КонецПопытки
    Наконец
        // Важно закрыть все объекты ADO
        Если НаборЗаписей <> Неопределено И НаборЗаписей.State = 1 Тогда // adStateOpen
            НаборЗаписей.Close();
        КонецЕсли;
        Если Соединение <> Неопределено И Соединение.State = 1 Тогда // adStateOpen
            Соединение.Close();
        КонецЕсли;
    КонецПопытки;

    Возврат ТаблицаДанных;
КонецФункции

// Пример использования:
// ПутьКФайлуExcel = "C:\Temp\ДанныеОтчет.xlsx";
// ДанныеИзExcel = ПрочитатьExcelЧерезADO(ПутьКФайлуExcel);
// Если ДанныеИзExcel <> Неопределено Тогда
//     Сообщить("Успешно прочитано " + ДанныеИзExcel.Количество() + " строк через ADO.");
//     // Далее работаем с ТаблицаДанных
//     Для Каждого СтрокаТЗ Из ДанныеИзExcel Цикл
//         // Например, Сообщить("Значение колонки 'Наименование': " + СтрокаТЗ.Наименование);
//     КонецЦикла;
// КонецЕсли;