Excel, группировки: как программно изменить расположение итоговых данных?

[CDan]

Доброго времени суток, коллеги.

Как можно программно изменить расположение итоговых данных в группировках Excel?
Вручную это делается в Данные / Группа и структура / Настройка.
Можно ответ на VBA.

Спасибо.

[Gustav]

Ну так и запишите сами макрорекордером эту ручную команду - и будет вам ответ на VBA
Что-нибудь типа такого:

Sub Макрос1()
With ActiveSheet.Outline
.AutomaticStyles = False
.SummaryRow = xlBelow
.SummaryColumn = xlRight
End With
End Sub

нет?

[CDan]

Спасибо!

[Stainless]

А как этот код реализовать на Axapta

[polygris]

    COM     comWorkSheet, comRange;
    ;

    // Initializing XLSWorkSheet object
    comWorkSheet    = this.getWorkSheet(_workSheet);
    if (!comWorkSheet)
        this.throwError("@DIS6043");

    // Initializing XLSRange object
    comRange        = comWorkSheet.Range(_bookMark);
    if (!comRange)
        this.throwError("@SYS27391");

    // Group selection
    comRange.group();

[Gustav]

Цитата:

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

А как этот код реализовать на Axapta

Как-то так:

{
    ComExcelDocument_RU doc = new ComExcelDocument_RU();

    COM xlApp;
    COM wbook;
    COM activeSheet;
    COM outline;

    #define.xlAbove(0)
    #define.xlLeft(-4131)
    ;

    doc.NewFile();
    wbook = doc.getComDocument();
    xlApp = wbook.Parent();

    activeSheet = xlApp.ActiveSheet();
    outline = activeSheet.Outline();

    outline.AutomaticStyles( true );
    outline.SummaryRow( #xlAbove);
    outline.SummaryColumn( #xlLeft );
}

Эффект можно наблюдать, выбрав по меню Excel: Data \Group and Outline \Settings. В новой книге, созданной вручную, будут включены 1-й и 2-й чекбоксы и выключен 3-й. При выполнении кода всё будет наоборот (для этого я заменил xlBelow на xlAbove и xlRight на xlLeft).