Печать в MS Excel.

19.08.11

Интеграция - Загрузка и выгрузка в Excel

Иногда требуется вывести печатную форму в эксель. Можно сделать типовыми средствами: файл - сохранить копию (если у вас активизирована  доп. настройка - редактирование таблиц ) - выбрать нужное расширение и сохранить файл.

Скачать файлы

Наименование Файл Версия Размер
Накладная - MS Excel.epf
.epf 11,41Kb
150
.epf 11,41Kb 150 Скачать

Описанная ниже функция позволяет, печатную форму, формируемую в предприятии 1с с расширением .mxl  - открыть в MS Excel. Во вложение обработка с примером. Обработка подключается как внешняя печатная форма к документу Реализация товаров и услуг (Накладная). При выборе данного типа печати программа откроет MS Excel (если он имеется) и вставит в него печатную форму.


Функция Печать() Экспорт

    
КоличествоЭкземпляров=1;
   
 НаПринтер=Ложь;
    
ИмяМакета="Накладная";
    
ТабДокумент ПечатьДокумента();

    
ТаблицаГруппировок = Неопределено;
    
ФорматСохранения "XLS";
    
ТабличныйДокумент ПечатьДокумента();
 
  КаталогТемп КаталогВременныхФайлов();
      
ТабличныйДокумент.Записать(КаталогТемп "Книга_v8." ФорматСохранения ТипФайлаТабличногоДокумента[ФорматСохранения]);
    Попытка
        
ExcelПодключение =  Новый COMОбъект("Excel.Application");
    Исключение
        
Сообщить("Невозможно создать объект . Обработка прервана.");
        
ExcelПодключение = Неопределено;
        
//Возврат;
    
КонецПопытки;

    
ExcelПодключение.SheetsInNewWorkbook 1;
    
ExcelПодключение.RollZoom = False;

    
ExcelПодключение.Workbooks.Add(КаталогТемп "Книга_v8." ФорматСохранения);

    
ExcelПодключение.ActiveWindow.TabRatio 0.463;
    
ExcelПодключение.ActiveWindow.ActiveSheet.Name "Лист1";

    
Sheet1 ExcelПодключение.ActiveWindow.ActiveSheet;
    
Sheet1.Outline.SummaryRow 0;
    
Sheet1.Outline.SummaryColumn = -4152;
    
//Устанавливаем автовысоту строк.
    
Sheet1.Cells.Select();
    
ExcelПодключение.Application.Selection.Rows.UseStandardHeight = True;
    
ExcelПодключение.Application.Selection.Rows.AutoFit();
    
Sheet1.Range("A1").Select();
    
//
    
УдалитьФайлы(КаталогТемп "Книга_v8." ФорматСохранения);

    
ExcelПодключение.Visible 1;

    
ExcelПодключение.ActiveWindow.WindowState 2;
КонецФункции;

Разукрашку брал тут: //infostart.ru/public/19856/

См. также

SALE! 10%

Загрузка номенклатуры из Excel в УТ11, КА 2, ERP 2, Розница 2. Дополнительные реквизиты и сведения, характеристики, картинки, цены, остатки

Загрузка и выгрузка в Excel Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Прайсы Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Загрузка из файлов xls, xlsx, ods, csv, mxl в УТ11, КА 2, ERP 2, Розница 2. Задействованы все возможности конфигурации - заполнение реквизитов номенклатуры, дополнительных реквизитов и сведений, характеристики, доп.реквизиты и сведения характеристик. Дополнительные обработки для расширения возможностей.

10560 9504 руб.

29.10.2014    210224    621    524    

439

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 11.12.2023, версия 9.5 - 9.9)

13200 руб.

20.11.2015    150744    365    375    

501

Загрузка данных отчета о реализации товаров из Excel файла СберМегаМаркет

Загрузка и выгрузка в Excel Маркетплейсы Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Загрузка данных отчета о реализации товаров из сервиса СберМегаМаркет для конфигурации: Бухгалтерия предприятия, редакция 3.0; Управление торговлей, редакция 11 и Управление нашей фирмой, редакция 3.0 в документ "Отчет комиссионера (агента) о продажах".

4800 руб.

07.06.2022    15087    79    0    

60

SALE! 30%

Распознавание и загрузка сканов в 1С "одним нажатием": УПД, ТОРГ-12, накладные, счета, номенклатура, заказы и т.д.

Загрузка и выгрузка в Excel Документооборот и делопроизводство (СЭД) Учет документов Распознавание документов и образов Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная программа для распознавания ЛЮБЫХ СКАНОВ ИЛИ ФОТО ТОВАРНЫХ ДОКУМЕНТОВ в 1С. Не требует указания параметров и предварительной настройки. Просто выбираете файл (PDF, JPG, DOC, XLS, HTML и т.д.) выбираете документ 1С и нажимаете кнопку "Распознать и загрузить".

