Выгрузка данных в Excel и их группировка...

[NetBus]

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

PHP код:

Rows("7:12").Select
Selection.Rows.Group 


но средствами Axapta 3.0 sp4 реализовать не могу. Имеется ли у кого положительный опыт в это области?

[petr]

Джон, привет!!
А проблема в первой строке или во второй?

[NetBus]

во второй

[Roman777]

В классе ComExcelDocument_RU пишем такую функцию:

PHP код:

public void group(BookMark _bookMark, int _workSheet = 1)
{
   COM         XLSWorkSheet, XLSrange;
 ;

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

   // Initializing XLSRange object
   XLSrange        = this.findRange(_bookMark);
   if (!XLSrange)
       throw error("@SYS27391");

    // Group selection
    XLSrange.group();
} 


Вызываем так:

PHP код:

        excelDocument = new ComExcelDocument_RU();
        excelDocument.group("1:10"); // группируем строки с 1 по 10 


[Gustav]

Рискну предложить свой "интерфейсный" вариант

Фрагмент кода VBA

Rows("7:12").Select 
Selection.Rows.Group

можно записать более компактно как

Rows("7:12").Group

(т.е. "выделять" при помощи Select не обязательно)

Соответственно, компактное отображение в X++ примерно такое:

COM::createFromVariant( rows.Item('7:12') ).Group();

Проверить работоспособность можно, вставив эту последнюю строку в самый конец моего примера отсюда.
(rows - это переменная из примера)

===============================

(последующие сообщения темы были выделены 05.09.2006 в самостоятельную ветку О проверках в классе ComExcelDocument_RU )

[Stainless]

Никак не могу заставить группироваться столбцы, делаю так:

columns = wks.Columns();
COM::createFromVariant( columns.Item('7:12') ).Group();

вылетает ошибка Excel.
И еще не получилось свернуть группы по строкам и столбцам, на VBA это выглядит так:

ActiveSheet.Outline.ShowLevels RowLevels:=2

Спасибо

[Gustav]

Цитата:

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

Никак не могу заставить группироваться столбцы, делаю так:

columns = wks.Columns();
COM::createFromVariant( columns.Item('7:12') ).Group();

вылетает ошибка Excel.

Для столбцов при таком подходе Item('from:to') в качестве from и to надо использовать буквы столбцов Excel, т.е. 7-й - это G, а 12-й - L:

COM::createFromVariant( columns.Item('G:L') ).Group();

P.S. Универсальный же вариант (только числа) выглядит примерно так:

COM rng; // excel Range

// для группировки колонок
rng = COM::createFromVariant( columns.item(7) );
rng = rng.Resize( COMArgument::NoValue, 12-7+1 );
rng.Group();

// для группировки строк
rng = COM::createFromVariant( rows.item(7) );
rng = rng.Resize( 12-7+1 ); 
rng.Group();

Любопытно, что оператор "rng.Resize(...);" почему-то не работал, т.е. ошибки не возникало, но группировалась только одна 7-я колонка (строка). После придания ему вида явного присваивания "rng = rng.Resize(...)" стали группироваться все 6 колонок, как и задумывалось.

[Gustav]

Цитата:

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

И еще не получилось свернуть группы по строкам и столбцам, на VBA это выглядит так:

ActiveSheet.Outline.ShowLevels RowLevels:=2

Да, существует проблема "невоспроизведения" такой строки в X++.
Ей была посвящена целая ветка: Помогите сделать действие в Excel через COM

[Player1]

Цитата:

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

Да, существует проблема "невоспроизведения" такой строки в X++.
Ей была посвящена целая ветка: Помогите сделать действие в Excel через COM

Ну почему же:

COM    outline;
;    
...
currColumns.Select();
currColumns.Group();
outline = activeSheet.Outline();
outline.showLevels(0,1);

вот так вполне работает.
Решение CommandBars всегда устраивало, пока не пришлось делать группировку колонок у Сводной таблицы - линия с плюсиком группировки рисуется, а схлапываться не хотела(