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();