1С Загрузка данных Эксель

Question

Здравствуйте. Я плохо знаю русский. Извините за этого. Я еще новичок в 1С программирование. Данные загружается из эксель файла. Мне надо что он проверил все товары. Таким образом как есть ли токай товар в базе или нет. Если нет тогда он в низу показывало сообщение что токай товар не найден и он не добавил его в ТЗ документа. Сообщение сделал можно но как фильтр поставить ?
Написал код но он добавляет товара. Мне проста надо подсказка что как исправится с этим.
Ниже код и картинка 
Спасибо всем за ранее.

[1C-CODE]Перем ТЗ экспорт;
Процедура  СоздатьТЗ()
	
	ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Номенклатура",,,);
	ТЗ.Колонки.Добавить("Количество",,,);
	ТЗ.Колонки.Добавить("Цена",,,);
	ТЗ.Колонки.Добавить("Сумма",,,);

КонецПроцедуры // СоздатьТЗ()

Процедура ПереборСтрокВЭксель()

	
    Путь = "C:\Users\User\Desktop\Лист Microsoft Excel.xlsx";
    Эксель = Новый COMОбъект("Excel.Application");
    Эксель.Workbooks.Open(Путь);
    Эксель.Sheets(1).Select();
		Версия = Лев(Эксель.Version,Найти(Эксель.Version,".")-1);
Если Версия = "8" тогда
    ФайлСтрок   = Эксель.Cells.CurrentRegion.Rows.Count;
    ФайлКолонок = Макс(Эксель.Cells.CurrentRegion.Columns.Count, 13);
Иначе
    ФайлСтрок   = Эксель.Cells(1,1).SpecialCells(11).Row;
    ФайлКолонок = Эксель.Cells(1,1).SpecialCells(11).Column;   
Конецесли;

	Для Стр = 1 ПО ФайлСтрок Цикл
		НоваяСтрока = ТЗ.Добавить();
        НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Эксель.Cells(Стр,1).Value));
        НоваяСтрока.Количество = СокрЛП(Эксель.Cells(Стр,2).Value);
        НоваяСтрока.Цена = СокрЛП(Эксель.Cells(Стр,3).Value);
        НоваяСтрока.Сумма = СокрЛП(Эксель.Cells(Стр,4).Value);
	КонецЦикла;
	
    
    Эксель.ActiveWorkbook.Close();
    Эксель.Application.Quit();
КонецПроцедуры

Процедура ПереборСтрокТЗ()
	Для Каждого Ст из ТЗ Цикл
	Стр = Товары.Добавить();
			Стр.Номенклатура = Ст.Номенклатура;
			Стр.Количество = Ст.Количество;
    Стр.Цена = Ст.Цена;
    Стр.Сумма = Ст.Сумма;
	Стр.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
	Стр.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("&#399;D");
	Стр.Коэффициент = 1;
КонецЦикла;
	    КонецПроцедуры

Процедура ОсновныеДействияФормыЗагрузкаДанный(Кнопка)
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок = "Выберите excel - файл";
	Диалог.ПолноеИмяФайла = "С:\";
	Диалог.Фильтр = "Таблицы (*.xls,*.xlsx)|*.xls;*.xlsx;|Microsoft Excel 97/2000/XP/2003 (*.xls)|*.xls|Microsoft Excel 2007/2010 (*.xlsx)|*.xlsx";
	
	Если Диалог.Выбрать() Тогда
		Предупреждение(Диалог.ПолноеИмяФайла, 10 , "Файл выбран.");
	Иначе
		Предупреждение("Файл не выбран.");
		Возврат;
	КонецЕсли;
	


	СоздатьТЗ();
	

	ПереборСтрокВЭксель();
	
	
	ПереборСтрокТЗ();

КонецПроцедуры[/1C-CODE]

Accepted Answer

(3) можно просто не добавлять эту строку и все

Для Стр = 1 ПО ФайлСтрок Цикл 
Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Эксель.Cells(Стр,1).Value));
Если Номенклатура.Пустая() Тогда
Сообщить("Номенклатура " + СокрЛП(Эксель.Cells(Стр,1).Value) + " не найдена!");
Иначе
НоваяСтрока = ТЗ.Добавить(); 
НоваяСтрока.Номенклатура = Номенклатура; 
НоваяСтрока.Количество = СокрЛП(Эксель.Cells(Стр,2).Value); 
НоваяСтрока.Цена = СокрЛП(Эксель.Cells(Стр,3).Value); 
НоваяСтрока.Сумма = СокрЛП(Эксель.Cells(Стр,4).Value); 
НоваяСтрока.Номенклатура = Номенклатура; 
Конецесли
КонецЦикла; 

Проблему можно так решить