Форум программистов, компьютерный форум, киберфорум
Наши страницы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.98/137: Рейтинг темы: голосов - 137, средняя оценка - 4.98
1

Загрузка номенклатуры из Exel

20.12.2007, 23:31. Просмотров 24697. Ответов 2
Метки нет (Все метки)

Здраствуйте, у меня проблемка. Я написал скриптик загрузки номенклатуры в торговлю+склад 1с 7.7, но он все наименования добовляет в корень, не хочет строить иерархический список, не подскажите в чем проблема?



Код
Процедура Сформировать()
спр=СоздатьОбъект("Справочник.ТМЦ");
имя="";
путь="";
ФС.ВыбратьФайл(0,имя,путь,,"(*.xls)|*.xls",,);
Пут=путь+имя;
если ПустоеЗначение(Пут)=1 тогда возврат; Конецесли;

Excel = СоздатьОбъект("Excel.Application");
Excel.Application.Workbooks.Open(СокрЛП(Строка(Пут)));
флаг=0;Сч=1; группа="";
Пока флаг=0 Цикл
Если ПустоеЗначение(Excel.ActiveWorkbook.activesheet.cells(Сч,1).value)=0 Тогда
спр.НоваяГруппа();
спр.Наименование=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,1).value));
спр.Записать();
группа=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,1).value));
Иначе
Если ПустоеЗначение(Excel.ActiveWorkbook.activesheet.cells(Сч,2).value)=0 Тогда
спр.ИспользоватьРодителя(группа);
спр.НоваяГруппа();
спр.Наименование=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,2).value));
спр.Записать();
группа=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,2).value));
Иначе
Если ПустоеЗначение(Excel.ActiveWorkbook.activesheet.cells(Сч,3).value)=0 Тогда
спр.ИспользоватьРодителя(группа);
спр.НоваяГруппа();
спр.Наименование=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,3).value));
спр.Записать();
группа=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,3).value));
Иначе
Если ПустоеЗначение(Excel.ActiveWorkbook.activesheet.cells(Сч,4).value)=0 Тогда
спр.ИспользоватьРодителя(группа);
спр.Новый();
спр.Наименование=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,5).value));
спр.Артикул=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,4).value));
спр.Записать();
иначе
флаг=1;
Конецесли;
Конецесли;
Конецесли;
Конецесли;
Сч=Сч+1;
КонецЦикла;
Excel.ActiveWorkbook.Close();
Excel.Quit();
КонецПроцедуры
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2007, 23:31
Ответы с готовыми решениями:

Загрузка номенклатуры из Exel в 1С 8
Здравствуйте! Подскажите, пожалуйста! Загружаю из Excel данные, хочу обратиться к именованной...

Программная загрузка Номенклатуры из текстового файла в Розницу
Имеется текстовый файл с данными, в следующем формате: Артикул, Наименование товара, Цена,...

Какой тип номенклатуры можно указать для вида номенклатуры?
сдавал экзамен проф УТ 8, попался вопрос: какой тип номенклатуры можно указать для вида...

БП 3: как получить счета номенклатуры из регистра "счет учета номенклатуры"?
Добрый день Подскажите как получить счета номенклатуры из регистра "счет учета номенклатуры" ...

Складской учет.Поступление партии номенклатуры, расход парти номенклатуры, вычисление остатка
Доброго времени суток! Помогите решить возникшую проблему: Существует таблица tblЧип с перечнем...

2
Koo
0 / 0 / 0
Регистрация: 22.04.2010
Сообщений: 38
21.12.2007, 05:20 2
<!--QuoteBegin-Джек*Воробей+22:12:2007, 07:18 -->
<span class="vbquote">(Джек*Воробей @ 22:12:2007, 07:18 )</span><!--QuoteEBegin-->Если ПустоеЗначение(Excel.ActiveWorkbook.activesheet.cells(Сч,1).value)=0 Тогда
спр.НоваяГруппа();
спр.Наименование=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,1).valu
e));
спр.Записать();
группа=СокрЛП(строка(Excel.ActiveWorkbook.activesheet.cells(Сч,1).value));
Иначе
[snapback]90952" rel="nofollow" target="_blank[/snapback]?[/quote]

Попробуй группа = спр.ТекущийЭлемент();
0
21.12.2007, 12:12 3
Спасибо большое, все работает)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2007, 12:12

не могу избавится от вируса TR/Crypt.XPACK.Gen ( по номенклатуры Авира) или Win32:Trojan-gen (по номенклатуры Аваста)...
не могу избавится от вируса TR/Crypt.XPACK.Gen ( по номенклатуры Авира) или Win32:Trojan-gen (по...

Передача данных в Exel (закрывается рабочая форма при открытии Exel)
Помогите пожалуйста. почему закрывается моя форма при открытии Exel? procedure...

Перенос данных из одного файла Exel в другой файл Exel
Добрый день всем! Копался сам, но так и не нашел ответа. Вопрос следующий. Есть временный файл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru