Имя: Пароль:
1C
1С v8
Не выходит группировка строк в 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;
КонецЦикла;