Все тот же импорт из Excel

Тема в разделе "1C и всё что с ней связано", создана пользователем SiN, 5 авг 2008.

  1. SiN

    SiN Гость

    Пытаюсь разобраться с импортом из Excel в 1с 7.70.624

    Sub Given()

    Dim trade As Object
    Dim Тест As Object
    Set trade = CreateObject("v77.Application")
    Result = trade.Initiliaze(trade.RMTrade, "/DZ:\1sBud6/M", "")
    Set Тест = trade.EvalExpr("CreateObject(""Справочник.Тест"")")
    Тест.Код = Application.Cells(1, 1).Value
    Тест.Наименование = Application.Cells(2, 1).Value
    Тест.Тест1 = Application.Cells(3, 1).Value
    Тест.Тест2 = Application.Cells(4, 1).Value
    Тест.Записать

    End Sub

    Вот такой вот простенький код... и не работает, зараза... Выдает ошибку при инициализации базы 1с следующего вида: "Run-Time Error 438. Object doesn't support this property or method"

    Хотя вроде все по книжке написал... Единственно что база стоит на сет. диске Z:\1sBud6, и работаю я не на сервере(если это важно)

    Что не так?

    и еще... каким образом в командной строке прописать имя пользователя и пароль?


    Про ошибку вопрос снимаю

    Ошибся в букве)))

    Новый вопрос: Почему он регистрирует новую базу, когда я хочу изменить указанную?

    И после регистрации все равно вылетает ошибка

    Run-Time error 2
    Application-Defined or Object-Defined error

    и еще говорит Return WithOut GoSub
    хреново, что VBA не знаю...

    Все всем спасибо снимаю вопрос с повестки дня
     
  2. LSH

    LSH Гость

    Регистрирует новую базу потому, что неверно указан параметр:
    (trade.RMTrade, /D"Z:\1sBud6/M", "")

    А справочник "Тест" есть в конфигурации? Может ошиблись с русскими-английскими буквами в названии справочника?
     
  3. SiN

    SiN Гость

    Все, все... У меня уже все работает, просто я записывал элемент справочника с одним и тем же кодом, а так как присутствует контроль уникальности, вот и ошибка:) Все равно, спасибо за участие:)
     
Загрузка...

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