Записать табличный документ в excel 1с программно

MS Excel давно стал стандартом для работы с электронными таблицами. В статье рассматриваются способы программной выгрузки и загрузки из 1С в файлы Excel.

Существует несколько способов программной работы с файлами Excel из 1С. Каждый из них имеет свои преимущества и недостатки.

Обмен через табличный документ

Данный способ простой. Его суть заключается в том, что объект ТабличныйДокумент имеет методы:

• Записать(<ИмяФайла>, <ТипФайлаТаблицы>) для выгрузки данных в файл;
• Прочитать(<ИмяФайла>, <СпособЧтенияЗначений>) для загрузки данных из файла.

---

Внимание!

Метод Записать() доступен как на клиенте, так и на сервере. Метод Прочитать() доступен только на стороне сервера. Необходимо помнить об этом
при планировании клиент-серверного взаимодействия.

---

Рассмотрим пример сохранения табличного документа в файл. Необходимо любым способом создать и заполнить объект ТабличныйДокумент, а выгрузка в файл осуществляется всего лишь одной строкой:

ТабДок.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);

Здесь ТабДок — сформированный табличный документ, ПутьКФайлу — имя файла для выгрузки, ТипФайлаТабличногоДокумента.XLSX — формат создаваемого файла. Поддерживаются следующие форматы Excel:

• XLS95 — формат Excel 95;
• XLS97 — формат Excel 97;
• XLSX — формат Excel 2007.

Загрузка из файла осуществляется также достаточно просто:

ТабДок = Новый ТабличныйДокумент;
ТабДок.Прочитать(ПутьКФайлу, СпособЧтенияЗначенийТабличногоДокумента.Значение);

Здесь ПутьКФайлу — путь к загружаемому файлу Excel. СпособЧтенияЗначенийТабличногоДокумента.Значение определяет, каким образом нужно интерпретировать данные, считываемые из исходного документа. Доступны варианты:

• Значение;
• Текст.

Обмен через OLE

Обмен через технологию OLE automation, пожалуй, самый распространенный вариант программной работы с файлами Excel. Он позволяет использовать весь функционал, предоставляемый Excel, но отличается медленной скоростью работы по сравнению с другими способами. Для обмена через OLE требуется установка MS Excel:

• На компьютере конечного пользователя, если обмен происходит на стороне клиента;
• На компьютере сервера 1С:Предприятие, если обмен происходит на стороне сервера.

Пример выгрузки:

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = Ложь;
// Создание новой книги
Книга = Эксель.WorkBooks.Add();
// Позиционирование на первом листе
Лист = Книга.Worksheets(1);

// Запись значения в ячейку
Лист.Cells(НомерСтроки, НомерКолонки).Value = ЗначениеЯчейки;

// Сохранение файла
Книга.SaveAs(ИмяФайла);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

Примеры чтения:

// —— ВАРИАНТ 1 ——

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Открытие книги
Книга = Эксель.Workbooks.Open(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Close(0);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

// —— ВАРИАНТ 2 ——

// Открытие книги
Книга = ПолучитьCOMОбъект(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Application.Quit();

Для обхода всех заполненных строк листа Excel можно использовать следующие приемы:

// —— ВАРИАНТ 1 ——
КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;
Для НомерСтроки = 1 По КоличествоСтрок Цикл
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
КонецЦикла;

// —— ВАРИАНТ 2 ——
НомерСтроки = 0;
Пока Истина Цикл
НомерСтроки = НомерСтроки + 1;
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
Если НЕ ЗначениеЗаполнено(ЗначениеЯчейки) Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Вместо последовательного обхода всех строк листа можно выгрузить все данные в массив и работать с ним. Такой подход будет быстрее при чтении большого объема данных:

ВсегоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;

Область = Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок));
Данные = Область.Value.Выгрузить();

В таблице ниже приведены наиболее востребованные свойства и методы для работы с Excel через OLE:

