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

    

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.УстановитьЗначениеФильтра("Товар", ВыбГруппаТоваров, 2);

// означает, что расчеты будут проводиться по товарам из группы ВыбГруппаТоваров.



// Пример 2    

РегТовары = СоздатьОбъект("Регистр.Товары");

//выбрать все движения по данному складу за период

РегТовары.УстановитьЗначениеФильтра("Склад", ТекСклад);

//далее идет выборка движений или итогов

//...