Как прочитать Excel в 1С как табличный документ: 5 рабочих методов с примерами

Работа с файлами Microsoft Excel в 1С:Предприятие — одна из самых востребованных задач среди разработчиков и аналитиков. Несмотря на то, что платформа 1С изначально не предназначена для прямой работы с форматом .xlsx, существует несколько способов загрузить данные из Excel как табличный документ — от стандартных механизмов до использования внешних компонент. Эта статья поможет разобраться, какой метод подходит именно для вашей задачи, будь то разовая выгрузка данных или автоматическая обработка сотен файлов.

Многие ошибочно полагают, что для чтения Excel в 1С обязательно нужен COM-объект или платные библиотеки. На самом деле, в большинстве случаев достаточно встроенных инструментов платформы — главное, правильно настроить процесс импорта и учесть особенности формата исходного файла. Мы рассмотрим все актуальные способы: от простого открытия через ТабличныйДокумент.Прочитать() до сложных сценариев с ADODB и OLEDB, а также разберём типичные ошибки и способы их устранения.

В статье вы найдёте:

• 🔹 5 способов чтения Excel в 1С (от простого к сложному)
• 🔹 Пошаговые инструкции с примерами кода на встроенном языке
• 🔹 Сравнительную таблицу методов по скорости и надёжности
• 🔹 Уникальные приёмы для работы с большими файлами (>100 000 строк)
• 🔹 Разбор 10 распространённых ошибок и их решений

1. Стандартный метод: ТабличныйДокумент.Прочитать()

Самый простой способ загрузить Excel в 1С — использовать встроенный метод объекта ТабличныйДокумент. Он поддерживает форматы .xls (Excel 97-2003) и .xlsx (Excel 2007 и новее), но имеет ограничения по функциональности. Например, не все форматирования ячеек сохранятся, а формулы будут преобразованы в значения.

Основные шаги:

1. Создайте объект ТабличныйДокумент.
2. Укажите путь к файлу Excel.
3. Вызовите метод Прочитать().
4. Обработайте результат (при необходимости).

Пример кода:

ТабДок = Новый ТабличныйДокумент;
ПутьКФайлу = "C:\Temp\data.xlsx";
ТабДок.Прочитать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);

// Проверка на ошибки
Если ТабДок = Неопределено Тогда
Сообщить("Ошибка чтения файла!");
Иначе
ТабДок.Показать();
КонецЕсли;

⚠️ Внимание: Метод Прочитать() не поддерживает защищённые паролем файлы Excel. Если файл защищён, используйте альтернативные способы (см. раздел 3).

Преимущества метода:

• 🔹 Не требует внешних компонент или библиотек
• 🔹 Работает на всех версиях 1С (8.2, 8.3, включая облачные решения)
• 🔹 Сохраняет базовое форматирование (шрифты, цвета, границы)

Недостатки:

• ❌ Не поддерживает формулы (только значения)
• ❌ Ограниченная работа с большими файлами (>50 000 строк)
• ❌ Нет доступа к отдельным листам — загружается только первый лист

2. Чтение через COM-объект Excel.Application

Если стандартный метод не подходит (например, нужно работать с несколькими листами или сохранять формулы), можно подключиться к Microsoft Excel напрямую через COM-объект. Этот способ более гибкий, но требует установленного Microsoft Office на компьютере пользователя.

Алгоритм работы:

1. Создайте COM-объект Excel.Application.
2. Откройте книгу через Workbooks.Open().
3. Получите доступ к нужному листу (Worksheets).
4. Считайте данные в массив или таблицу значений.
5. Закройте Excel и освободите ресурсы.

Пример кода для чтения первого листа:

Excel = Новый COMОбъект("Excel.Application");
Excel.Visible = Ложь; // Скрытый режим

ПутьКФайлу = "C:\Temp\data.xlsx";
Книга = Excel.Workbooks.Open(ПутьКФайлу);
Лист = Книга.Worksheets(1); // Первый лист

// Чтение диапазона A1:D100
Диапазон = Лист.Range("A1:D100");
Данные = Диапазон.Value;

// Преобразование в ТаблицуЗначений
ТЗ = Новый ТаблицаЗначений;
Для Каждого Строка Из Данные Цикл
НоваяСтрока = ТЗ.Добавить();
Для Инд = 0 По Строка.UBound() Цикл
НоваяСтрока["Колонка" + (Инд + 1)] = Строка[Инд];
КонецЦикла;
КонецЦикла;

