РЕКЛАМА

На главную страницу

РЕКЛАМА




Чтобы разместить ссылку на свой сайт с этой страницы воспользуйтесь системой платных ссылок SAPE.


На главную 1с форева.ру
На страницу "Программисту \ Различные полезные функции, процедуры, куски кода для 1с".

Создание программно нового Excel(Эксель) файла в 1с.

Платформа: 8.2, 8.3
Формы: Обычные, Управляемые
Конфигурация: любая
Релиз: любой
Страница актуализирована: 06.02.2017


Создать Эксель файл в 1с.
Как создать эксель(Excel) файл в 1с? Просто приведу пример кода создания эксель файла в 1с. В нем есть всё необходимое. Открыть, сформировать строки, задать форматы, сохранить и закрыть.

// Формирование нового файла
Эксель = Новый COMОбъект("Excel.Application");
Книга = Эксель.WorkBooks.Add();
Эксель.ScreenUpdating = 0;
Эксель.Calculation = -4135;
Лист = Книга.WorkSheets(1);

// сформировать шапку выходного файла
Лист.Cells(1, 1).Value = "Поставщик: наименование"; Лист.Columns(1).ColumnWidth = 18;
Лист.Cells(1, 2).Value = "Поставщик: ИНН/КПП"; Лист.Columns(2).ColumnWidth = 10;
Лист.Cells(1, 3).Value = "Поставщик: адрес"; Лист.Columns(3).ColumnWidth = 45;
Лист.Cells(1, 4).Value = "Грузополучатель: наименование"; Лист.Columns(4).ColumnWidth = 18;
Лист.Cells(1, 5).Value = "Грузополучатель: ИНН/КПП"; Лист.Columns(5).ColumnWidth = 9;
Лист.Cells(1, 6).Value = "Грузополучатель: адрес";    Лист.Columns(6).ColumnWidth = 45;
Лист.Cells(1, 7).Value = "Код вида продукции"; Лист.Columns(7).ColumnWidth = 8;
Лист.Cells(1, 8).Value = "Наименование вида продукции"; Лист.Columns(8).ColumnWidth = 15;
Лист.Cells(1, 9).Value = "Номенклатура"; Лист.Columns(9).ColumnWidth = 45;
Лист.Cells(1,10).Value = "Период"; Лист.Columns(10).ColumnWidth = 8;
Лист.Cells(1,11).Value = "Объем"; Лист.Columns(11).ColumnWidth = 8;
Лист.Cells(1,12).Value = "Количество"; Лист.Columns(12).ColumnWidth = 8;

// записать одну строку
// Цикл по НомерСтроки
Лист.Cells(НомерСтроки, 1).Value = _ПоставщикНаименование;
Лист.Cells(НомерСтроки, 2).Value = _ПоставщикИННКПП;
Лист.Cells(НомерСтроки, 3).Value = _ПоставщикАдрес;
Лист.Cells(НомерСтроки, 4).Value = _ГрузополучательНаименование;
Лист.Cells(НомерСтроки, 5).Value = _ГрузополучательИННКПП;
Лист.Cells(НомерСтроки, 6).Value = _ГрузополучательАдрес;
Лист.Cells(НомерСтроки, 7).Value = _ВидПродукции;
Лист.Cells(НомерСтроки, 8).Value = _ВидПРодукцииНаименование;
Лист.Cells(НомерСтроки, 9).Value = _Номенклатура;
Лист.Cells(НомерСтроки,10).Value = Период;
// КонецЦикла

// прописать форматы ячеек
Лист.Range(Лист.Cells(1, 1), Лист.Cells(1, 12)).Font.Bold = 1;                        //Жирный шрифт в шапке
Лист.Range(Лист.Cells(1, 1), Лист.Cells(НомерСтроки, 12)).WrapText = Истина;         //Перенос текста по словам
Лист.Range(Лист.Cells(1, 1), Лист.Cells(НомерСтроки, 12)).Borders.Linestyle = 1;     //Установка границ ячеек
Лист.Range(Лист.Cells(1, 1), Лист.Cells(НомерСтроки, 12)).Font.Size = 8;             //Размер шрифта
Лист.Range(Лист.Cells(1, 1), Лист.Cells(НомерСтроки, 12)).VerticalAlignment = 2; //Центрирование по вертикали
Лист.Range(Лист.Cells(1, 1), Лист.Cells(НомерСтроки, 12)).HorizontalAlignment = 3; //Центрирование по горизонтали

// Сохранить итоговый файл
Эксель.DisplayAlerts=0;
Книга.SaveAs(ИмяИтоговогоФайла,-4143);
Книга.Close();
Эксель.DisplayAlerts=1;
Эксель.Quit();



Copyright (c) by iKai, 2016