8.х Подключиться к 1С из Excel и вытащить данные

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Xpavel86, 29 апр 2010.

  1. TopicStarter Overlay
    Xpavel86
    Offline

    Xpavel86

    Регистрация:
    17 фев 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Сделал скрипт на VBS по аналогии как в справке 1с, он не работет, что не так подскажите.

    Код:
    Private Sub CommandButton1_Click()
    
    Dim cntr As Object
    Dim trade As Object 
    Dim Элемент As Object
    Set cntr = CreateObject("V81.COMConnector")
    Set trade = cntr.Connect("File=""\\192.168.13.2\bazi\1cv8_base\Pik""; Usr=""Robot"";")
    Set СправочникКонтрагентов = trade.Справочники.Контрагенты
    Set ГруппаКонтрагентов = СправочникКонтрагентов.СоздатьГруппу()
    ГруппаКонтрагентов.Наименование = "***** Экспорт из Excel ******"
    ГруппаКонтрагентов.Записать
    N = 100   'Количество строк в документе
    For Count = 1 To N
    Set Элемент = Справочники.Контрагенты.СоздатьЭлемент()
    
    Элемент.НаименованиеПолное = Application.Cells(Count, 2).Value
    Элемент.Родитель = ГруппаКонтрагентов.Ссылка
    Элемент.Записать
    Next Count
    
    End Sub
    
  2. eviloid
    Offline

    eviloid Опытный в 1С

    Регистрация:
    15 май 2008
    Сообщения:
    103
    Симпатии:
    0
    Баллы:
    26
    здесь собака порылась :unsure:

    надо:

    Set Элемент = СправочникКонтрагентов.СоздатьЭлемент()
    :smile:
  3. TopicStarter Overlay
    Xpavel86
    Offline

    Xpavel86

    Регистрация:
    17 фев 2009
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Все разобрался.
    Вообще ерись написал )))

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