1С: 1C.xls или работаем с Excel средствами 1С

О том как работать с Excel в 1С.
Пустой документ

Как видно из нашего примера, заполнять нам необходимо строки, начиная с номера 12, а столбцы с A по F. На этот раз не будем унифицировать наш процесс, а просто перейдем к коду:


Процедура Сформировать()
    Строка = 12;
    Колонки = 6; //A, B, C, D, E, F
    Файл = "Отчет.xls";
    ФайлРезультат = "Результат.xls";
    
    xls = СоздатьОбъект("Excel.Application");
    xls.Workbooks.Open(Файл);
    
    Лист = xls.Worksheets("Лист1"); //Имя рабочего листа в "Файл.xls"
    Для ы =1 По Колонки Цикл //Обводим каждую ячейку рамкой
        Лист.Cells(Строка, ы).Borders.Linestyle = 1;
    КонецЦикла;
    //Установим значения ячеек таблицы
    Лист.Range("A"+Строка).Value = "Один";
    Лист.Range("B"+Строка).Value = "Два";
    Лист.Range("C"+Строка).Value = "Три";
    Лист.Range("D"+Строка).Value = "4";    
    Лист.Range("E"+Строка).Value = "5";  
    Лист.Range("F"+Строка).Value = "6";   
    Строка = Строка + 1; 
    //Сделаем ячеку A13 с жирным текстом
    Лист.Range("A"+Строка).Value = "Жирный текст";
    Лист.Cells(Строка, 1).Font.Bold = 1;
    //Вставим в D13 формулу подсчета суммы по всем
    //значениям клонки D
    Лист.Cells(Строка, 4).FormulaLocal = "СУММ(D12:D"+(Строка-1)+")";
    
    xls.WorkBooks(1).SaveAs(ФайлРезультат);
    xls.WorkBooks(1).Close();
КонецПроцедуры

Важно: Для корректного отображения формулы используйте аттрибут FormulaLocal вместо Formula!

Вот пожалуй и все основные функции для работы с файлми Exel средствами 1С. По крайней мере их зачастую достаточно для формирования отчета.

Запись опубликована в рубрике с метками , , . Добавьте в закладки постоянную ссылку.