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