Выполняю задания из самоучителя. Из Excel 2007 пытаюсь передать данные в 1с. Ругается на строку Set ComConnect = CreateObject("V8.COMConnector"). Выдает ошибку activex component can't create object. Пытался наити ответ в поиске, но не нашел. Вроде пишут, что нужно объект какой-то зарегистрировать. Подскажите что делать, чтобы заработало. Вот код.

Sub Передать_в_1С()

Dim ComConnect As Object
Dim Basa As Object
Dim Element As Object
Dim SpravochnikGroup As Object
Dim Vibor As Object

Set ComConnect = CreateObject("V8.COMConnector")
Set Basa = ComConnect.Connect("File=""C:\base\1с82\Глава5"";")
Set SpravochnikGroup = Basa.Справочники.Группы

n_str = 0
While Cells(n_str + 2, 1).Value <> 0
n_str = n_str + 1
Wend

For i = 1 To n_str
name_group = CStr(Cells(i + 1, 1).Value)

Set Vibor = SpravochnikGroup.НаитиПоНаименованию(name_group)
name_1c = Vibor.Наименование
If name_1c = name_group Then
MsgBox ("Группа с наименованием " + name_1c + " уже была")
Else
Set Element = SpravochnikGroup.создатьЭлемент()
Element.Наименование = name_group
Element.Количество = Cells(i + 1, 2).Value
Element.Записать
End If
Next
End Sub

установить легальную 1с

(1) Я, думаю, дело не в этом.
У кого-нибудь еще есть варианты решения проблемы? Или все согласны с (1)? Или всем пофиг?
Заранее спасибо, всем, кто откликнется и (1) в первую очередь.

по гугли по поводу регистрации COMConnector. куча ссылок есть

+(3) зарегистрируй comcntr.dll  в папке BIN

а v8 кроме меня никого не смущает?

Спасибо, буду гуглить дальше

(6) лет ми гугл ит фор йю
v8: v8: Подключение V82.COMConnector

Пока попытался выполнить(4)
дал команду regsvr32 "C:\Program Files (x86)\1cv82\8.2.16.368\bin\Comcntr.dll"
получил ответ успешное выполнение dllregisterserver
Но проблема (0) осталась. Буду дальше гуглить.
Если у кого, есть что сказать, пишите.

(7) Еще не читал, сейчас посмотрю

(9) не надо смотреть, только название

(10) V82 помогло. Спасибо!
Сейчас другая ошибка, с ней сам попробую сам разобраться, если не получится спрошу.

Все заработало, была одна опечатка.
Всем еще раз спасибо!

кусочек из бардачка:
ПоследняяСтрока=Sheet.Cells.SpecialCells(11).Row;