Как загрузить данные из Excel в 1С: от ручного импорта до автоматизации

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

Процедура ЧтениеExcelЧерезCOM()
Excel = Новый COMОбъект("Excel.Application");
РабочаяКнига = Excel.Workbooks.Open("C:\путь\к\файлу.xlsx");
Лист = РабочаяКнига.Worksheets(1); // Первый лист

// Чтение данных с 1-й строки, начиная со 2-го ряда (пропускаем заголовки)
Строка = 2;
Пока Лист.Cells(Строка, 1).Value <> Неопределено Цикл
Сообщить(Лист.Cells(Строка, 1).Value); // Вывод значения из 1-й колонки
Строка = Строка + 1;
КонецЦикла;

РабочаяКнига.Close(False);
Excel.Quit();
КонецПроцедуры

Особенности метода:

4. Чтение через ADODB (альтернатива COM для больших файлов)

Если файл Excel очень большой (100 000+ строк), использование ADODB может быть эффективнее, чем COM. Этот метод также работает только на Windows, но позволяет читать данные как из базы, что ускоряет обработку.

Пример кода для подключения к Excel через ADODB:

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

// Строка подключения для Excel 2007+ (.xlsx)
СтрокаПодключения = "Provider=Microsoft.ACE.OLEDB.12.0;" +
"Data Source=C:\путь\к\файлу.xlsx;" +
"Extended Properties='Excel 12.0 Xml;HDR=YES';";

Соединение.Open(СтрокаПодключения);
Запрос.Open("SELECT * FROM [Лист1$]", Соединение);

Пока Не Запрос.EOF Цикл
Сообщить(Запрос.Fields("Column1").Value); // Замените на имя вашей колонки
Запрос.MoveNext();
КонецЦикла;

Запрос.Close();
Соединение.Close();
КонецПроцедуры

Ключевые моменты:

• 🔑 Требуется установленный драйвер Microsoft Access Database Engine (скачать с сайта Microsoft).
• 📊 Параметр HDR=YES указывает, что первая строка содержит заголовки (если нет — используйте HDR=NO).
• 🚀 Скорость чтения в 2-3 раза выше, чем через COM, для больших файлов.

5. Чтение Excel как XML (для кросс-платформенных решений)

Если вам нужно решение, которое будет работать и на Linux, и в веб-клиенте, можно рассматривать Excel-файл как XML-архив. Формат .xlsx — это ZIP-архив, содержащий XML-файлы с данными. Такой подход сложнее в реализации, но универсален.

Алгоритм действий:

1. Переименуйте файл .xlsx в .zip и распакуйте его.
2. Найдите файл xl/worksheets/sheet1.xml (для первого листа).
3. Используйте встроенные средства 1С для чтения XML (ЧтениеXML).

Пример кода для чтения XML:

Процедура ЧтениеExcelКакXML()
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл("C:\путь\к\sheet1.xml");

Пока ЧтениеXML.Прочитать() Цикл
Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если ЧтениеXML.Имя = "c" Тогда // Ячейка в Excel XML
Значение = ЧтениеXML.ПолучитьАтрибут("r"); // Адрес ячейки (например, A1)
Сообщить(Значение);
КонецЕсли;
КонецЕсли;
КонецЦикла;

ЧтениеXML.Закрыть();
КонецПроцедуры

Плюсы метода:

• ✅ Работает на любой платформе (Windows, Linux, macOS).
• ✅ Не требует дополнительных компонентов (только стандартные средства 1С).

Минусы:

• ❌ Сложная структура XML — требуется глубокое понимание формата.
• ❌ Медленная обработка из-за большого объёма XML-тегов.
• ❌ Не поддерживает формулы и некоторые форматы ячеек.

6. Автоматизация через внешние сервисы (REST API)

Для облачных решений (например, 1С:Fresh) или интеграции с другими системами можно использовать внешние API, которые преобразуют Excel в JSON или CSV. Популярные сервисы:

• 🌐 Google Sheets API — если файл загружен в Google Диск.
• 🌐 Microsoft Graph API — для файлов в OneDrive/SharePoint.
• 🌐 Собственный микросервис на Python/Node.js, который парсит Excel и отдаёт данные в 1С по HTTP.

Пример работы с Google Sheets API:

1. Загрузите файл Excel в Google Диск.
2. Создайте проект в Google Cloud Console и включите Google Sheets API.
3. Используйте в 1С HTTPСоединение для запроса данных:

Процедура ЧтениеИзGoogleSheets()
HTTP = Новый HTTPСоединение("www.googleapis.com", 443, "", "", 30);
Запрос = Новый HTTPЗапрос("/v4/spreadsheets/ID_ДОКУМЕНТА/values/Лист1!A1:D100");
Запрос.УстановитьЗаголовок("Authorization", "Bearer ВАШ_TOKEN");

Ответ = HTTP.Получить(Запрос);
Данные = JSON.Прочитать(Ответ.ПолучитьТекст());

Для Каждого Строка Из Данные.values Цикл
Сообщить(Строка[0]); // Первая колонка
КонецЦикла;
КонецПроцедуры

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

• 🌍 Работает в любых конфигурациях, включая облачные.
• 🔄 Легко интегрируется с другими системами.
• 📊 Поддерживает реальное время (можно настроить вебхуки для обновлений).

⚠️ Внимание: При использовании внешних API учитывайте ограничения на количество запросов (например, в Google Sheets API бесплатный тариф ограничен 100 запросами в минуту). Для производственных систем может потребоваться оплачиваемый тариф.

Типичные ошибки и их решения

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

Критическая информация: Если при чтении через ADODB вы получаете ошибку "External table is not in the expected format", проверьте, что строка подключения соответствует версии Excel. Для файлов .xls (Excel 97-2003) используйте провайдер Microsoft.Jet.OLEDB.4.0, а для .xlsx — Microsoft.ACE.OLEDB.12.0.

Другие частые проблемы:

• 🗃️ Объединённые ячейки: 1С не может корректно их обработать — разъедините ячейки перед загрузкой.
• 📅 Даты в Excel: Часто считываются как строки. Используйте Дата(Значение) для преобразования.
• 💾 Кодировка: Если в данных есть кириллица, убедитесь, что файл сохранён в UTF-8.

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

Процедура ЗагрузкаНоменклатурыИзExcel()
Excel = Новый COMОбъект("Excel.Application");
РабочаяКнига = Excel.Workbooks.Open("C:\номенклатура.xlsx");
Лист = РабочаяКнига.Worksheets(1);

Строка = 2; // Начинаем со 2-й строки
Пока Лист.Cells(Строка, 1).Value <> Неопределено Цикл
Артикул = Лист.Cells(Строка, 1).Value;
Наименование = Лист.Cells(Строка, 2).Value;

Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Артикул);
Если Номенклатура = Справочники.Номенклатура.ПустаяСсылка() Тогда
Номенклатура = Справочники.Номенклатура.СоздатьЭлемент();
Номенклатура.Артикул = Артикул;
Номенклатура.Наименование = Наименование;
Номенклатура.Записать();
КонецЕсли;

Строка = Строка + 1;
КонецЦикла;

РабочаяКнига.Close(False);
Excel.Quit();
КонецПроцедуры

Док = Документы.ПоступлениеТоваров.СоздатьДокумент();
Док.Дата = ТекущаяДата();
Док.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию("Поставщик");

Для Каждого СтрокаДанных Из ДанныеExcel Цикл
НоваяСтрока = Док.Товары.Добавить();
НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СтрокаДанных.Наименование);
НоваяСтрока.Количество = СтрокаДанных.Количество;
НоваяСтрока.Цена = СтрокаДанных.Цена;
КонецЦикла;