Ничего военного тут нет...но вдруг кому пригодится.
Вот как выглядит выгруженный файл:
Задача загрузить данные из файла в справочник 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);
Если Год<>"" Тогда ОбщаяДата = Дата(Год,Месяц,День); КонецЕсли;
Затем для создания нового клиента в справочнике Контрагенты вызывается серверная процедура НовыйКлиент();
НовыйКлиент(Фамилия, Имя, Отчество, ОбщаяДата, Телефон,ДатаРождения);
В процедуре НовыйКлиент создаем новый элемент справочника контрагенты, заполняем его реквизиты и табличную часть, а затем производим запись в БД:
Клиент = Справочники.Контрагенты.СоздатьЭлемент();
Клиент.Родитель = Справочники.Контрагенты.НайтиПоНаименованию("Клиенты");
Клиент.Фамилия = Фамилия;
Клиент.Имя = Имя;
Клиент.Отчество = Отчество;
.
.
.
строка = Клиент.КонтактнаяИнформация.Добавить();
строка.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Телефон");
строка.НомерТелефонаБезКодов = Телефон;
строка.ЗначенияПолей = "НомерТелефона="+Телефон;
Клиент.Телефон =Телефон;
Клиент.Записать();
Надеюсь кому-то пригодится, полный код представлен в обработке.
