|
Не выходит группировка строк в Excel |
☑ |
0
Despa1r
07.04.15
✎
17:30
|
Жир1=Массив2Уровень[0]+1;
Жир2=Массив2Уровень[1]-1;
list.range(Excel.Cells(Жир1,1),excel.cells(Жир2,1)).Rows.Group();
Проверял отладчиком каждую строку, Жир1 и Жир2 присваиваются числовые значения (конкретно у меня - 8 и 11). Однако на моменте когда нужно группировать вылетает и выдаёт ошибку:
Ошибка при вызове метода контекста (Cells)
list.Range(Excel.Cells(Жир1,0),Excel.Cells(Жир2,0)).Rows.Group();
по причине:
Произошла исключительная ситуация (0x800a03ec)
|
|
1
Despa1r
07.04.15
✎
17:31
|
Полный код:
СтрокаКонец = Массив1Уровень[2] - 1;
Массив2Уровень = Новый массив(3);
Колвогрупп=0;
E=7;
v=0;
Пока Колвогрупп <> 1 Цикл
Для v = E по СтрокаКонец Цикл
Если list.Cells(v,1).Font.Bold = Истина Тогда
Массив2Уровень[0]=v;
Прервать;
КонецЕсли;
КонецЦикла;
СтрокаГруп=Массив2Уровень[0]+1;
Для n = СтрокаГруп по СтрокаКонец Цикл
Если list.cells(n,1).Font.Bold = Истина Тогда
Массив2Уровень[1]=n;
Прервать;
КонецЕсли;
КонецЦикла;
СтрокаЕ=Массив2Уровень[1]+1;
Для m = СтрокаЕ по СтрокаКонец Цикл
Если list.cells(m,1).Font.Bold = Истина Тогда
Массив2Уровень[2]=m;
Прервать;
КонецЕсли;
КонецЦикла;
Жир1=Массив2Уровень[0]+1;
Жир2=Массив2Уровень[1]-1;
list.range(Excel.Cells(Жир1,1),excel.cells(Жир2,1)).Rows.Group();
НоваяЕ=Массив2Уровень[2];
E=НоваяЕ+1;
Массив2Уровень.Очистить();
КонецЦикла;
Колвогрупп=1;
|
|
2
Despa1r
07.04.15
✎
18:01
|
Вопрос исчерпан, всё заработало само собой...........
|
|
3
Despa1r
07.04.15
✎
18:03
|
Если у кого-то похожая проблема, всё, что я изменил, это никак не относящиеся к проблеме строки: поменял
КонецЦикла;
Колвогрупп=1;
на
Колвогрупп=1;
КонецЦикла;
|
|