Загрузка из Exel-файла в 1с :Бухгалтерию 8.1

"В Exel-файле хранится список, например  контрагентов который загружаетя в 1С
Макрос который запускает требуемую базу 1С в режиме СОМ-соединения

 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=""""D:\Base_A"""";Usr="""" """";")

  При запуске макроса выдается сообшение
  ActiveX component can't create object or return reference to this object (Error 429)

 Создание объектов требует, чтобы класс объекта регистрировался в ключе автозапуска
 системного реестра, и что любые связанные с динамической библиотеки (DLL) будет доступна.


  Перепробовал очень много всего, ничего не помомогает.
 Уровень безопасности низкий, запуск макросов разрешен,
 регестрировал библиотеку вручную: RegSvr32 "C:\Program Files\1Cv81\bin\comcntr.dll",
 в ссылках(References) все необходимые библиотеки отмечены,
 установил Visual Basic 6.0,  все та же ошибка, ActiveX не может создать объект.

 
 Кто сталкивался с такой проблемой и знает как её решить, помогите! Хотя бы советом или  
 рекомендацией...  


 "

А вы пытаетесь зацепиться из Excel к 1С? ИМХО проще наоборот из 1С зацепиться к Excel %)

~~~ Красноярск, http://x-frame.ru ~~~

Да я пытаюсь зацепиться из EXEL к 1С
Есть какие то данные на листе Exel, я пытаюсь их заурузить в 1С
Может подскажете как зацепиться наооборот.
Я с 1С начал работать недавно, и есть много непонятного.
Заранее спасибо!

"Ну в кратце так:

Файл = ПолучитьCOMОбъект(путь_к_файлу); // получение СОМ-объекта
Значение = Файл.Sheets(1).Cells(1,1).Value; // получение значения первой ячейки первого столбца на 1-м листе.

Первая строка цепляется к файлу, а потом в цикле считываете значения и делаете с ними, чего хотите

~~~ Красноярск, http://x-frame.ru ~~~
"

"у меня работа такой код

Sub Excel_to_trade()

Dim trade As Object
Dim Элемент As Object
Dim СправочникОС As Object
Dim ГруппаОС As Object
Dim k As String

Set trade = CreateObject("V81.Application")
trade.Connect ("File=""""d:\1Cv8\but"""";Usr=""""Бухгалтер"""";Pwd=""""01""""")
Set СправочникОС = trade.Справочники.ОсновныеСредства

For Count = 1062 To 2104
    k = Application.Cells(Count, 4).Value
   If k = """" Then
       Set ГруппаОС = СправочникОС.СоздатьГруппу()
       ГруппаОС.Наименование = Application.Cells(Count, 5).Value
       ГруппаОС.Записать
   Else
       Set Элемент = СправочникОС.СоздатьЭлемент()
       Элемент.Наименование = Application.Cells(Count, 5).Value
       Элемент.Родитель = ГруппаОС.Ссылка
       Элемент.Записать
   End If
Next Count

End Sub
"

Спасибо
Все получилось. Все равно хотелось бы добиться и обратного
Дело в том что собираемся переводить на 1С- 8.1 всю бухгалтерию
( склад, материалы, основные...)
Есть много баз dbf exel oracle..., чего только нет
Я пробую различные базы грузить туда сюда
К сожалению не все получается!!

Спасибо за подсказку. Все получилось
Как говорил Шарапов глаз замылился..
Я использовал  V8.Application на версии 8.1
такой вариант работает
CreateObject("V81.Application")