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

"В Exel-файле хранится список, например контрагентов который загружаетя в 1С<br>Макрос который запускает требуемую базу 1С в режиме СОМ-соединения <br><br> Dim cntr As Object<br> Dim trade As Object<br> Dim Элемент As Object<br> Dim СправочникКонтрагентов As Object<br> Dim ГруппаКонтрагентов As Object<br> <br> Set cntr = CreateObject("V8.COMConnector")<br> Set trade = cntr.Connect("File=""""D:\Base_A"""";Usr="""" """";")<br><br> При запуске макроса выдается сообшение<br> ActiveX component can't create object or return reference to this object (Error 429)<br><br> Создание объектов требует, чтобы класс объекта регистрировался в ключе автозапуска <br> системного реестра, и что любые связанные с динамической библиотеки (DLL) будет доступна.<br><br><br> Перепробовал очень много всего, ничего не помомогает.<br> Уровень безопасности низкий, запуск макросов разрешен,<br> регестрировал библиотеку вручную: RegSvr32 "C:\Program Files\1Cv81\bin\comcntr.dll",<br> в ссылках(References) все необходимые библиотеки отмечены, <br> установил Visual Basic 6.0, все та же ошибка, ActiveX не может создать объект.<br> <br> <br> Кто сталкивался с такой проблемой и знает как её решить, помогите! Хотя бы советом или <br> рекомендацией... <br><br><br> "

А вы пытаетесь зацепиться из Excel к 1С? ИМХО проще наоборот из 1С зацепиться к Excel %)<br><br>~~~ Красноярск, http://x-frame.ru ~~~

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

"Ну в кратце так:<br><br>Файл = ПолучитьCOMОбъект(путь_к_файлу); // получение СОМ-объекта<br>Значение = Файл.Sheets(1).Cells(1,1).Value; // получение значения первой ячейки первого столбца на 1-м листе.<br><br>Первая строка цепляется к файлу, а потом в цикле считываете значения и делаете с ними, чего хотите <br><br>~~~ Красноярск, http://x-frame.ru ~~~<br>"

"у меня работа такой код<br><br>Sub Excel_to_trade()<br><br>Dim trade As Object<br>Dim Элемент As Object<br>Dim СправочникОС As Object<br>Dim ГруппаОС As Object<br>Dim k As String<br><br> Set trade = CreateObject("V81.Application")<br> trade.Connect ("File=""""d:\1Cv8\but"""";Usr=""""Бухгалтер"""";Pwd=""""01""""")<br> Set СправочникОС = trade.Справочники.ОсновныеСредства<br><br>For Count = 1062 To 2104<br> k = Application.Cells(Count, 4).Value<br> If k = """" Then<br>       Set ГруппаОС = СправочникОС.СоздатьГруппу()<br>       ГруппаОС.Наименование = Application.Cells(Count, 5).Value<br>       ГруппаОС.Записать<br> Else<br>       Set Элемент = СправочникОС.СоздатьЭлемент()<br>       Элемент.Наименование = Application.Cells(Count, 5).Value<br>       Элемент.Родитель = ГруппаОС.Ссылка<br>       Элемент.Записать<br> End If<br>Next Count<br><br>End Sub<br>"

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

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