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

(0) ПРОЧЕЕ

Экспорт пакета отображаемых документов. Несколько табличных документов «1С:Предприятия» можно сохранить на разных листах результирующего документа, имеющего формат табличного процессора (XLS, XLSX, ODT). Эта возможность позволит, например, сохранять отчет, содержащий несколько разделов, в формате Microsoft Excel.

(1) +1

Реализована возможность экспорта пакета отображаемых документов в форматы XLS (Microsoft Excel 97-2003), Microsoft Office OpenXML (Microsoft Excel 2007 и старше) и ODT (OpenDocument). При этом реализована возможность сохранения каждого табличного документа пакета на отдельном листе результирующего документа.

Реализовано свойство ЭлементПакетаОтображаемыхДокументов.Наименование, которое используется для указания имени листа.

Для объекта ПакетОтображаемыхДокументов реализованы методы Записать() и НачатьЗапись().

(2)+1

https://its.1c.ru/db/metod8dev#content:5792:hdoc:_top:пакетотображаемыхдокументов

Особенности пакетной печати табличных документов

Режим пакетной печати предназначен для печати нескольких табличных документов. Для печати используются объекты встроенного языка: ПакетОтображаемыхДокументов, ЭлементыПакетаОтображаемыхДокументов, ЭлементПакетаОтображаемыхДокументов.

ПакетОтображаемыхДокументов – это собственно сам пакет, который содержит документы и настройки печати. У него есть свойство Состав, представляющее собой объект ЭлементыПакетаОтображаемыхДокументов – коллекцию объектов  ЭлементПакетаОтображаемыхДокументов.

ЭлементПакетаОтображаемыхДокументов – объект, который содержит либо адрес временного хранилища, в котором расположен табличный документ, либо объект ПакетОтображаемыхДокументов, обозначающий вложенный пакет документов.

Настройки печати устанавливаются для всего пакета, индивидуальные настройки печати документов игнорируются. Доступны настройки КоличествоЭкземпляров, РазборПоКопиям, ИмяПринтера, ДвусторонняяПечать, ТочностьПечати, Вывод.

Чтобы установить индивидуальные параметры печати для конкретного документа, следует добавить вложенный пакет, поместить документ в него и установить параметры печати для этого вложенного пакета.

Например, необходимо распечатать 3 табличных документа, причем два из них по 5 экземпляров каждый, а третий — в 2 экземплярах:

Копировать в буфер обмена

// Создаем пакет

Пакет = Новый ПакетОтображаемыхДокументов;

// Документы, находящиеся в этом пакете, печатаются в 5 экземплярах

Пакет.КоличествоЭкземпляров = 5;

// Добавляем документы в пакет

ЭлементПакета1 = Пакет.Состав.Добавить();

ЭлементПакета1.Данные = ПоместитьВоВременноеХранилище(ТабличныйДокумент1, УникальныйИдентификатор);

ЭлементПакета2 = Пакет.Состав.Добавить();

ЭлементПакета2.Данные = ПоместитьВоВременноеХранилище(ТабличныйДокумент2, УникальныйИдентификатор);

// Добавляем вложенный пакет для третьего документа

ВложенныйПакет = Новый ПакетОтображаемыхДокументов;

ЭлементПакета3 = Пакет.Состав.Добавить();

ЭлементПакета3.Данные = ВложенныйПакет;

// Документ во вложенном пакете печатается в 2 экземплярах

ВложенныйПакет.КоличествоЭкземпляров = 2;

// Добавляем документ во вложенный пакет

ЭлементВложенногоПакета1 = ВложенныйПакет.Состав.Добавить();

ЭлементВложенногоПакета1.Данные = ПоместитьВоВременноеХранилище(ТабличныйДокумент3, УникальныйИдентификатор);

// Печатаем пакет

Пакет.Напечатать();

Для вложенного пакета можно установить те же параметры печати, что и для всего пакета, при этом если какие-то параметры не установлены, то они определяются из параметров родительского пакета.

Пакет позволяет также экспортировать табличные документы в один PDF файл. Для этого предназначен метод пакета ЗаписатьФайлДляПечати(), которому передается полное имя файла.

shuhard, спасибо огромное, выручил!!!

кому надо вот рабочий кусок кода, для сохранения в эксель

Пакет = Новый ПакетОтображаемыхДокументов;

    Пакет.КоличествоЭкземпляров = 2;

    ЭлементПакета1 = Пакет.Состав.Добавить();

    ЭлементПакета1.Данные = ПоместитьВоВременноеХранилище(ТабДокРеестр);

    ЭлементПакета2 = Пакет.Состав.Добавить();

    ЭлементПакета2.Данные = ПоместитьВоВременноеХранилище(ТабДок);

    
    Пакет.Записать(СокрЛП(ИмяФайла)+».xls»,ТипФайлаПакетаОтображаемыхДокументов.XLS);

1С 8.3.5 (32-битный). Excel 2010 (64-битный).
Создаю обработку с кодом:
&НаСервере

Процедура ТестExcel(ПутьКФайлу)
excel = Новый COMОбъект("Excel.Application");
excel.WorkBooks.Open(ПутьКФайлу);
КонецПроцедуры

Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Excel): Приложению Microsoft Excel не удается получить доступ к файлу «c:Excel.xls»…

(5) у тебя код &наСервере
а файл

>>Локально.
>>c:Excel.xls

Дальше объяснять?

ЗЫ и да, я прочитал тему по ссылке

(38) написать не проблема — проверить негде )

а текстовый файл без COMа прочитает?

Полный код:

&НаСервере

Функция СформироватьОтчет()

(41) а если паузу сделать перед


excel.WorkBooks.Open(ПутьКФайлуотчета);

?

(38) я уже написал, у меня все работает.
А тебе я советую читать гугл. У тебя 100 пудов 32 разрядный ексель и 64 разрядный 1с или наоборот, так что у меня все отработало без проблем, и это не значит что проблемы нет, но беглый гуглинг кинул меня на сайт где описан подобный метод:

To resolve this issue follow these steps
1. Login to the server as a administrator.
2. Go to «Start» -> «Run» and enter «taskmgr»
3. Go to the process tab in task manager and check «Show Processes from all users»
4. If there are any «Excel.exe» entries on the list, right click on the entry and select «End Process»
5. Close task manager.
6. Go to «Start» -> «Run» and enter «services.msc»
7. Stop the service automating Excel if it is running.
8. Go to «Start» -> «Run» and enter «dcomcnfg»
9. This will bring up the component services window, expand out «Console Root» -> «Computers» -> «DCOM Config»
10. Find «Microsoft Excel Application» in the list of components.
11. Right click on the entry and select «Properties»
12. Go to the «Identity» tab on the properties dialog.
13. Select «The interactive user.»
14. Click the «OK» button.
15. Switch to the services console
16. Start the service automating Excel
17. Test you application again.

+(44)так же предлагаю попробовать создать папки

C:WindowsSystem32configsystemprofileDesktop

Хз зачем, может пользователь из службы excel их исползует… не разбирался

Алгоритм прост:

• * открываем эксель,
• * создаём новый файл,
• * перебираем в цикле табличные документы:
  • — каждый документ сохраняем в эксель штатными средствами 1С,
  • — открываем файл экселем и
  • — копи-пастим оттуда первый (единственный) лист в наш сводный файл.
• * сохраняемся, закрываем эксель

Разрабатывалось и тестировалось в условиях MS Office 2007 Standart. Под старые офисы можно и самим допилить. 

В приложенном файле нижеприведённый код и пример его использования.

Исходный код:

// СохранитьМногостраничныйФайл() Создаёт XLSX-файл с несколькими листами
//
// Параметры
//      ИмяФайла            — Имя выходного файла
//      СоответствиеЛистов  —
//                          (1) Соответствие:
//          Ключ            — Строка — Имя листа
//          Значение        — Табличный документ — Содержимое листа
//                          (2) Таблица значений с колонками Ключ и Значение.
//                              Может понадобиться, если требуется строгий порядок листов.Процедура СохранитьМногостраничныйФайл(ИмяФайла, СоответствиеЛистов) Экспорт Х = ПолучитьCOMОбъект(«», «Excel.Application»);
    Х.SheetsInNewWorkbook = 1; // в новой книге создавать только 1 лист
    Книга = Х.Workbooks.Add(); Первый = Истина; // у нас уже есть один лист, надо использовать его
    ПрошлыйЛист = Неопределено; 

    Для Каждого 

мЛист Из СоответствиеЛистов Цикл // Сохраняем табличный документ во временный файл
        ИмяВременногоФайла = ПолучитьИмяВременногоФайла(«xlsx»);
        ТабДок = мЛист.Значение;
        ТабДок.Записать(ИмяВременногоФайла, ТипФайлаТабличногоДокумента.XLSX); Х.CutCopyMode = False; // Сбрасываем старое копирование 

        // Копируем первый (единственный) лист временного файла

мКнига = Х.Workbooks.Open(ИмяВременногоФайла);
        мКнига.Worksheets(1).Cells.Select();
        Х.Selection.Copy(); 

        Если 

Первый Тогда // Используем созданный автоматически
            НовыйЛист = Книга.Worksheets(1);
            Первый = Ложь;
        Иначе // добавляем новый
            НовыйЛист = Книга.Worksheets.Add(, ПрошлыйЛист); // Добавляем новый лист после прошлого
        КонецЕсли; НовыйЛист.Name = мЛист.Ключ; // Задаём имя
        НовыйЛист.Paste(); // Вставляем содержимое 

        // Сбрасываем выделение с добавленного листа

НовыйЛист.Activate();
        Х.Range(«A1»).Select(); ПрошлыйЛист = НовыйЛист;

    КонецЦикла; 

// Для Каждого мЛист Из СоответствиеЛистов Цикл Х.DisplayAlerts = False; // Отключаем вывод предупреждений типа «Заменить файл?»
    Книга.Worksheets(1).Activate(); // Активируем 1 лист из списка
    Книга.SaveAs(ИмяФайла); Х.Quit();Х = Неопределено; 

КонецПроцедуры 

// СохранитьМногостраничныйФайл()