При работе в устаревшей, но все еще популярной платформе 1С:Предприятие 7.7 разработчики часто сталкиваются с аппаратными и программными ограничениями. Одно из наиболее критичных — невозможность штатным образом сохранить табличный документ (отчет) в современном формате XLSX (Excel 2007-2010 и новее). Платформа 7.7 «из коробки» умеет записывать файлы только в старом формате XLS (Excel 95/97), который накладывает жесткие ограничения: не более 256 колонок и до 65 536 строк на одном листе. Более того, современные мобильные устройства, такие как iPhone или iPad, часто отказываются корректно отображать файлы старого формата 97-2003 года, требуя исключительно XLSX. Для прямого сохранения отчетов в современный формат можно использовать внешнюю компоненту для выгрузки таблиц 1С 7.7 в Excel 2007.
В рамках этой статьи мы подробно разберем, как решить проблему экспорта отчетов. Мы проанализируем ситуацию, изучим несколько альтернативных подходов — от простой OLE-автоматизации до высокопроизводительной выгрузки данных — и выберем оптимальный вариант для вашей задачи.
Если на рабочем компьютере пользователя, где формируется отчет, установлен пакет Microsoft Office, мы можем использовать механизм OLE-автоматизации. Суть метода заключается в том, что 1С сначала записывает стандартный файл во временную директорию, а затем незаметно для пользователя открывает его через Excel и пересохраняет в нужном формате.
Давайте разберем по шагам, как реализовать этот алгоритм в коде 1С 7.7. Обратите внимание на использование правильных констант форматов сохранения. Для сохранения в классический XLS используется константа -4143 (xlNormal), а для современного формата XLSX (без поддержки макросов) нам понадобится константа 51 (xlOpenXMLWorkbook).
Рассмотрим пример кода:
// Создаем объект таблицы 1С
Таб = СоздатьОбъект("Таблица");
// ... Здесь происходит заполнение и вывод секций отчета (ВывестиСекцию) ...
// Определяем пути к файлам во временной папке
ПутьВремКаталога = КаталогВременныхФайлов();
ИмяВремФайлаXLS = ПутьВремКаталога + "temp_report.xls";
ИмяИтоговогоФайлаXLSX = "C:\Reports\МойОтчет.xlsx";
// Записываем сформированную печатную форму во временный XLS-файл старого формата
Таб.Записать(ИмяВремФайлаXLS, "XLS");
// Пытаемся запустить Excel через OLE
Попытка
Эксель = СоздатьОбъект("Excel.Application");
Исключение
Предупреждение("На компьютере не установлен Microsoft Excel! Конвертация невозможна.");
Возврат;
КонецПопытки;
// Отключаем предупреждения и отображение интерфейса для ускорения работы
Эксель.DisplayAlerts = 0;
Эксель.ScreenUpdating = 0;
Эксель.Visible = 0;
Попытка
// Открываем созданный временный файл в Excel
Книга = Эксель.Workbooks.Open(ИмяВремФайлаXLS);
// Пересохраняем файл в формате XLSX (константа 51 соответствует xlOpenXMLWorkbook)
Книга.SaveAs(ИмяИтоговогоФайлаXLSX, 51);
// Закрываем книгу без сохранения изменений (мы уже сохранились через SaveAs)
Книга.Close(0);
Сообщить("Отчет успешно сохранен в формате XLSX: " + ИмяИтоговогоФайлаXLSX);
Исключение
Сообщить("Произошла ошибка при конвертации файла: " + ОписаниеОшибки(), "!");
КонецПопытки;
// Обязательно закрываем приложение Excel и очищаем память
Эксель.Quit();
Эксель = 0;
// Удаляем временный файл с диска
ФС.УдалитьФайл(ИмяВремФайлаXLS);
Этот способ крайне прост в реализации и гарантирует получение «настоящего» файла XLSX, который без проблем откроется на любых мобильных устройствах под управлением iOS или Android.
Иногда при попытке сохранить большой отчет с количеством колонок более 256 напрямую из 1С 7.7 в формат XLS платформа аварийно завершает работу с системной ошибкой. Чтобы обойти это ограничение, мы можем использовать промежуточную выгрузку в формат HTML. Этот формат не имеет лимитов по строкам и колонкам, прекрасно сохраняя при этом шрифты, цвета ячеек и базовое форматирование.
Проанализируем этот сценарий на практике:
.html с помощью стандартного метода Таб.Записать(ИмяФайла, "HTML").SaveAs с параметром 51 для конвертации в XLSX.Давайте посмотрим на программную реализацию этого обходного пути:
ИмяВремHTML = КаталогВременныхФайлов() + "temp_table.html";
ИмяРезультата = "C:\Reports\БольшойОтчет.xlsx";
// Записываем документ в HTML
Таб.Записать(ИмяВремHTML, "HTML");
Попытка
Эксель = СоздатьОбъект("Excel.Application");
Исключение
Предупреждение("Не удалось запустить Excel!");
Возврат;
КонецПопытки;
Эксель.DisplayAlerts = 0;
Эксель.Visible = 0;
Попытка
// Открываем HTML-файл. Excel распознает его структуру и преобразует в таблицу
Книга = Эксель.Workbooks.Open(ИмяВремHTML);
// Сохраняем в полноценный формат Excel 2007-2010
Книга.SaveAs(ИмяРезультата, 51);
Книга.Close(0);
Сообщить("Конвертация большого отчета успешно завершена!");
Исключение
Сообщить("Ошибка конвертации: " + ОписаниеОшибки(), "!");
КонецПопытки;
Эксель.Quit();
Эксель = 0;
ФС.УдалитьФайл(ИмяВремHTML);
Когда речь заходит о выгрузке сотен тысяч строк данных (например, огромные реестры, прайс-листы или транзакционные выгрузки), OLE-автоматизация начинает работать критически медленно. В таких случаях мы рекомендуем использовать прямое подключение к файлу XLSX через технологию ADO (ActiveX Data Objects).
Для реализации этого метода на компьютере должен быть установлен драйвер Microsoft Access Database Engine (содержит необходимый OLE DB провайдер). При этом сам Microsoft Excel на компьютере может вообще отсутствовать, что делает данный метод идеальным для серверов. Для быстрой передачи данных подойдёт обработка для выгрузки таблиц значений в Excel с помощью ADO.
Выясним причину высокой скорости этого метода: данные передаются не поочередно в каждую ячейку интерфейса, а записываются пачками с помощью стандартных SQL-запросов INSERT INTO напрямую в файл структуры.
Рассмотрим пример создания пустого XLSX-файла и наполнения его данными из таблицы значений 1С:
// Создаем объект соединения ADO
Connection = СоздатьОбъект("ADODB.Connection");
Recordset = СоздатьОбъект("ADODB.Recordset");
ПутьКФайлу = "C:\Reports\DataExport.xlsx";
// Строка подключения к XLSX файлу через провайдер ACE.OLEDB
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ПутьКФайлу + ";Extended Properties=""Excel 12.0 Xml;HDR=YES;""";
Попытка
Connection.Open(ConnectionString);
Исключение
Сообщить("Не удалось подключиться к файлу XLSX: " + ОписаниеОшибки(), "!");
Возврат;
КонецПопытки;
// Создаем таблицу (лист) внутри файла XLSX средствами SQL
CommandText = "CREATE TABLE [ЭкспортДанных] ([Код] MEMO, [Наименование] MEMO, [Цена] DOUBLE)";
Попытка
Connection.Execute(CommandText);
Исключение
Сообщить("Не удалось создать лист в файле: " + ОписаниеОшибки(), "!");
Connection.Close();
Возврат;
КонецПопытки;
// Перебираем таблицу значений и пишем данные напрямую в файл
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
// Экранируем кавычки в текстовых полях для SQL
ТекНаим = СтрЗаменить(ТЗ.Наименование, "'", "''");
Query = "INSERT INTO [ЭкспортДанных$] ([Код], [Наименование], [Цена]) VALUES ('" + ТЗ.Код + "', '" + ТекНаим + "', " + ТЗ.Цена + ")";
Connection.Execute(Query);
КонецЦикла;
Connection.Close();
Сообщить("Данные успешно выгружены в XLSX через ADO!");
Если на сервере или рабочей станции категорически запрещено устанавливать пакет Microsoft Office, но у вас есть необходимость регулярно конвертировать файлы отчетов, отличным решением станет использование бесплатной утилиты от фирмы 1С — «1С:Предприятие – Работа с файлами».
Эта программа поддерживает работу через интерфейс командной строки и умеет конвертировать файлы формата .mxl (родной формат табличных документов 1С) в современные форматы, включая .xlsx и .pdf.
Алгоритм действий разработчика выглядит следующим образом:
Таб.Записать(ПутьКФайлу + ".mxl", "MXL");ЗапуститьПриложение.Посмотрим на пример кода запуска конвертации:
ПутьMXL = "C:\Reports\Report.mxl";
ПутьXLSX = "C:\Reports\Report.xlsx";
// Записываем исходный MXL-файл средствами 1С 7.7
Таб.Записать(ПутьMXL, "MXL");
// Путь к исполняемому файлу утилиты "Работа с файлами"
ПутьКПрограмме = """C:\Program Files (x86)\1C\1C Enterprise File Work\1cv8fv.exe""";
// Формируем командную строку для конвертации в режиме командной строки
// Параметр /CConvert указывает на режим конвертации
СтрокаЗапуска = ПутьКПрограмме + " /CConvert """ + ПутьMXL + """ -v ""xlsx"" """ + ПутьXLSX + """";
// Запускаем внешнее приложение в режиме ожидания завершения
ЗапуститьПриложение(СтрокаЗапуска, "", 1);
// Удаляем промежуточный файл MXL
ФС.УдалитьФайл(ПутьMXL);
Если ФС.СуществуетФайл(ПутьXLSX) = 1 Тогда
Сообщить("Конвертация утилитой 1С завершена успешно!");
Иначе
Сообщить("Не удалось выполнить конвертацию утилитой.", "!");
КонецЕсли;
Мы проанализировали различные варианты решения проблемы сохранения отчетов из 1С 7.7 в современный формат XLSX. Выбор конкретного метода зависит от технических условий вашей задачи: