Импорт Контрагентов из Екселя в 1с

Добрый вечер ! Вот в первые столкнулся с данной возможностью 1с и уже пару дней мучаюсь, не могу всё красиво оформить. Мне надо создать контрагентов в справочники и заполнить их данными из ексель файла. Так же создать в РегистрСведений.КонтактнаяИнформация данные контрагентов. И создать договора контрагентов.

Процедура КнопкаВыполнитьНажатие(Кнопка)

//Номер листа в книге Excel для получения данных
    НомерЛиста         = 1;

    ИмяФайла = СокрЛП(ИмяГлавногоФайла);
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");

    КонецПопытки;

    //Подключились удачно, открываем файл
    Excel.Workbooks.Open(ИмяФайла);

    //Открываем необходимый лист
    Excel.Sheets(НомерЛиста).select();

    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(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;
    Конецесли;



    тзКонтр = Новый ТаблицаЗначений;
    тзКонтр.Колонки.Добавить("ПолноеНаименование");
    тзКонтр.Колонки.Добавить("КодПоЭГРПОУ");
    тзКонтр.Колонки.Добавить("Регион");
    тзКонтр.Колонки.Добавить("Телефон");
    тзКонтр.Колонки.Добавить("Почта");
    тзКонтр.Колонки.Добавить("Код");
    тзКонтр.Колонки.Добавить("Контакт");
    тзКонтр.Колонки.Добавить("Наименование");
    тзКонтр.Колонки.Добавить("Валюта");
    тзКонтр.Колонки.Добавить("СпособОплаты");

        Для нс = 2 по ФайлСтрок Цикл
            НоваяСтрока =  тзКонтр.Добавить();
            НоваяСтрока.Код = Excel.Cells(НС, 1).Value;
            НоваяСтрока.Наименование = Excel.Cells(НС, 3).Value;
            НоваяСтрока.ПолноеНаименование = Excel.Cells(НС, 19).Value;
            НоваяСтрока.КодПоЭГРПОУ = Excel.Cells(НС, 16).Value;
            НоваяСтрока.Регион = Excel.Cells(НС, 8).Value;
            НоваяСтрока.Телефон = Excel.Cells(НС, 10).Value;
            НоваяСтрока.Почта = Excel.Cells(НС, 11).Value;
            НоваяСтрока.Контакт = Excel.Cells(НС, 12).Value;
            НоваяСтрока.Валюта = Excel.Cells(НС, 15).Value;
            НоваяСтрока.СпособОплаты = Excel.Cells(НС, 4).Value;
        КонецЦикла;


    // Закрыть COM соединение для экономии памяти
    Excel.Application.Quit();

    //поместить считанные данные в форму обработки
    ЭлементыФормы.ТабличноеПоле1.Значение = тзКонтр;
    ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

    мФорма = ПолучитьФорму(Справочники.Контрагенты.ПолучитьФормуНовогоЭлемента());
    СозданиеКонтрагента(мФорма);

    мСообщение = Новый СообщениеПользователю();
    мСообщение.Текст = "Контрагенты загружены";
    мСообщение.Сообщить();

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

Процедура СозданиеКонтрагента (мФорма)

     ТекстОшибок = "";

    Для Каждого СтрокаТаблицы из ТабличноеПоле1 Цикл
        НовыйОбъект = Справочники.Контрагенты.СоздатьЭлемент();
        НовыйОбъект.Родитель = Справочники.Контрагенты.НайтиПоНаименованию("Покупатели");
        НовыйОбъект.Наименование = СтрокаТаблицы.Наименование;
        НовыйОбъект.НаименованиеПолное = СтрокаТаблицы.ПолноеНаименование;
        Если НовыйОбъект.ЮрФизЛицо = СтрДлина("12345678")
            И НовыйОбъект.ЮрФизЛицо <> Неопределено Тогда
            НовыйОбъект.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо;
        Иначе
            НовыйОбъект.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
        КонецЕсли;
        НовыйОбъект.Покупатель = Истина;
        НовыйОбъект.Регион = Справочники.Регионы.НайтиПоКоду("000000001");
        НовыйОбъект.Код = СтрокаТаблицы.Код;
        НовыйОбъект.КодПоЕДРПОУ = СтрокаТаблицы.КодПоЭГРПОУ;
          Попытка
            НовыйОбъект.Записать();
        Исключение
             ТекстОшибок = ТекстОшибок + ?(ТекстОшибок = "", "", Символы.ПС);
            ТекстОшибок = ТекстОшибок + "Ошибка создания контрагента '" + СтрокаТаблицы.Наименование + "'";
            Продолжить;
        КонецПопытки;

        КонтрагентСсылка = НовыйОбъект.ЭтотОбъект;
          МоеЗаполнение   = Новый Структура("Представление,Тип,Вид,Объект",  СтрокаТаблицы.Телефон,
                                          Перечисления.ТипыКонтактнойИнформации.Телефон,
                                          Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента,
                                          КонтрагентСсылка);

        Мен_Записи = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();    //СоздатьНаборЗаписей();  //
        ЗаполнитьЗначенияСвойств(Мен_Записи, МоеЗаполнение);
        Мен_Записи.Объект = КонтрагентСсылка;
        Мен_Записи.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
        Мен_Записи.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;
        Мен_Записи.Поле1 = СтрокаТаблицы.Телефон;



        НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
        НовыйДоговор.Организация =  УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяОрганизация");
        НовыйДоговор.Владелец = КонтрагентСсылка;
        НовыйДоговор.Наименование = "Основной договор";
        НовыйДоговор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
        НовыйДоговор.ВалютаВзаиморасчетов = СтрокаТаблицы.Валюта;
        НовыйДоговор.ВестиПоДокументамРасчетовСКонтрагентом = Истина;
        НовыйДоговор.ВестиПоДокументамРасчетовСКонтрагентомРегл = Истина;
        НовыйДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;

    КонецЦикла;

    Если ТекстОшибок <> "" Тогда

        мСообщение = Новый СообщениеПользователю();
        мСообщение.Текст = ТекстОшибок;
        мСообщение.Сообщить();

    КонецЕсли;