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

[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 не знаю...

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

 

[LSH]

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

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

И после регистрации все равно вылетает ошибка
Run-Time error 2
Application-Defined or Object-Defined error

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

 

[SiN]

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