Имя: Пароль:
1C
 
Исключительная ситуация (0x80020005)
,
0 Despa1r
 
20.03.15
18:13
Ошибка при вызове метода контекста (Rows)
по причине:
Произошла исключительная ситуация (0x80020005)

НачСтр=6;
            Для q=1 по 10000 Цикл
                Если list.cells(q,1).value="Итого:" Тогда
                    itogo=list.cells(q,1).value;
                    КонСтрИтого=list.Cells(itogo,1);
                    Прервать;
                КонецЕсли;
            КонецЦикла;
                    list.Range(Excel.Cells(z,1),Excel.Cells(x,1)).Rows.Group();
                КонецЕсли;
            КонецЦикла;
          
Для e=НачСтр По КонСтрИтого Цикл
                Если list.Cells(e,1).Font.Italic = Истина Тогда
                   c=list.Cells(e,1).value;  
                   v=c-1;
                   list.Range(Excel.Cells(c,1),Excel.Cells(v,1)).Select();
                   list.Range(Excel.Cells(c,1),Excel.Cells(v,1)).Rows.Group();
                КонецЕсли;
            КонецЦикла;    
            
        Для w=НачСтр По КонСтрИтого Цикл
                Если list.cells(w,1).Font.Bold = Истина Тогда
                    z=list.cells(w,1).value;
                    x=z-1;
                    list.Range(Excel.Cells(z,1),Excel.Cells(x,1)).Select();
                    list.Range(Excel.Cells(z,1),Excel.Cells(x,1)).Rows.Group();
                КонецЕсли;
            КонецЦикла;
1 Despa1r
 
20.03.15
18:14
Не ту ошибку в заголовке привёл.

Ошибка при вызове метода контекста (Cells)
                    КонСтрИтого=list.Cells(itogo,1);
по причине:
Произошла исключительная ситуация (0x80020005)
2 МихаилМ
 
20.03.15
18:43