Обработка загрузки справочника клиентов из файла Excel в Салон красоты 1с

Ничего военного тут нет…но вдруг кому пригодится.

Вот как выглядит выгруженный файл:

Задача загрузить данные из файла в справочник 1С: Салон Красоты Контрагеты.

В начале обработки в процедуре Команда на клиенте подключаемся к файлу Excel и узнаем количество строк в файле

 Ексель  = новый COMобъект("Excel.Application");
Ексель.Workbooks.Open("C:1.xls");

Лист = Ексель.WorkSheets(1);
КолСтрок = Ексель.ActiveSheet.UsedRange.Rows.Count;

затем запускаем цикл для построчного чтения. И в соответствующие переменные записываем значения из excel ячеек

пример чтения ячейки:

ДатаРегистрации = Ексель.ActiveSheet.Cells(ТекСтрока,13).Value;

Дата из Excel передается в текстовом виде, сформируем по строке Дату типа Дата 1С

Год = Прав(ДатаРегистрации,4);
Месяц = Сред(ДатаРегистрации,4,2);
День = Лев(ДатаРегистрации,2);
Если Год<>"" Тогда ОбщаяДата = Дата(Год,Месяц,День); КонецЕсли;

Затем для создания нового клиента в справочнике Контрагенты вызывается серверная процедура НовыйКлиент();

НовыйКлиент(Фамилия, Имя, Отчество, ОбщаяДата, Телефон,ДатаРождения);

В процедуре НовыйКлиент создаем новый элемент справочника контрагенты, заполняем его реквизиты и табличную часть, а затем производим запись в БД:

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

Клиент.Телефон =Телефон;

Клиент.Записать();

Надеюсь кому-то пригодится, полный код представлен в обработке.