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();
КонецЕсли;
КонецЦикла;
|
|