Главная Регистрация Форум Поиск по форуму Продать разработку Программное обеспечение Опубликовать статью Статьи по программированию Общение Сообщества Фриланс Добавить проект Web-бухгалтерия Железо Книги

forum1C8.ru

Социальная сеть программистов
 


 Авторизация
Логин:

Пароль:



 Забыли пароль ?

 Регистрация
На сайте:
Содержание

Как из таблицы Excel загрузить список номенклатуры в 1С:Предприятие с возможностью редактирования?


Sub load() 
Dim trade As Object
Dim СправочникНоменклатуры As Object
Dim ГруппаНоменклатуры As Object
Dim Элемент As Object
Dim Форма As Object
Set trade = CreateObject("V8.Application")
trade.Connect("File=""C:\DemoTrd4"";Usr=""Федоров (администратор)"";")
Set СправочникНоменклатуры = trade.Справочники.Номенклатура
Set ГруппаНоменклатуры = СправочникНоменклатуры.СоздатьГруппу()
ГруппаНоменклатуры.Наименование = "***** Экспорт из Excel ******"
ГруппаНоменклатуры.Записать
N = 4 'Количество загружаемых элементов справочника
For Count = 2 To 5 Set
Элемент = СправочникНоменклатуры.СоздатьЭлемент()
Элемент.Код = Application.Cells(Count, 1).Value
Элемент.Артикул = Application.Cells(Count, 2).Value
Элемент.Наименование = Application.Cells(Count, 3).Value
Элемент.НаименованиеПолное = Application.Cells(Count, 4).Value
Элемент.Родитель = ГруппаНоменклатуры.Ссылка
Set Форма = Элемент.ПолучитьФорму()
Форма.ОткрытьМодально
Next Count
End Sub
Copyright © 2012-2018 forum1C8.ru
http://www.forum1c8.ru
Сделать стартовой
Добавить в Избранное

Нравится

Программирование finansoft.ru