Sub load() 
      Dim cntr As Object 
 Dim trade As Object 
        Dim Элемент As Object 
      Dim СправочникКонтрагентов As Object 
       Dim ГруппаКонтрагентов As Object 
   Set cntr = CreateObject("V8.COMConnector") 
     Set trade = cntr.Connect("File=""C:\DemoTrd4"";Usr=""Федоров (администратор)"";") 
     Set СправочникКонтрагентов = trade.Справочники.Контрагенты 
  Set ГруппаКонтрагентов = СправочникКонтрагентов.СоздатьГруппу() 
        ГруппаКонтрагентов.Наименование = "***** Экспорт из Excel ******" 
   ГруппаКонтрагентов.Записать 
   N = 11 'Количество строк в списке поставщиков 
    For Count = 3 To N 
             Set Элемент = СправочникКонтрагентов.СоздатьЭлемент() 
          Элемент.Код = Application.Cells(Count, 1).Value 
            Элемент.Наименование = Application.Cells(Count, 2).Value 
           Элемент.ИНН = Application.Cells(Count, 3).Value 
            Элемент.НаименованиеПолное = Application.Cells(Count, 4).Value 
             Элемент.Родитель = ГруппаКонтрагентов.Ссылка 
                Элемент.Записать 
      Next Count 
End Sub