V
vipos
Всем доброго времени суток! столкнулся со следующей проблемой- нужно дополнить сотрудников реквизитами из exel файла
Вот код.... помогите плиз доработать
Вот код.... помогите плиз доработать
Код:
Excel = Новый COMОбъект("Excel.Application");
ВыбФайл = Новый Файл("d:\хрень\Только нужное2.xls");
ФайлОткуда = ВыбФайл.ПолноеИмя;
РабочаяКнига = Excel.WorkBooks.Open(ФайлОткуда);
Страница=1;
Пока Страница=1 Цикл
Лист = Excel.Sheets(1);
Строка=2;
Пока ЗначениеЗаполнено(Лист.Cells(Строка, 1).Value) Цикл
Значение1=Лист.Cells(Строка,1).Value;
ссылка= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Значение1);
Если не Ссылка.Пустая() Тогда
Значение1=Лист.Cells(Строка,1).Value;
Эл = Справочники.СотрудникиОрганизаций.СоздатьЭлемент();
Значение1=Лист.Cells(Строка,1).Value;
эл.Код=Значение1;
Эл.Бронь=Лист.Cells(Строка,3). Value;
Эл.ВременныйПеревод= Лист.Cells(Строка,4). Value;;
Эл.ДатаУхода= Лист.Cells(Строка,5). Value;
Эл.ДолжностноеЛицо=Лист.Cells(Строка,6). Value;
Эл.МОЛ=Лист.Cells(Строка,7). Value;
Эл.Пенсионер=Лист.Cells(Строка,8). Value;
Эл.ПриемВСчетБрони=Лист.Cells(Строка,9). Value;
Эл.ПризнакПенсионера=Лист.Cells(Строка,10). Value;
Эл.СемейноеПоложение=Лист.Cells(Строка,11). Value;
Эл.СовместительВнешний=Лист.Cells(Строка,12). Value;
Эл.Совмещение=Лист.Cells(Строка,13). Value;
Эл.Записать();
иначе
Сообщить("Не найден сотрудник"+ Значение1);
Конецесли;
строка = строка + 1;
КонецЦикла;
КонецЦикла;