Действие	Код	Комментарий
Работа с приложением
Установка видимости окна приложения	Эксель.Visible = Ложь;
Установка режима вывода предупреждений (выводить/не выводить)	Эксель.DisplayAlerts = Ложь;
Закрытие приложения	Эксель.Quit();
Работа с книгой
Создание новой книги	Книга = Эксель.WorkBooks.Add();
Открытие существующей книги	Книга = Эксель.WorkBooks.Open(ИмяФайла);
Сохранение книги	Книга.SaveAs(ИмяФайла);
Закрытие книги	Книга.Close(0);
Работа с листом
Установка текущего листа	Лист = Книга.WorkSheets(НомерЛиста);
Установка имени	Лист.Name = Имя;
Установка защиты	Лист.Protect();
Снятие защиты	Лист.UnProtect();
Установка ориентации страницы	Лист.PageSetup.Orientation = 2;	1 — книжная, 2 — альбомная
Установка левой границы	Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка верхней границы	Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка правой границы	Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры);
Установка нижней границы	Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры);
Работа со строками, колонками, ячейками
Установка ширины колонки	Лист.Columns(НомерКолонки).ColumnWidth = Ширина;
Удаление строки	Лист.Rows(НомерСтроки).Delete();
Удаление колонки	Лист.Columns(НомерКолонки).Delete();
Удаление ячейки	Лист.Cells(НомерСтроки, НомерКолонки).Delete();
Установка значения	Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
Объединение ячеек	Лист.Range(Лист.Cells(НомерСтроки, НомерКолонки), Лист.Cells(НомерСтроки1, НомерКолонки1)).Merge();
Установка шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Name = ИмяШрифта;
Установка размера шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Size = РазмерШрифта;
Установка жирного шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Bold = 1;	1 — жирный шрифт, 0 — нормальный
Установка курсива	Лист.Cells(НомерСтроки, НомерКолонки).Font.Italic = 1;	1 — курсив, 0 — нормальный
Установка подчеркнутого шрифта	Лист.Cells(НомерСтроки, НомерКолонки).Font.Underline = 2;	2 — подчеркнутый, 1 — нет

Для того, чтобы узнать какое свойство нужно менять или какой метод вызвать можно воспользоваться макросами Excel. Если записать макрос с требуемыми действиями, то после можно посмотреть программный код на VBA записанного макроса.

Использование COMSafeArray

При выгрузке больших объемов данных из 1С в Excel для ускорения можно использовать объект COMSafeArray. Согласно определению из синтакс-помощника, COMSafeArray — объектная оболочка над многомерным массивом SafeArray из COM. Позволяет создавать и использовать SafeArray для обмена данными между COM-объектами. Проще говоря, это массив значений, который можно использовать для обмена между приложениями по технологии OLE.

// Создание COMSafeArray
МассивКом = Новый COMSafeArray(«VT_Variant», ВсегоКолонок, ВсегоСтрок);
// Заполнение COMSafeArray
Для Стр = 0 По ВсегоСтрок — 1 Цикл
Для Кол = 0 По ВсегоКолонок — 1 Цикл
МассивКом.SetValue(Кол, Стр, Значение);
КонецЦикла;
КонецЦикла;
// Присвоение области листа Excel значений из COMSafeArray
Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).Value = МассивКом;

Обмен через ADO

Файл Excel при обмене через ADO представляет собой базу данных, к которой можно обращаться при помощи SQL-запросов. Установка MS Excel не требуется, но обязательно наличие драйвера ODBC, при помощи которого будет осуществляться доступ. Используемый драйвер ODBC определяется при указании строки соединения к файлу. Обычно требуемый драйвер уже установлен на компьютере.

Обмен через ADO заметно быстрее обмена через OLE, но при выгрузке нет возможности использовать функционал Excel для оформления ячеек, разметки страниц, задания формул и т.д.

Пример выгрузки:

// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);

// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения

// Создание COM-объекта для команды
Команда = Новый COMОбъект(«ADODB.Command»);
Команда.ActiveConnection = Соединение;

// Присвоение текста команды для создания таблицы
Команда.CommandText = «CREATE TABLE [Лист1] (Колонка1 char(255), Колонка2 date, Колонка3 int, Колонка4 float)»;
Команда.Execute(); // Выполнение команды

// Присвоение текста команды для добавления строки таблицы
Команда.CommandText = «INSERT INTO [Лист1] (Колонка1, Колонка2, Колонка3, Колонка4) values (‘абвгдеё’, ‘8/11/2017’, ‘12345’, ‘12345,6789’)»;
Команда.Execute(); // Выполнение команды