// Закрытие Excel
Книга.Close(Ложь);
Excel.Quit();
ОсвободитьОбъекты(Excel);

⚠️ Внимание: При работе с COM-объектами всегда освобождайте ресурсы через ОсвободитьОбъекты() или Excel = Неопределено. В противном случае процесс EXCEL.EXE останется висеть в диспетчере задач, что приведёт к утечке памяти.

Когда использовать COM-объект:

• 🔹 Нужно читать несколько листов из одного файла
• 🔹 Требуется работать с формулами (а не только значениями)
• 🔹 Необходимо сохранять форматирование (условное, стили ячеек)

Ограничения:

• ❌ Требует установленного Microsoft Office на клиентском ПК
• ❌ Медленнее, чем встроенные методы (из-за межпроцессного взаимодействия)
• ❌ Не работает в веб-клиенте и мобильном приложении 1С

Убедиться, что на ПК установлен Microsoft Office|Проверьте права доступа к папке с файлом|Отключите антивирус (может блокировать COM-соединение)|Запустите 1С от имени администратора (при ошибках доступа)-->

3. Использование ADODB для высокопроизводительного чтения

Если вам нужно обработать большой файл Excel (десятки тысяч строк), стандартные методы могут работать слишком медленно. В этом случае поможет технология ADODB (ActiveX Data Objects), которая позволяет читать Excel как базу данных через SQL-запросы.

Преимущества ADODB:

• 🔹 Высокая скорость чтения (в 5-10 раз быстрее COM)
• 🔹 Возможность использовать WHERE, ORDER BY и другие SQL-конструкции
• 🔹 Поддерживает .xls и .xlsx (через разные драйверы)

Пример кода для чтения данных через ADODB:

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

// Подключение к файлу XLSX (для XLS используйте "Provider=Microsoft.Jet.OLEDB.4.0")
СтрокаСоединения = "Provider=Microsoft.ACE.OLEDB.12.0;" +
"Data Source=""" + ПутьКФайлу + """;" +
"Extended Properties=""Excel 12.0 Xml;HDR=YES""";

Соединение.Open(СтрокаСоединения);

// Чтение данных с первого листа (имя листа указывается в квадратных скобках)
Запрос.Open("SELECT * FROM [Лист1$]", Соединение);

// Преобразование в ТаблицуЗначений
ТЗ = Новый ТаблицаЗначений;
Пока Не Запрос.EOF Цикл
НоваяСтрока = ТЗ.Добавить();
Для Инд = 0 По Запрос.Fields.Count - 1 Цикл
НоваяСтрока.Вставить("Колонка" + (Инд + 1), Запрос.Fields(Инд).Value);
КонецЦикла;
Запрос.MoveNext();
КонецЦикла;

Запрос.Close();
Соединение.Close();

Важные нюансы:

• 🔹 Для .xlsx нужен драйвер Microsoft ACE OLEDB 12.0 (устанавливается с Microsoft Access Database Engine)
• 🔹 Параметр HDR=YES означает, что первая строка содержит заголовки столбцов
• 🔹 Имена листов в запросе указываются в формате [Лист1$] (с символом $)

⚠️ Внимание: Если при подключении возникает ошибка "Не удаётся найти установленного поставщика OLE DB", значит на компьютере не установлен Microsoft ACE OLEDB 12.0. Скачайте его с официального сайта Microsoft (бесплатно).

4. Альтернативные библиотеки: OneScript и внешние компоненты

Если встроенные методы 1С не подходят, а COM-объекты недоступны (например, в веб-клиенте), можно использовать внешние библиотеки. Самые популярные решения:

Пример использования OneScript.Excel (бесплатная библиотека):

// Подключаем библиотеку (предварительно скачайте и добавьте в проект)
ПодключитьВнешнююКомпоненту("C:\OneScript\Excel\bin\OneScript.Excel.dll");
Excel = Новый OneScriptExcel;

// Открываем файл
Книга = Excel.Открыть(ПутьКФайлу);
Лист = Книга.Листы[0]; // Первый лист

// Чтение диапазона A1:C10
Данные = Лист.ПолучитьДиапазон("A1:C10").Значения;

// Преобразование в ТаблицуЗначений
ТЗ = Новый ТаблицаЗначений;
Для Каждого Строка Из Данные Цикл
НоваяСтрока = ТЗ.Добавить();
Для Инд = 0 По Строка.Количество() - 1 Цикл
НоваяСтрока.Вставить("Колонка" + (Инд + 1), Строка[Инд]);
КонецЦикла;
КонецЦикла;

