Кадровый учет 1с 7.7
16.10.2009
14:41
#1
Как заполнить справочник данными из таблицы xls или mxl?
Тоесть есть список сотрудников таблице, которых нужно внести в справочник..
Тоесть есть список сотрудников таблице, которых нужно внести в справочник..
16.10.2009
14:55
#3
" Типа етого о:
Файл = СоздатьОбъект("Таблица");
Спр = СоздатьОбъект("Справочник.Сотрудники");
Файл.Открыть("файл.xls");
НомСтр = 1;
Пока НомСтр <= Файл.КоличествоСтрок() Цикл
Код = СокрЛП(Файл.ПолучитьСтроку(НомСтр));
Наименование = СокрЛП(Файл.ПолучитьСтроку(НомСтр+1));
Если Спр.НайтиПоКоду(Код)= 0 Тогда
Спр.Новый();
Спр.Код = Код;
Спр.Наименование = Наименование;
Спр.Записать();
КонецЕсли;
НомСтр = НомСтр + 2;
КонецЦикла;"
Файл = СоздатьОбъект("Таблица");
Спр = СоздатьОбъект("Справочник.Сотрудники");
Файл.Открыть("файл.xls");
НомСтр = 1;
Пока НомСтр <= Файл.КоличествоСтрок() Цикл
Код = СокрЛП(Файл.ПолучитьСтроку(НомСтр));
Наименование = СокрЛП(Файл.ПолучитьСтроку(НомСтр+1));
Если Спр.НайтиПоКоду(Код)= 0 Тогда
Спр.Новый();
Спр.Код = Код;
Спр.Наименование = Наименование;
Спр.Записать();
КонецЕсли;
НомСтр = НомСтр + 2;
КонецЦикла;"
Читают тему
(гостей: 1)