ComExcelDocument_RU доработка и вопрос

[Player1]

1. доработка =)

comRange = excel.findRange(ComExcelDocument_RU::numToNameCell(1, 1) + ":" +
                           ComExcelDocument_RU::numToNameCell(3, 10), 1);

этот код выделяет диапазон ячеек A1:С10, чтобы можно было выделить просто колонки A-С, поидее хочется во второй парамент передать 0, но в итоге получается "A0:C0" и вылазит ошибка, поэтому в методе ComExcelDocument_RU::numToNameCell правим

szRet += int2str(_iRow);

на

    if (_iRow != 0)
    szRet += int2str(_iRow);

соответственно диапазон получится "A:C"

2. вопрос: использовал конструкцию выше и группировку (линейка для сворачивания\разворачивания)

comRange = excel.findRange(ComExcelDocument_RU::numToNameCell(1, 1) + ":" +
                           ComExcelDocument_RU::numToNameCell(3, 10), 1);
comRange.Group();

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

[lev]

в свое время делал группировку строк, и сворачивал вот так:

void groupRows()
{
    COM cmdBars, cmdBar, ctrls, ctrl;
    ;

    cmdBars = excel.CommandBars();
    cmdBar  = cmdBars.Item('PivotTable');
    ctrls   = cmdBar.Controls();
    ctrl    = ctrls.Item( 5 );
    ctrl.Execute();
}

Код из Ах3.0

P.S. естественно выполняется это на выделенном диапозоне (range.select), который был сгруппирован.

[Gustav]

Цитата:

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

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

Выгрузка данных в Excel и их группировка... - здесь говорится о проблеме выполнения такого действия "в лоб"

Помогите сделать действие в Excel через COM - здесь ищутся пути решения

[Player1]

Цитата:

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

Выгрузка данных в Excel и их группировка... - здесь говорится о проблеме выполнения такого действия "в лоб"

Помогите сделать действие в Excel через COM - здесь ищутся пути решения

Всё прочитал, весь день пробовал, так ничиго и не вышло.
Сталкнулся со всеми траблами которые возникали у kashperuk.
Региональные настройки - понял что мне нужно писать команды по-русски.
Код работает в job и не работает в class - да именно так.

Не стал бы заморачиваться, но отчет реально гигантский и архиважный). Быть может найдете время рассмотреть мою ситуацию

    COMExcelDocument_RU     excel;
    Com                     comRange, document, workSheets, exAppl, worksheet1;
;
        excel = new COMExcelDocument_RU();
        excel.newFile('', true);

    document    = excel.getComDocument();
    workSheets  = document.worksheets();
    exAppl      = document.Application();
    workSheet1  = workSheets.item(1);

    //группировка колонок 
    comRange = excel.findRange(ComExcelDocument_RU::numToNameCell(5, 0) + ":" +
                               ComExcelDocument_RU::numToNameCell(10, 0), 1);

    comRange.Group();

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

.ExecuteExcel4Macro(strfmt('ПОКАЗАТЬ.ДЕТАЛИ(...

это уже никак не получается приделать

[S.Kuskov]

Цитата:

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

Код работает в job и не работает в class - да именно так.

Job всегда выполняется на клиенте, class - может и на сервере

[Gustav]

Цитата:

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

Всё прочитал, весь день пробовал, так ничиго и не вышло.
Сталкнулся со всеми траблами которые возникали у kashperuk.
Региональные настройки - понял что мне нужно писать команды по-русски.
Код работает в job и не работает в class - да именно так.

Не стал бы заморачиваться, но отчет реально гигантский и архиважный). Быть может найдете время рассмотреть мою ситуацию

Так, а вот то, что там в сообщении № 14 Помогите сделать действие в Excel через COM - про CommandBar "PivotTable" - совсем не подошло? Это - то же, о чем Вам lev уже говорил выше в текущей ветке. Неужели не работает? Оставьте пока ПОКАЗАТЬ.ДЕТАЛИ, попробуйте CommandBar!

[Player1]

Попробовал, со строками все получается, а с колонками (интерпретировал код под свои переменные):

COMExcelDocument_RU     excel;    
    document    = excel.getComDocument();
    workSheets  = document.worksheets();
    exAppl      = document.Application();
    workSheet1  = workSheets.item(1);
    com    Columns, currColumns;
;
columns = workSheet1.columns();
    currColumns = COM::createFromVariant(columns.Item('A:C'));
    currColumns.Select();
    currColumns.Group();

    cmdBars = exAppl.CommandBars();
    cmdBar  = cmdBars.Item('PivotTable');
    ctrls   = cmdBar.Controls();
    ctrl    = ctrls.Item( 5 );
    ctrl.Execute();

отчет строится, линейка группировки присутствует в раскрытом виде, а вот выделены колонки не А:С, а все в которые выводились данные отчета (ну к примеру А:АС)

[Gustav]

Цитата:

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

отчет строится, линейка группировки присутствует в раскрытом виде, а вот выделены колонки не А:С, а все в которые выводились данные отчета (ну к примеру А:АС)

Следующий джоб у меня на Аксапте 3.0 и Excel 2003 отрабатывает как надо:

{
    COMExcelDocument_RU excel = new COMExcelDocument_RU();
    COM document;
    COM workSheets;
    COM exAppl;
    COM workSheet1;
    COM columns, currColumns, rng;
    COM cmdBars, cmdBar, ctrls, ctrl;
;
    excel.newFile('', true);

    document    = excel.getComDocument();
    workSheets  = document.worksheets();
    exAppl      = document.Application();
    workSheet1  = workSheets.item(1);

    columns = workSheet1.columns();
    currColumns = COM::createFromVariant(columns.Item('A:C'));
    currColumns.Select();
    currColumns.Group();

    cmdBars = exAppl.CommandBars();
    cmdBar  = cmdBars.Item('PivotTable');
    ctrls   = cmdBar.Controls();
    ctrl    = ctrls.Item( 5 );
    ctrl.Execute();

    rng = exAppl.Range('A1:AC10');
    rng.Value2('bla-bla-bla');
}

[Player1]

В джобе да, в классе нет.
Ура! это натолкнуло меня на мысль что дальнейший код, после группировки, портит ее. Так и есть, вставил группировку в конце метода - работает. Ну только остался эффект того что все колонки отчета выделены после вывода его на экран, ну да ладно.

[Gustav]

Цитата:

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

только остался эффект того что все колонки отчета выделены после вывода его на экран

Ну так в самом конце сделать <любая одиночная ячейка>.Select():

    rng = exAppl.Range('A1');
    rng.Select();