Пример обращения к программе 1С:Предприятие из модуля MS Excel

В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa.
Далее в программе 1С:Предприятие 8.0 создается объект типа "СправочникМенеджер.Товары" и создается новая группа элементов с названием "***** Экспорт из Excel ******".
Во вновь созданную группу каталога записываются данные из таблицы MS Excel.

Пример представлен на языке MS Visual Basic:

Код 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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/471.html