Разберем, как реализовать функциональность выгрузки данных из справочника "Контрагенты" в файл Excel с использованием внешней обработки в 1С:Предприятие 8.3 (управляемые формы). Это позволит пользователям вашей системы получать необходимые данные в удобном формате для дальнейшей работы.
Задача заключается в создании кнопки на форме внешней обработки, при нажатии на которую данные из справочника "Контрагенты" будут выгружаться в файл формата Excel. Мы рассмотрим базовый подход с использованием стандартного объекта 1С – ТабличныйДокумент, а затем углубимся в улучшения, такие как выбор пути сохранения файла, обработка больших объемов данных, повышение надежности и, как альтернатива, работа с COM-объектом Microsoft Excel для более тонкой настройки.
Для начала рассмотрим основной подход, предложенный в обсуждении. Он включает в себя две процедуры: одну на клиенте для обработки нажатия кнопки и вызова серверной функции, и вторую на сервере, где происходит основная логика запроса данных, формирования табличного документа и сохранения его в файл Excel. Это классический пример клиент-серверного взаимодействия в управляемых формах 1С.
Для начала убедимся, что на вашей форме внешней обработки уже есть кнопка. В свойствах этой кнопки в палитре свойств нужно указать имя обработчика события Нажатие. Например, если имя обработчика ВыгрузитьКонтрагентов, то при нажатии на кнопку будет вызываться соответствующая клиентская процедура.
На стороне клиента мы лишь инициируем вызов серверной процедуры. Это необходимо, поскольку непосредственная работа с файловой системой (сохранение файла) и запросы к базе данных доступны только на сервере.
&НаКлиенте
Процедура ВыгрузитьКонтрагентов(Команда)
// Вызываем серверную процедуру для выполнения основной логики выгрузки.
ВыгрузитьКонтрагентовНаСервере();
КонецПроцедуры
Директива &НаКлиенте указывает, что этот код выполняется на клиентской стороне (на компьютере пользователя).
Теперь перейдем к основной логике, которая выполняется на сервере 1С. Здесь мы будем выполнять запрос к справочнику, формировать табличный документ и сохранять его.
&НаСервере
Процедура ВыгрузитьКонтрагентовНаСервере()
// 1. Создание и выполнение запроса к справочнику "Контрагенты"
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Код КАК Код,
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
// Внимание: В исходном коде было "ПЕРВЫЕ 100".
// Если вам нужны все контрагенты, удалите строку "ПЕРВЫЕ 100 |" из текста запроса.
// Пример с ограничением:
// Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100 | Контрагенты.Ссылка ...";
Выборка = Запрос.Выполнить().Выбрать(); // Выполняем запрос и получаем выборку
// 2. Создание объекта "ТабличныйДокумент"
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ОтображатьСетку = Ложь; // По желанию, можно отключить сетку
ТабДокумент.АвтоМасштаб = Истина; // Позволяет автоматически масштабировать документ при открытии
ТабДокумент.ФиксацияСверху = 1; // Фиксируем первую строку (заголовок) при прокрутке
// 3. Формирование шапки таблицы
// Мы получаем область, соответствующую первой строке (по умолчанию) для определения шаблона.
// Затем, изменяя текст в ячейках этой области, формируем заголовок.
ОбластьЗаголовка = ТабДокумент.ПолучитьОбласть(1, 1, 1, 5); // Область для первой строки, 5 колонок
Область = ОбластьЗаголовка.Область(1, 1);
Область.Текст = "Ссылка";
Область = ОбластьЗаголовка.Область(1, 2);
Область.Текст = "Код";
Область = ОбластьЗаголовка.Область(1, 3);
Область.Текст = "Наименование";
Область = ОбластьЗаголовка.Область(1, 4);
Область.Текст = "ИНН";
Область = ОбластьЗаголовка.Область(1, 5);
Область.Текст = "КПП";
// Оформляем заголовок, например, жирным шрифтом
ОбластьЗаголовка.Шрифт = Новый Шрифт(,,Истина);
ОбластьЗаголовка.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ТабДокумент.Вывести(ОбластьЗаголовка); // Выводим сформированную шапку в табличный документ
// 4. Вывод данных из выборки
// Мы снова получаем шаблон для детальной строки (второй строки)
ДетальнаяСтрока = ТабДокумент.ПолучитьОбласть(1, 1, 1, 5); // Используем тот же размер области для данных
// Перебираем результат запроса и заполняем строки табличного документа
Пока Выборка.Следующий() Цикл
// Заполняем ячейки текущей строки данными из выборки
Область = ДетальнаяСтрока.Область(1, 1);
// Добавим навигационную ссылку для удобства, чтобы по клику можно было перейти в 1С
Область.Текст = ПолучитьНавигационнуюСсылкуИнформационнойБазы() + ПолучитьНавигационнуюСсылку(Выборка.Ссылка);
Область = ДетальнаяСтрока.Область(1, 2);
Область.Текст = Выборка.Код;
Область = ДетальнаяСтрока.Область(1, 3);
Область.Текст = Выборка.Наименование;
Область = ДетальнаяСтрока.Область(1, 4);
Область.Текст = Выборка.ИНН;
Область = ДетальнаяСтрока.Область(1, 5);
Область.Текст = Выборка.КПП;
ТабДокумент.Вывести(ДетальнаяСтрока); // Выводим заполненную строку
КонецЦикла;
// 5. Сохранение табличного документа в файл Excel
ПутьСохраненияФайлаЭксель = "C:\User\ВыгрузкаКонтрагентов.xlsx"; // Укажите доступный для сервера путь!
// Важно: Путь "C:\User\" должен быть доступен для пользователя, от имени которого запущен сервер 1С.
// Если сервер работает как служба, то это может быть системный пользователь,
// и запись в "C:\User\" или на сетевой диск может быть ограничена.
// На практике часто используют временное хранилище или каталог обмена на сервере.
ТабДокумент.Записать(ПутьСохраненияФайлаЭксель, ТипФайлаТабличногоДокумента.XLSX);
// После сохранения на сервере, нужно сообщить пользователю о результате.
Сообщить("Файл успешно создан на сервере по пути: " + ПутьСохраненияФайлаЭксель);
// Для пользователя на клиенте этот файл будет недоступен напрямую.
// О том, как передать файл на клиент, мы расскажем далее.
КонецПроцедуры
Директива &НаСервере указывает, что этот код выполняется на сервере 1С:Предприятия. Именно здесь происходит работа с базой данных и файловой системой сервера.
Как это работает:
Запрос и задаем его текст, выбирая необходимые поля из справочника Контрагенты.Выполнить() и получаем объект Выборка, который позволяет последовательно обходить полученные записи.ТабличныйДокумент – это внутреннее представление таблицы в 1С, которое затем может быть сохранено в различных форматах, включая Excel.ТабличныйДокумент.Пока Выборка.Следующий() Цикл мы перебираем каждую запись из выборки запроса. Для каждой записи мы получаем новую область (строку) и заполняем ее ячейки соответствующими данными из выборки. Для поля "Ссылка" мы использовали функции ПолучитьНавигационнуюСсылкуИнформационнойБазы() и ПолучитьНавигационнуюСсылку(), чтобы создать кликабельную ссылку, которая позволит пользователю Excel, имеющему доступ к 1С, перейти непосредственно к элементу справочника. Каждую заполненную строку мы также выводим в ТабличныйДокумент.Записать() объекта ТабличныйДокумент для сохранения его в файл. Мы указываем полный путь к файлу на сервере и тип файла – ТипФайлаТабличногоДокумента.XLSX для формата Excel.Критически важный момент: Путь для сохранения файла (C:\User\ВыгрузкаКонтрагентов.xlsx) указывает на файловую систему сервера 1С. Пользователь, запускающий внешнюю обработку на своем компьютере, не увидит этот файл напрямую. Для того чтобы файл оказался на компьютере пользователя, требуется дополнительная логика по передаче файла с сервера на клиент. Об этом мы расскажем в следующем разделе.
Фиксированный путь для сохранения файла на сервере редко является удобным решением для конечного пользователя. В большинстве случаев требуется, чтобы пользователь сам мог выбрать, куда сохранить файл на своем компьютере. Для этого нам понадобится более сложное клиент-серверное взаимодействие.
Рассмотрим пошагово, как это реализовать:
На клиенте, при нажатии кнопки, мы сначала открываем диалог выбора файла для сохранения. Для этого используется объект ДиалогВыбораФайла.
&НаКлиенте
Процедура ВыгрузитьКонтрагентов(Команда)
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.ПолноеИмяФайла = "ВыгрузкаКонтрагентов.xlsx"; // Предлагаемое имя файла
Диалог.Фильтр = "Файлы Excel (*.xlsx)|*.xlsx";
Диалог.Заголовок = "Выберите файл для сохранения выгрузки контрагентов";
ОписаниеОповещения = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтотОбъект);
Диалог.Показать(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы = Неопределено Тогда
Возврат; // Пользователь отменил выбор
КонецЕсли;
// Путь, выбранный пользователем на его компьютере
ПутьНаКлиенте = ВыбранныеФайлы[0];
// Вызываем серверную процедуру для формирования табличного документа
// и получаем адрес временного хранилища, куда он был помещен.
АдресВременногоХранилища = ВыгрузитьКонтрагентовНаСервереВХранилище();
Если ПутьНаКлиенте <> Неопределено И АдресВременногоХранилища <> Неопределено Тогда
// Теперь инициируем передачу файла с сервера на клиент в выбранный путь.
НачатьПомещениеФайла(
Новый ОписаниеОповещения("ПослеПомещенияФайла", ЭтотОбъект),
,, // без дополнительных параметров
АдресВременногоХранилища, // Откуда брать файл на сервере
ПутьНаКлиенте, // Куда сохранить файл на клиенте
Ложь, // Не показывать прогресс (для маленьких файлов)
ВидСобытияПомещенияФайла.Поместить // Копировать файл
);
Иначе
Сообщить("Не удалось подготовить файл для сохранения.");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеПомещенияФайла(Результат, ВыбранныйФайл, ДополнительныеПараметры) Экспорт
Если Результат Тогда
Сообщить("Файл успешно сохранен на вашем компьютере: " + ВыбранныйФайл);
Иначе
Сообщить("Ошибка сохранения файла на вашем компьютере.");
КонецЕсли;
КонецПроцедуры
Метод Диалог.Показать(ОписаниеОповещения) запускает диалог асинхронно, что означает, что код не будет ждать его завершения. Результат выбора файла будет передан в процедуру-обработчик ПослеВыбораФайла.
Модифицируем серверную процедуру так, чтобы она не сохраняла файл на сервере, а помещала сформированный ТабличныйДокумент во временное хранилище, возвращая его адрес.
&НаСервере
Функция ВыгрузитьКонтрагентовНаСервереВХранилище()
// 1. Создание и выполнение запроса к справочнику "Контрагенты" (как в предыдущем примере)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Код КАК Код,
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
Выборка = Запрос.Выполнить().Выбрать();
// 2. Создание объекта "ТабличныйДокумент" (как в предыдущем примере)
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ОтображатьСетку = Ложь;
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.ФиксацияСверху = 1;
// 3. Формирование шапки таблицы (как в предыдущем примере)
ОбластьЗаголовка = ТабДокумент.ПолучитьОбласть(1, 1, 1, 5);
Область = ОбластьЗаголовка.Область(1, 1); Область.Текст = "Ссылка";
Область = ОбластьЗаголовка.Область(1, 2); Область.Текст = "Код";
Область = ОбластьЗаголовка.Область(1, 3); Область.Текст = "Наименование";
Область = ОбластьЗаголовка.Область(1, 4); Область.Текст = "ИНН";
Область = ОбластьЗаголовка.Область(1, 5); Область.Текст = "КПП";
ОбластьЗаголовка.Шрифт = Новый Шрифт(,,Истина);
ОбластьЗаголовка.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ТабДокумент.Вывести(ОбластьЗаголовка);
// 4. Вывод данных из выборки (как в предыдущем примере)
ДетальнаяСтрока = ТабДокумент.ПолучитьОбласть(1, 1, 1, 5);
Пока Выборка.Следующий() Цикл
Область = ДетальнаяСтрока.Область(1, 1);
Область.Текст = ПолучитьНавигационнуюСсылкуИнформационнойБазы() + ПолучитьНавигационнуюСсылку(Выборка.Ссылка);
Область = ДетальнаяСтрока.Область(1, 2); Область.Текст = Выборка.Код;
Область = ДетальнаяСтрока.Область(1, 3); Область.Текст = Выборка.Наименование;
Область = ДетальнаяСтрока.Область(1, 4); Область.Текст = Выборка.ИНН;
Область = ДетальнаяСтрока.Область(1, 5); Область.Текст = Выборка.КПП;
ТабДокумент.Вывести(ДетальнаяСтрока);
КонецЦикла;
// 5. Помещение ТабличногоДокумента во временное хранилище на сервере
// Вместо сохранения в файл, помещаем его в хранилище.
// Это возвращает адрес, по которому клиент сможет его забрать.
Возврат ПоместитьВоВременноеХранилище(ТабДокумент, УникальныйИдентификатор);
КонецФункции
Функция ПоместитьВоВременноеХранилище() размещает любой объект (в данном случае ТабличныйДокумент) во временном хранилище на сервере и возвращает уникальный адрес этого объекта. Этот адрес мы и передаем на клиент.
После того как пользователь выбрал путь, а сервер поместил файл во временное хранилище, клиент вызывает асинхронную функцию НачатьПомещениеФайла(). Эта функция отвечает за фактическую загрузку файла с сервера на клиентский компьютер по указанному пути.
Если нам не нужно сохранять файл в указанное пользователем место, а достаточно его просто открыть у пользователя для просмотра, мы можем после формирования ТабличногоДокумента на сервере передать его на клиент (функция возвращает сам объект ТабличныйДокумент) и на клиенте вызвать метод Показать(). Тогда табличный документ откроется в окне 1С, и пользователь сможет сам сохранить его через стандартное меню "Файл" – "Сохранить как".
В первоначальном коде, который мы рассматривали, в запросе присутствовало ограничение ВЫБРАТЬ ПЕРВЫЕ 100. Это означает, что будут выбраны только первые 100 записей из справочника "Контрагенты". Если вам требуется выгрузить всех контрагентов, это ограничение следует убрать.
Для этого просто удалите фразу ПЕРВЫЕ 100 | из текста вашего запроса:
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Код КАК Код,
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
Будьте внимательны при работе с очень большими объемами данных (тысячи и миллионы записей), так как их обработка и выгрузка могут занять значительное время и потребовать много оперативной памяти как на сервере 1С, так и на клиентском компьютере. В таких случаях может потребоваться оптимизация запросов, использование постраничной выгрузки или формирование файлов на сервере в фоновом режиме.
При работе с файловой системой (особенно при сохранении файлов) или при взаимодействии со внешними компонентами всегда существует риск возникновения ошибок: файл может быть занят другим приложением, у пользователя или сервера может не быть прав на запись в указанную папку, может закончиться место на диске и так далее. Для того чтобы ваша программа работала стабильно и корректно информировала пользователя об ошибках, рекомендуется использовать конструкцию Попытка...Исключение...КонецПопытки.
Рассмотрим, как ее можно применить к сохранению файла:
&НаСервере
Процедура ВыгрузитьКонтрагентовНаСервере()
// ... ваш код формирования ТабДокумента ...
ПутьСохраненияФайлаЭксель = "C:\User\ВыгрузкаКонтрагентов.xlsx"; // Пример пути
Попытка
ТабДокумент.Записать(ПутьСохраненияФайлаЭксель, ТипФайлаТабличногоДокумента.XLSX);
Сообщить("Данные успешно выгружены в Excel на сервере по пути: " + ПутьСохраненияФайлаЭксель);
Исключение
Сообщить("Ошибка при выгрузке данных в Excel: " + ОписаниеОшибки(), СтатусСообщения.Важное);
// Дополнительно можно записать ошибку в журнал регистрации для анализа
ЗаписьЖурналаРегистрации("ВыгрузкаВExcel", УровеньЖурналаРегистрации.Ошибка, , , "Ошибка сохранения файла: " + ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Используя эту конструкцию, если при выполнении кода внутри блока Попытка произойдет ошибка, выполнение перейдет в блок Исключение, где мы можем вывести сообщение пользователю с помощью Сообщить() и получить детальное описание ошибки с помощью ОписаниеОшибки(). Это значительно повышает удобство использования и отладки вашей обработки.
Хотя ТабличныйДокумент в 1С является универсальным и мощным инструментом для вывода данных, иногда возникает необходимость в более сложном форматировании, работе с несколькими листами, вставке диаграмм или использовании специфических функций Excel, которые невозможно реализовать напрямую средствами ТабличногоДокумента. В таких случаях можно использовать прямой доступ к Microsoft Excel через COM-объект.
Особенности использования COM-объекта Excel:
Application.Visible = Ложь (чтобы Excel работал в фоновом режиме, не показывая окно пользователю) и Application.DisplayAlerts = Ложь (чтобы избежать модальных окон Excel, требующих вмешательства пользователя, например, при сохранении без подтверждения). После завершения работы эти свойства следует вернуть в исходное состояние или завершить работу приложения Excel.Рассмотрим пример начала работы с COM-объектом Excel. Этот код также должен выполняться на сервере, если выгрузка осуществляется там, или на клиенте, если соответствующая логика построена для клиента и Excel установлен на нем.
&НаСервере
Функция ВыгрузитьКонтрагентовЧерезCOM(ПутьСохраненияФайлаЭксель)
Перем ExcelПриложение;
Попытка
// Создаем COM-объект приложения Excel
ExcelПриложение = Новый COMОбъект("Excel.Application");
ExcelПриложение.Visible = Ложь; // Сделать Excel невидимым
ExcelПриложение.DisplayAlerts = Ложь; // Отключить вывод предупреждений
// Создать новую книгу (файл Excel)
Книга = ExcelПриложение.Workbooks.Add();
// Получить первый лист книги
Лист = Книга.Worksheets(1);
Лист.Name = "Контрагенты"; // Присвоить имя листу
// Заполняем шапку
Лист.Cells(1, 1).Value = "Ссылка";
Лист.Cells(1, 2).Value = "Код";
Лист.Cells(1, 3).Value = "Наименование";
Лист.Cells(1, 4).Value = "ИНН";
Лист.Cells(1, 5).Value = "КПП";
// Можно применить форматирование к шапке
Лист.Range("A1:E1").Font.Bold = Истина;
Лист.Range("A1:E1").HorizontalAlignment = -4108; // xlCenter
// Выполняем запрос к справочнику "Контрагенты" (как и ранее)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Код КАК Код,
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП
|ИЗ
| Справочник.Контрагенты КАК Контрагенты";
Выборка = Запрос.Выполнить().Выбрать();
НомерСтроки = 2; // Начинаем заполнение со второй строки (после заголовка)
Пока Выборка.Следующий() Цикл
Лист.Cells(НомерСтроки, 1).Value = ПолучитьНавигационнуюСсылкуИнформационнойБазы() + ПолучитьНавигационнуюСсылку(Выборка.Ссылка);
Лист.Cells(НомерСтроки, 2).Value = Выборка.Код;
Лист.Cells(НомерСтроки, 3).Value = Выборка.Наименование;
Лист.Cells(НомерСтроки, 4).Value = Выборка.ИНН;
Лист.Cells(НомерСтроки, 5).Value = Выборка.КПП;
НомерСтроки = НомерСтроки + 1;
КонецЦикла;
// Автоматически подбираем ширину колонок
Лист.Columns("A:E").AutoFit();
// Сохранить книгу. Важно указать полный путь и тип файла.
// Для XLSX используем FileFormat = 51 (xlOpenXMLWorkbook)
Книга.SaveAs(ПутьСохраненияФайлаЭксель, 51);
Книга.Close(); // Закрыть книгу
ExcelПриложение.Quit(); // Закрыть приложение Excel
Возврат Истина; // Успешное выполнение
Исключение
Сообщить("Ошибка при работе с COM-объектом Excel: " + ОписаниеОшибки(), СтатусСообщения.Важное);
// Попытка корректно закрыть Excel в случае ошибки
Если Не ExcelПриложение = Неопределено Тогда
Попытка
ExcelПриложение.DisplayAlerts = Истина; // Вернуть предупреждения
ExcelПриложение.Quit();
Исключение
// Игнорируем ошибки при закрытии
КонецПопытки;
КонецЕсли;
Возврат Ложь; // Ошибка
КонецПопытки;
Возврат Ложь; // Если дошло до сюда, значит что-то пошло не так
КонецФункции
Сравнение подходов:
Для большинства задач выгрузки данных из 1С в Excel обычно достаточно использования ТабличногоДокумента. Он более надежен, так как не зависит от внешнего программного обеспечения. COM-объекты стоит применять только тогда, когда требования к конечному файлу Excel выходят за рамки возможностей ТабличногоДокумента.
Таким образом, мы рассмотрели различные подходы к созданию кнопки для выгрузки данных в Excel из 1С, начиная от базовой реализации и заканчивая более продвинутыми методами, включающими взаимодействие с COM-объектом Microsoft Excel и обработку клиент-серверного взаимодействия для выбора пути сохранения файла.