Загрузить контрагентов с инн и телефонами из xls в комплексная автоматизация 1.1.105.3

&НаКлиенте
Процедура КнопкаНажатие(Команда)
Файл = С:\папочка\1.xls;
ПрочитатьЭксельчик(Файл);
КонецПроцедуры
&НаСервере
Процедура ПрочитатьЭксельчик(Файл)
ТД = Новый ТабличныйДокумент;
ТД.Прочитать(Файл,СпособЧтенияЗначенийТабличногоДокумента.Текст);
Построитель = Новый ПостроительОтчета; 
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТД.Область(3,1,ТД.ШиринаТаблицы.ВысотаТаблицы,ТД.ШиринаТаблицы)); 
Построитель.Выполнить();	
Результат = Построитель.Результат.Выгрузить();
Для Каждого Строка Из Результат Цикл
ИщемКлиента = НайдемКлиента(Строка.ИНН);
Если ИщемКлиента.Пустая() Тогда
НовыйКлиент = Справочники.Контрагенты.СоздатьЭлемент();
НовыйКлиент.Наименование = Строка.Наименование;
НовыйКлиент.ИНН = Строка.ИНН;
НовыйКлиент.Телефон = Строка.Телефон;
Попытка
НовыйКлиент.Записать();
Исключение
Сообщить("Кривой клиент" +Строка.Наименование + "  " + ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры;

&НаСервере
Функция НайдемКлиента(Клиент)
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|	Контрагенты.Ссылка
|ИЗ
|	Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|	Контрагенты.ИНН = &ИНН"
Запрос.УстановитьПараметр("ИНН",Клиент);
Результат = Запрос.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
Возврат Результат.Ссылка;
Иначе
Возврат Справочники.Контрагенты.ПустаяСсылка();
КонецЕсли;
КонецФункции;