// Удаление команды и закрытие соединения
Команда = Неопределено;
Соединение.Close();
Соединение = Неопределено;

Для создания нового листа и формирования его структуры можно воспользоваться объектами ADOX.Catalog и ADOX.Table. В этом случае код примет вид:

// Создание COM-объекта для работы с книгой
Книга = Новый COMОбъект(«ADOX.Catalog»);
Книга.ActiveConnection = Соединение;

// Создание COM-объекта для работы со структурой данных на листе
Таблица = Новый COMОбъект(«ADOX.Table»);
Таблица.Name = «Лист1»;
Таблица.Columns.Append(«Колонка1», 202);
Таблица.Columns.Append(«Колонка2», 7);
Таблица.Columns.Append(«Колонка3», 5);
Таблица.Columns.Append(«Колонка4», 5);

// Создание в книге листа с описанной структурой
Книга.Tables.Append(Таблица);
Таблица = Неопределено;
Книга = Неопределено;

В приведенном примере в методе

Таблица.Columns.Append(«Колонка1», 202);

во втором параметре указывается тип колонки. Параметр необязательный, вот некоторые значения типа колонки:

• 5 — adDouble;
• 6 — adCurrency;
• 7 — adDate;
• 11 — adBoolean;
• 202 — adVarWChar;
• 203 — adLongVarWChar.

Пример чтения:

// Создание COM-объекта для соединения
Соединение = Новый COMОбъект(«ADODB.Connection»);

// Установка строки соединения
Соединение.ConnectionString = «
|Provider=Microsoft.ACE.OLEDB.12.0;
|Data Source=»+ИмяФайла+«;
|Extended Properties=»»Excel 12.0 XML;HDR=YES»»;»;
Соединение.Open(); // Открытие соединения

// Создание COM-объекта для получения выборки
Выборка = Новый COMОбъект(«ADODB.Recordset»);
ТекстЗапроса = «SELECT * FROM [Лист1$]»;

// Выполнение запроса
Выборка.Open(ТекстЗапроса, Соединение);

// Обход результата выборки
Пока НЕ Выборка.EOF() Цикл
ЗначениеКолонки1 = Выборка.Fields.Item(«Колонка1»).Value; // Обращение по имени колонки
ЗначениеКолонки2 = Выборка.Fields.Item(0).Value; // Обращение по индексу колонки
Выборка.MoveNext();
КонецЦикла;

Выборка.Close();
Выборка = Неопределено;
Соединение.Close();
Соединение = Неопределено;

В строке соединения параметр HDR определяет как будет восприниматься первая строка на листе. Возможны варианты:

• YES — первая строка воспринимается как названия колонок. К значениям можно обращаться по имени и по индексу колонки.
• NO — первая строка воспринимается как данные. К значениям можно обращаться только по индексу колонки.

В приведенных примерах рассмотрено лишь несколько объектов ADO. Объектная модель ADO состоит из следующих объектов:

• Connection;
• Command;
• Recordset;
• Record;
• Fields;
• Stream;
• Errors;
• Parameters;
• Properties.

Выгрузка без программирования

Для сохранения данных из 1С в Excel не всегда целесообразно прибегать к программированию. Если в режиме Предприятия пользователь может отобразить требуемые для выгрузки данные, то, их возможно сохранить в Excel без программирования.

Для сохранения табличного документа (например, результата отчета) можно вызвать команду Сохранить или Сохранить как… главного меню.

В открывшемся окне требуется выбрать каталог, имя и формат сохраняемого файла.

Для сохранения данных динамических списков (например, списка номенклатуры) необходимо:

1. Вывести данные в табличный документ при помощи команды Еще ⇒ Вывести список…;
2. Сохранить табличный документ в требуемый формат.

Сохранение табличной части в ексель программно.

Я

   kasazanov

01.08.13 — 14:26

   Капитан О

1 — 01.08.13 — 14:27

точный синтаксис не подскажу, но каждая инструкция должная завершаться символом «;»

   kasazanov

2 — 01.08.13 — 14:28

(1) и правда кэп

   Широкий

3 — 01.08.13 — 14:29

(1) +1

   kasazanov

4 — 01.08.13 — 15:06

Ну хоть примерно.

   Has

5 — 01.08.13 — 15:33

   kasazanov

