v8.2 УП: удаление строк excel

 Попытка
		XLSОбъектОсновной = Новый COMОбъект("Excel.Application");
		XLSОбъектОсновной.Visible = Ложь;
		XLSОбъектОсновной.DisplayAlerts = Ложь;
	Исключение
		Сообщить("Невозможно загрузить MS EXCEL");
		Возврат;
	КонецПопытки;	
	XLSОбъектКниги = XLSОбъектОсновной.WorkBooks;	
	Попытка
		XLSОбъект = XLSОбъектКниги.Open(ПутьКФайлу); 
	Исключение
		Сообщить("Невозможно открыть выбранный файл");
		Возврат;
	КонецПопытки;	
	НомерСтрокиСДанными = 1;	
	НомерСтраницы = 1;	
        Лист = XLSОбъект.Sheets(НомерСтраницы);	
	КолВоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
	КолВоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
       Для чС = НомерСтрокиСДанными По КолВоСтрок Цикл
               Если Лист.Cells(чС,2).Value = "исключён") Тогда
                      ЭлементДляПометки = Справочники.Имя.НайтиПоНаименованию(Лист.Cells(чС,1).Value) //или запросом реализовать поиск
                      ЭлементДляПометки.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);
               КонецЕсли;
       КонецЦикла;	
       XLSОбъект.Application.Quit();