Вопрос по ComExcelDocument_RU

[Protey]

Можно из аксапты изменять шрифт, делать его жирным или курсивом, центрировать по ячейке?

[ice]

можно, но нужно доработать класс

[LEX]

Можно!
вот пример метода для изменения шрифта:

void setFontSize(MSOfficeBookMark_RU _bookMark, int _fontNumber)
{
    COM     comRange;
    COM     comFont;
    ;

    comRange = this.findRange(_bookMark);
    if (comRange)
    {
        comFont = comRange.Font();
        comFont.Size(_fontNumber);
    }
}

[Ashir]

public void setFontFormatInRange(   MSOfficeBookMark_RU _bookMark,
                                    int                 _workSheet  = 1,
                                    boolean             _Bold       = false,
                                    boolean             _Italic     = false,
                                    boolean             _Underline  = false )
{
    #define.xlUnderlineStyleSingle(2)
    #define.xlUnderlineStyleNone(-4142)
    COM Rng, Font;

    Rng  = this.findRange(_bookMark, _workSheet);
    Font = Rng.font();
    Font.Bold(_Bold);
    Font.Italic(_Italic);
    if (_Underline)
        Font.Underline(#xlUnderlineStyleSingle);
    else
        Font.Underline(#xlUnderlineStyleNone);
}

[Protey]

А выравнивание в ячейке (слева, справа, в центре) никак?

[LEX]

void setHorAlignment(MSOfficeBookMark_RU _bookMark, int    _hAlign)
{
    COM     comRange;
    ;

    comRange = this.findRange(_bookMark);
    if (comRange)
    {
        comRange.horizontalAlignment(_hAlign);
    }
}

[Gustav]

Цитата:

Сообщение от Protey

А выравнивание в ячейке (слева, справа, в центре) никак?

Найдите у себя на компе поиском хелп-файл vbaxl*.chm (вместо звездочки будет конкретная версия: 9 или 10 или 11). В этом файле найдите поиском и почитайте про свойства: VerticalAlignment и HorizontalAlignment. Далее воплотите их в X++ (по аналогии с тем, как вам уже рассказали про фонты).

P.S. О! Вам уже и выравнивание воплотили. Но почитать хелп все равно рекомендую для творческого осмысления.

[Protey]

Всем спасибо, а еще такой вопрос, такого я не нашел, можно сделать внешние границы ячейки?

[Gustav]

Цитата:

Сообщение от Protey

а еще такой вопрос, такого я не нашел, можно сделать внешние границы ячейки?

А где вы ищите? В хелп-файле, о котором я говорил, ищите слово Border и всё, что с ним связано.
Сделайте операцию, которую хотите, в Excel'е вручную и запишите макрорекордером. Посмотрите как это выглядит на VBA и всё будет ясно, какие ключевые слова нужно будет искать.

99.9 % того, что вы можете сделать в Excel вручную, вы можете сделать и из Аксапты программно.

Много и хорошо об Excel для программистов

[kashperuk]

Более того, большую часть из того, что вам может понадобиться, кто - нибудь да уже написал.
Соответственно, вы можете это найти на форуме

Как вставить значение из Аксапты в Excel

[Ashir]

Цитата:

можно сделать внешние границы ячейки

void setRangeBorder(COM _comRange, int _type  = 1)
{
    Com com;
    ;

    com = _comRange.Borders();
    com.LineStyle(_type);
}

[Gustav]

А еще важен здравый баланс затрачиваемых усилий. Жирную левую границу ячейки, конечно, можно нарисовать и из Аксапты (как и из Дельфи, например). А можно и из Аксапты заставить Дельфи нарисовать границу ячейки в Excel

Всегда стоит подумать, не существенно ли проще, например, заготовить вручную в Excel соответствующий шаблон с крутым форматированием, а потом многократно его использовать, выводя в него из Аксапты только лишь данные. Можно даже использовать исходный код VBA, записанный макрорекордером в родном Excel и вызываемый из Аксапты для исполнения в Excel же, т.е. без "перевода" кода с языка VBA на язык X++.

Позволю себе немножко поразглагольствовать на любимую тему. Форматирование таблицы Excel из Аксапты - это как бы задача второго эшелона, а первоочередное - собственно вывод данных. Т.е. когда данные отчета находятся уже в Excel, почему бы не поручить самому Excel по-привычному "по-родному" с ними разобраться. Причем, вряд ли Excel'ю потребуются еще какие-нибудь данные от Аксапты во время форматирования (чего не скажешь об Аксапте, которую для комфортной работы разработчика необходимо, например, "набить" макросами эксельных констант). В теме "Axapta программирует Excel на VBA" у меня была такая цитата:

Цитата:

Сообщение от Gustav

...форматирование выводимого списка используется исключительно для того, чтобы продемонстрировать ЧТО-ЛИБО, выполняемое на коде VBA (а не классом Axapta). С таким же успехом в рамках примера можно было бы построить, например, в Excel развесистую сводную таблицу. Средствами самого же Excel, причем дальнейший перевод VBA-кода в код X++ не требуется

Изящно подобный подход демонстрирует AndyD здесь: Исследование скорости экспорта данных из Axapta в Excel (коллективный эксперимент). Т.е. я-то там (в "Axapta...на VBA") по неопытности тогдашней навернул какие-то таблицы для хранения кода (мечтал о том, что разработчики будут обмениваться наработками в таком формате ), а AndyD взял целую процедуру и в один стринг ее поместил. Вот фрагмент его кода, который я имею в виду:

    s = strfmt( "sub OpenDemo()\n" +
                "    Workbooks.OpenText Filename:=\"%1\", Origin:=1251, StartRow:= 1, _\n" +
                "        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Tab:=True, _\n" +
                "        %2TrailingMinusNumbers:=True, _\n" +
                "        DecimalSeparator:=\",\", ThousandsSeparator:=\" \"\n" +
                "End Sub", #fileName, getFields());

Т.е. взята VBA-шная процедура, записанная в Excel макрорекордером, подчищена и вставлена стрингом в код X++. Затраты времени - минимальные. И фактически используются естественные инструменты той среды "обитания", где происходит выполнение задачи.

[belugin]

Известен ли народу способ копирования шаблонных областей, не портящий буфер обмена?

[AndyD]

Можно воспользоваться автозаполнением

Range.AutoFill(RangeDest, xlFillFormats);

xlFillFormats = 3

PS Только для связанных областей
Range("A1:C1") -> RangeDest("A1:C100")

[Gustav]

Цитата:

Сообщение от belugin

Известен ли народу способ копирования шаблонных областей, не портящий буфер обмена?

Если речь идёт именно о копировании с целью распространения формата, то можно еще попробовать использовать стили, созданные при помощи команды "Стиль" из меню "Формат" Excel.

В прилагаемом шаблоне Book5.xlt определен форматный стиль по имени "MyCoolStyle", включающий в себя голубую заливку ячейки, а также рамку, состоящую из трёх тонких границ (сверху, слева, снизу) и одной толстой справа. Стиль был определен вручную при помощи команды меню Excel "Format \ Style" (стили сохраняются в workbook'ах). Далее при создании отчета на базе шаблона Book5.xlt стиль можно применить к желаемой ячейке или диапазону ячеек:

static void Job_TestExcelStyle(Args _args)
{
    COM xlApp;      // Excel.Application
    COM wbks, wbk;  // Workbooks, Workbook
    COM rng;        // Range
    ;

    xlApp = new COM('Excel.Application');
    xlApp.Visible(true);

    wbks = xlApp.Workbooks();
    wbk  = wbks.Open(@'C:\Book5.xlt');

    rng  = xlApp.Range('B2:H20');
    rng.Style('MyCoolStyle'); 
    // и всё зальётся голубым с правыми толстыми границами :-)
}

Для демонстрации эффекта вручную (без Аксапты) можно открыть файл в архиве, выделить диапазон ячеек Excel и выполнить команду меню Формат \ Стиль \ выбрать Имя стиля: MyCoolStyle \ OK

[Protey]

Цитата:

Сообщение от Ashir

void setRangeBorder(COM _comRange, int _type  = 1)
{
    Com com;
    ;

    com = _comRange.Borders();
    com.LineStyle(_type);
}

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

[Roman777]

Вот так:

XLSrange        = this.findRange(_bookMark);

где _bookMark имеет формат ячеек (например "A1:C15")

[kashperuk]

Это COM

    COM rng;        // Range
//more lines go here ...
    rng  = xlApp.Range('B2:H20');
  //Вот это и есть этот самый _comRange

[Protey]

Цитата:

Сообщение от kashperuk

Это COM

    COM rng;        // Range
//more lines go here ...
    rng  = xlApp.Range('B2:H20');
  //Вот это и есть этот самый _comRange

у меня шаблон объявляется так
excelDocument = new ComExcelDocument_RU();
он не понимает такого, или я чета не понимаю

[kashperuk]

Скорее второе.

Напишите метод в классе ComExcelDocument_RU

void setRangeBorder(MSOfficeBookMark_RU bookMark, int _type  = 1, int _worksheet = 1)
{
    Com com;
    COM comRange;
    ;
    comRange = this.findRange(bookMark, _worksheet);
    com = comRange.Borders();
    com.LineStyle(_type);
}