Когда стоит использовать внешние библиотеки:

• 🔹 Нужна кроссплатформенность (работа в Linux/macOS)
• 🔹 Требуется обработка сложных форматов (например, сводные таблицы)
• 🔹 Необходима высокая производительность (обработка >100 000 строк)

5. Обработка ошибок и оптимизация производительности

При чтении Excel в 1С часто возникают ошибки, связанные с форматом файла, правами доступа или особенностями данных. Рассмотрим 10 самых распространённых проблем и их решения:

Советы по оптимизации:

• 🔹 Для больших файлов используйте постраничное чтение (например, по 10 000 строк за раз).
• 🔹 Отключайте автоформатирование в Excel перед сохранением файла (уменьшает размер).
• 🔹 Если нужны только данные (без форматирования), сохраняйте Excel в .csv и читайте через ЧтениеТекста.
• 🔹 Для повторяющихся задач создавайте кешированные копии данных в 1С (например, в регистрах сведений).

⚠️ Внимание: При чтении файлов .xlsx через ADODB может возникать ошибка "External table is not in the expected format". Это означает, что файл сохранён в формате Excel Binary Workbook (.xlsb). Пересохраните его как .xlsx.

6. Практический пример: Автоматическая загрузка прайс-листа

Рассмотрим реальную задачу: ежедневная загрузка прайс-листа от поставщика в формате Excel и обновление цен в 1С. Для этого подойдёт комбинация ADODB (для скорости) и ТаблицаЗначений (для обработки).

Алгоритм:

1. Скачать файл Excel с FTP-сервера поставщика.
2. Прочитать данные через ADODB.
3. Сопоставить колонки Excel с реквизитами справочника Номенклатура.
4. Обновить цены в регистре ЦеныНоменклатуры.
5. Сохранить лог обработки.

Пример кода:

// 1. Скачиваем файл с FTP
FTP = Новый FTPСоединение("ftp.supplier.ru", "user", "password");
FTP.Получить("/price.xlsx", "C:\Temp\price.xlsx");

// 2. Чтение через ADODB
Соединение = Новый COMОбъект("ADODB.Connection");
Запрос = Новый COMОбъект("ADODB.Recordset");
Соединение.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Temp\price.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES""");
Запрос.Open("SELECT * FROM [Прайс$] WHERE Артикул IS NOT NULL", Соединение);

// 3. Обработка данных
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Артикул");
ТЗ.Колонки.Добавить("Цена");
ТЗ.Колонки.Добавить("Дата");

Пока Не Запрос.EOF Цикл
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Артикул = Запрос.Fields("Артикул").Value;
НоваяСтрока.Цена = Запрос.Fields("Цена").Value;
НоваяСтрока.Дата = ТекущаяДата();
Запрос.MoveNext();
КонецЦикла;

Запрос.Close();
Соединение.Close();

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

ЗаписьЦен = РегистрыСведений.ЦеныНоменклатуры.СоздатьМенеджерЗаписи();
ЗаписьЦен.Номенклатура = Номенклатура;
ЗаписьЦен.Цена = Строка.Цена;
ЗаписьЦен.Дата = Строка.Дата;
ЗаписьЦен.Записать();
КонецЦикла;

// 5. Логирование
Лог = Новый ТекстовыйДокумент;
Лог.ДобавитьСтроку("Обработано записей: " + ТЗ.Количество());
Лог.Записать("C:\Temp\price_log.txt");

Дополнительные улучшения:

• 🔹 Добавьте проверку контрольных сумм (MD5) файла, чтобы не обрабатывать дубликаты.
• 🔹 Реализуйте отправку уведомлений по email при ошибках.
• 🔹 Используйте фоновые задания для обработки больших файлов (>50 000 строк).

FAQ: Ответы на частые вопросы

// Для COM-объекта
Листы = Книга.Worksheets;
Для Инд = 1 По Листы.Count Цикл
Сообщить(Листы(Инд).Name);
КонецЦикла;

СтрокаСоединения = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=""" + ПутьКФайлу + """;Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=1""";

Запрос.PageSize = 10000; // Чтение по 10 000 строк за раз
Пока Не Запрос.EOF Цикл
// Обработка данных
Запрос.MoveNext();
КонецЦикла;