Поиск товара по коду через загрузку Excel в 1С

&НаСервере
Функция НайтиТоварПоКоду(КодТовараВСистеме)
	Перем ТоварДляПоиска, СсылкаНаНайденныйТовар;
    ТоварДляПоиска = Справочники.Номенклатура;
    СсылкаНаНайденныйТовар = ТоварДляПоиска.НайтиПоКоду(КодТовараВСистеме);
    Если СсылкаНаНайденныйТовар = ТоварДляПоиска.ПустаяСсылка() Тогда
        Возврат "Товар не найден";
   Иначе
        Возврат СсылкаНаНайденныйТовар.Наименование;
    КонецЕсли; 	
КонецФункции


&НаКлиенте
Процедура ЗагрузкаЧерезExcel(Команда)
	РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами(); 
	Если Не РасширениеПодключено Тогда
		УстановитьРасширениеРаботыСФайлами();
		РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
	КонецЕсли;
	Если РасширениеПодключено Тогда
		ДиалогФыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
		ДиалогФыбораФайла.Фильтр = "Файлы Excel (*.xls,*.xlsx) |*.xls*"; 
		ДиалогФыбораФайла.Заголовок = "Выберите файл для загрузки ковров";
		ДиалогФыбораФайла.ПредварительныйПросмотр = Истина;
		ДиалогФыбораФайла.ИндексФильтра = 0;
		Если ДиалогФыбораФайла.Выбрать() Тогда
			ОбработкаExcel(ДиалогФыбораФайла.ПолноеИмяФайла);
		КонецЕсли;	
	Иначе
		Сообщить("Расширение работы с файлами не доступно !");
	КонецЕсли;	

КонецПроцедуры

&НаКлиенте
Процедура ОбработкаExcel(Файл)
	ВыбФайл = Новый Файл(Файл);
	Если Не ВыбФайл.Существует()Тогда
		Сообщить("Что то пошло не так");
		Возврат;
	Иначе
		НомерЛиста = 1;
		Попытка
			Excel = Новый COMОбъект("Excel.Application");
			Excel.Workbooks.Open(СокрЛП(Файл));
		Исключение
			Сообщить("Не удается!");
			Возврат;
		КонецПопытки;
		Excel.Sheets().select();
		Excel.ActiveWorkbook.Worksheets(НомерЛиста).Activate();
		
		Версия = Лев(Excel.Version,Найти(Excel.Version,"")-1);
		Если Версия = 8 Тогда
			ФайлСтрок 	= Excel.Cells.CurrentRegion.Rows.Count;
			ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count,13);
		Иначе
			ФайлСтрок 	= Excel.Cells(1,1).SpecialCells(11).Row;
			ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
		КонецЕсли;
		
		
		НомерКолонкиТовара 				= 1;
		НомерКолонкиКоличествоТоваров 	= 2;
		
		Для НомерЛиста 		= 1 По Excel.ActiveWorkbook.Sheets.Count Цикл
			ПроцентЗагрузки = 0;
			rows			= Excel.ActiveSheet.UsedRange.Rows.Count;
			ШагиЗагрузки	= 100/rows;
			
			Для СчСтроки = 2 По ФайлСтрок Цикл
				КодТовара 			= СокрЛ(Excel.Cells(СчСтроки,НомерКолонкиТовара).Value);
				Количество			= СокрЛ(Excel.Cells(СчСтроки,НомерКолонкиКоличествоТоваров).Value);
				Сообщить(КодТовара);
				СтрокаТовар = Строка(КодТовара);
				ПолучитьТовар = НайтиТоварПоКоду(СтрокаТовар);
				
								
				НоваяСтрока = объект.ПрайсЛист.Добавить();
				НоваяСтрока.Номенклатура = ПолучитьТовар;
				НоваяСтрока.Количество = Количество;
				//НоваяСтрока.ТипПродукции = НоваяСтрока.Продукция.ПолучитьОбъект().ТипПродукции;
				//НоваяСтрока.Фирма = НоваяСтрока.Продукция.ПолучитьОбъект().Фирма;
				//НоваяСтрока.ЕдИзмерения = НоваяСтрока.Продукция.ПолучитьОбъект().ЕдИзмерения;
				//НоваяСтрока.Цена  = ПослЦена(НоваяСтрока.Продукция,Объект.Дата);
				//НоваяСтрока.Количество = Количество;
				//РаботаСДокументами.РассчитатьСумму(НоваяСтрока);
				
				Состояние("Идет загрузка данных" + ". Прогресс:",ШагиЗагрузки*СчСтроки);	
			КонецЦикла;
		КонецЦикла;
		Excel.ActiveWorkbook.Close(); 
	КонецЕсли;
КонецПроцедуры