6 — 01.08.13 — 15:51

   kasazanov

7 — 01.08.13 — 15:54

Почему то даже пустой файл не создается

   Капитан О

8 — 01.08.13 — 15:59

(7) всё правильно, записи в файл нет, значит, файл не создаётся

   Капитан О

9 — 01.08.13 — 16:00

(6) предлагаю вывести что-нибудь как-нибудь в ТабДок и записать его

   kasazanov

10 — 01.08.13 — 16:56

   Капитан О

11 — 01.08.13 — 16:56

(10) ты не поверишь..

   kasazanov

12 — 01.08.13 — 17:00

   Капитан О

13 — 01.08.13 — 17:01

(12) <ИмяФайла>, <ТипФайлаТаблицы>

   kasazanov

14 — 01.08.13 — 17:04

А по подробнее нельзя?

   Капитан О

15 — 01.08.13 — 17:06

(14) ты ж откуда скопипастил? попобней, чем там, вряд ли выйдет

   kasazanov

16 — 01.08.13 — 17:07

   hhhh

17 — 01.08.13 — 17:11

(16) из типовой не судьба выбрать? Например, возьми клиент-банк, там файл выбирается.

   sunson

18 — 01.08.13 — 17:16

скрести первый кусок кода со вторым и будет тебе щастье

   Капитан О

19 — 01.08.13 — 17:19

(18) будет только до тех пор, пока он не попытается открыть этот ексельный документ

   Капитан О

20 — 01.08.13 — 17:19

(19) а или вру

   Infsams654

21 — 01.08.13 — 17:24

   kasazanov

22 — 01.08.13 — 17:25

(19) (20) сохраняется красиво но только в жестко заданную папку.

   Капитан О

23 — 01.08.13 — 17:31

(22) плавно возвращаемся в (6)

   kasazanov

24 — 01.08.13 — 17:44

   Капитан О

25 — 01.08.13 — 17:46

(24) рассказать? ты дважды просишь юзера сохранить файл

   kasazanov

26 — 01.08.13 — 17:46

Где это? в каком фрагменте кода?

   Капитан О

27 — 01.08.13 — 17:46

+(25) ну и дважды интерактивно пытаешься это сделать

   kasazanov

28 — 01.08.13 — 17:47

А, нашел.

   kasazanov

29 — 01.08.13 — 17:47

О чудо! Оно работает!

   Капитан О

30 — 01.08.13 — 17:48

   Капитан О

31 — 01.08.13 — 17:48

а ещё предупреждение имеется у платформы

   kasazanov

32 — 01.08.13 — 17:49

(30) а как тут лучше сделать?

   kasazanov

33 — 01.08.13 — 17:49

   Капитан О

34 — 01.08.13 — 17:50

(32) запросом сразу вынуть только нужное

   Капитан О

35 — 01.08.13 — 17:50

+(34) не ориентируясь на наименование

   kasazanov

36 — 01.08.13 — 17:51

Складывать и умножать внутри запроса?

   sunson

37 — 01.08.13 — 17:51

да и расчет срока оплаты тоже можно в запрос засунуть

   sunson

38 — 01.08.13 — 17:51

и пустых контрагентов исключить из выборки, кстати почему они пустые?

   Капитан О

39 — 01.08.13 — 17:51

(37) согласен. сейчас он будет даты с числами складывать. посмотрим..

   sunson

40 — 01.08.13 — 17:52

и вообще вставить в цикл ЗаполнитьЗначенияСвойств()

   kasazanov

41 — 01.08.13 — 17:53

пофиг пускай так будет, надоели эти буквы уже О_о

   sunson

42 — 01.08.13 — 17:53

а при установке даты начала и даты окончания навеное следует применить функции НачалоДня() и КонецДня()

   sunson

43 — 01.08.13 — 17:54

(41) вы не программист?

   kasazanov

44 — 01.08.13 — 17:54

А запросом как то можно вытащить внутренний индефикатор объекта?

   kasazanov

45 — 01.08.13 — 17:55

(43) начинающий

   kasazanov

46 — 01.08.13 — 17:55

+(44) идентификатор

(44) на зачем? иногда можно

Для удобства использования я создам процедуру в общем глобальном модуле.