6000 5520 руб.

04.06.2019    101405    296    173    

312

SALE! 20%

Загрузка документов и номенклатуры из Excel в 1С "одним нажатием": УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы

Загрузка и выгрузка в Excel Оптовая торговля Платформа 1С v8.3 Управляемые формы Платформа 1C v8.2 Конфигурации 1cv8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл Excel, документ 1С и нажимаете кнопку "Загрузить". Обработка сама находит таблицу в файле Excel, необходимые для загрузки данные в ней (номенклатура, количество, НДС, цена, сумма) и загружает ее в 1С. Вместе с номенклатурой может найти контрагента, номер и дату документа, штрих-коды, серии ГТД, страну и т.д. Распознает документы ЛЮБОЙ ФОРМЫ (УПД, ТОРГ-12, заказ, отчет комиссионера и т.д.). Не требует MS Office. Для поиска таблиц используются методы эвристического поиска. Загружает только то, что нужно, т.е. пропускает повторы шапки таблицы, заголовки, промежуточные итоги, подписи и т.д. Содержит модуль работы с электронной почтой и api-загрузчик отчетов о продажах маркетплейсов.

5000 4000 руб.

09.11.2016    214958    923    886    

939

Универсальная загрузка остатков и цен поставщиков в 1С (УТ 11, КА 2, ERP 2.0) из файлов Excel, CSV, XML (YML и CML)

Прайсы Оптовая торговля Розничная торговля Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Загрузка и выгрузка в Excel Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Управленческий учет Платные (руб)

Обработка позволяет легко настроить загрузку прайс-листов и остатков поставщиков. Форматы файлов задаются для каждого поставщика отдельно. В настройках предусмотрена возможность гибкой обработки входящих данных (убрать лишние символы, пересчитать цены в другую валюту, сделать произвольную наценку и т.д.).

12000 руб.

23.01.2017    58869    59    48    

68
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
0. IDija 154 19.08.11 15:29 Сейчас в теме
Иногда требуется вывести печатную форму в эксель. Можно сделать типовыми средствами: файл - сохранить копию (если у вас активизирована доп. настройка - редактирование таблиц ) - выбрать нужное расширение и сохранить файл.

Перейти к публикации

1. Serj1C 483 19.08.11 15:29 Сейчас в теме
почему бы просто не записать в формате XLS, а потом выполнить
ЗапуститьПриложение(КаталогТемп + "Книга_v8." + ФорматСохранения) ?
2. IDija 154 19.08.11 15:46 Сейчас в теме
(1) Я уверен, что найдутся еще способы реализации этой задачи...
3. mr zafod 23 20.08.11 10:14 Сейчас в теме
Извините конечно, что опять критикую, но ИЗУЧАЙТЕ 1С.

ТаблицаГруппировок = Неопределено; // Что это зачем?
    ФорматСохранения = "XLS"; // Зачем?
    ТабДокумент = ПечатьДокумента();
    ТабличныйДокумент = ТабДокумент; // Зачем еще один объект?

// Далее вообще комментировать нечего
    КаталогТемп = КаталогВременныхФайлов();
      ТабличныйДокумент.Записать(КаталогТемп + "Книга_v8." + ФорматСохранения , ТипФайлаТабличногоДокумента[ФорматСохранения]);
    Попытка
        ExcelПодключение =  Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Невозможно создать объект . Обработка прервана.");
        ExcelПодключение = Неопределено;
        //Возврат;
    КонецПопытки;
Показать


Решается просто


    ТабДокумент = ПечатьДокумента();
ИмяФайла = ПолучитьИмяВременногоФайла("xls");
    ТабДокумент.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.xls); // Точно не помню имя свойства "ТипФайлаТабличногоДокумента.xls" 
    Попытка
        ЗапуститьПриложение(ИмяФайла);
    Исключение
        Сообщить("Невозможно создать объект . Обработка прервана.");
    КонецПопытки;
Показать


Куча лишних действий и неоправданный расход ресурсов.
Извините, что без разукрашки.
mikhailovaew; ixijixi; IDija; +3 Ответить
4. IDija 154 22.08.11 09:27 Сейчас в теме
(3) Изучением 1С я и занят. Спасибо за поправку кода .....
Petrov81; +1 Ответить
5. oaizatulin@yahoo.com 10.09.11 03:33 Сейчас в теме
Спасибо, очень полезно.
6. IDija 154 10.09.11 07:41 Сейчас в теме
(5)рад, что пригодилось ;)
7. srtp 7 18.10.11 11:31 Сейчас в теме
8. IDija 154 18.10.11 11:56 Сейчас в теме
(7) не понятно, что имеете в виду ?
9. Lizi60 13.04.12 12:40 Сейчас в теме
Мне понравилась обработка. Спасибо автору.
Оставьте свое сообщение