В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa.
Далее в программе 1С:Предприятие 8.0 создается объект типа "СправочникМенеджер.Товары" и создается новая группа элементов с названием "***** Экспорт из Excel ******".
Во вновь созданную группу каталога записываются данные из таблицы MS Excel.
Пример представлен на языке MS Visual Basic:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
<pre><code class="vbs"> Sub Excel_to_trade() Dim trade As Object Dim Элемент As Object Set trade = CreateObject("V8.Application") trade.Connect("File=""D:\1CBasa"";Usr=""Director"";") Set СправочникТоваров = trade.Справочники. Товары Set ГруппаТоваров = СправочникТоваров.СоздатьГруппу() ГруппаТоваров.Наименование = "***** Экспорт из Excel ******" ГруппаТоваров.Записать N = 100 'Количество строк в документе For Count = 1 To N Set Элемент = СправочникТоваров.СоздатьЭлемент() Элемент.Наименование = Application.Cells(Count, 2).Value Элемент.Розн_Цена = Application.Cells(Count, 3).Value Элемент.Мел_Опт_Цена = Application.Cells(Count, 4).Value Элемент.Опт_Цена = Application.Cells(Count, 5).Value Элемент.Родитель = ГруппаТоваров.Ссылка Элемент.Записать Next Count End Sub |
About the Author