Для ее вызова нам необходимо знать только название табличного документа, т.е. имя элемета.

Процедура имеет 3 параметра:

ИмяФайла — строка, содержит имя файла. Имя можно поменять в окне сохранения.

ОткрытьФайл — булево, если Истина то будет открывать автоматически сохраненный документ.

ИмяТабДок — сам табличный документ.

Процедура СохраненитьТабличныйДокументВExcel (ИмяФайла, ОткрытьФайл, ИмяТабДок) Экспорт
  ИмяФайла = ИмяФайла + ".xls";
  ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
  ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайла;
  ДиалогОткрытияФайла.Каталог = ПутьКрабочемуСтолу();
  ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft Excel (*.xls)|*.xls|Все файлы (*.*)|*.*";
  ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 
  Если ДиалогОткрытияФайла.Выбрать() тогда
    ИмяТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLS);
    Если ОткрытьФайл = истина тогда
      ДокExcel = ПолучитьCOMОбъект("", "Excel.Application");
      ДокExcel.Workbooks.Open(ДиалогОткрытияФайла.ПолноеИмяФайла);
      ДокExcel.Visible = 1;
    КонецЕсли;
  КонецЕсли;
КонецПроцедуры

Пример:

ТабДок = Новый ТабличныйДокумент;

// формируем документ
ТабДок.Показать();

// сохраним в файл Отчет.xls не открывая его
СохраненитьТабличныйДокументВExcel ("Отчет", Ложь, ТабДок);

Описание

Создали новый диалог (окно) сохранения

  ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

Указали имя

  ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайла;

Указали путь, я использую функцию (ссылка на описание)

  ДиалогОткрытияФайла.Каталог = ПутьКрабочемуСтолу();

Создаем фильтр расширений

  ДиалогОткрытияФайла.Фильтр = "Файлы Microsoft Excel (*.xls)|*.xls|Все файлы (*.*)|*.*";
  ДиалогОткрытияФайла.МножественныйВыбор = Ложь;

Если выбрали путь сохраняем

  Если ДиалогОткрытияФайла.Выбрать() тогда
    ИмяТабДок.Записать(ДиалогОткрытияФайла.ПолноеИмяФайла,ТипФайлаТабличногоДокумента.XLS);

Открываем файл если передано истина

    Если ОткрытьФайл = истина тогда
      ДокExcel = ПолучитьCOMОбъект("", "Excel.Application");
      ДокExcel.Workbooks.Open(ДиалогОткрытияФайла.ПолноеИмяФайла);
      ДокExcel.Visible = 1;
    КонецЕсли;
  КонецЕсли;
КонецПроцедуры

Сохранить табличный документ в pdf, xlsx, docx, txt, html файл

Пример процедуры

&НаСервере
Процедура СохранитьВPDFНаСервере()
	ТабДок = Новый ТабличныйДокумент;
	Макет = Обработки.ТабличныйДокументСохранитьВPDF.ПолучитьМакет("Макет");
	ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
	ТабДок.Вывести(ОбластьМакета);
	
	МестоположениеФайла  = "G:ProverkaZapisiТест.pdf";
	ТабДок.Записать(МестоположениеФайла , ТипФайлаТабличногоДокумента.PDF);
	
	//Запись в Excel
	//МестоположениеФайла  = "G:ProverkaZapisiТест.XLSX";
	//ТабДок.Записать(МестоположениеФайла , ТипФайлаТабличногоДокумента.XLSX);

	//Запись в Word
	//МестоположениеФайла  = "G:ProverkaZapisiТест.docx";
	//ТабДок.Записать(МестоположениеФайла , ТипФайлаТабличногоДокумента.DOCX);
	
	//Прочие форматы
	//ТипФайлаТабличногоДокумента поддерживает множество форматов
	//html5, mxl, txt, ods, можете поэксперементировать с различными форматами

	Сообщить("Файл успешно сохранен"); 
КонецПроцедуры

Обратите внимание, если возникла ошибка (нет доступа для записи в папку, при этом с правами у данного пользователя windows все в порядке) при выполнении строки с кодом «ТабДок.Записать ()». Выполните данную строку кода «&НаКлиенте».

Перед запуском обработки убедитесь, что на вашем компьютере существует директория «G:ProverkaZapisiТест.pdf»

Связанные статьи