8.х Перенос данных из Excel в 1С

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем saleks2001, 14 фев 2008.

  1. TopicStarter Overlay
    saleks2001
    Offline

    saleks2001

    Регистрация:
    27 сен 2007
    Сообщения:
    22
    Симпатии:
    0
    Баллы:
    1
    Пример обращения к программе 1С:Предприятие 8.0 из модуля MS Excel через COM-соединение,
    ругается на: Set cntr = CreateObject("V8.COMConnector"), пишет:"Не найден указанный модуль"
    что за ошибка, подскажите.


    Код:
    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
  2. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Проверь букву "С" - могла русская попасть...

Поделиться этой страницей