Подскажите пожалуста
что не так?
на строке set выдает ошибку
Run-time error 91
Object variable or With block variable not set


Private Sub Workbook_Open()
On Error Resume Next
'определение есть объект или нет
pr = MyKurs.Controls.Count
If pr < 1 Then
'регистрация календаря
Program = "regsvr32 /s mscal.ocx"
Taskedit = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Не возможно зарегистрировать календарь.", vbCritical
Exit Sub
End If
On Error GoTo 0

'добавление календаря
Dim MyCal As MSACAL.Calendar
Set MyCal = ThisWorkbook.VBProject.VBComponents("MyKurs").Designer.Controls.Add("MSACAL.Calendar")
End If
End Sub

White Owlвсе не так.
Начать надо с того, что регестрировать и перерегестрировать OCX при каждом запуске книги это чрезвычайно извращенно. ОСХ должен регестрироваться инсталлятором, один раз.

Во вторых, ключевое слово DIM не должно быть в центре процедуры. Оно всегда должно идти в начале.

В третьих, динамически строить диалоги конечно можно, но все же не нужно. Это гарантирует странные глюки если не сейчас, то потом.

Ну и в четвертых, VBComponents("MyKurs") это не ссылка на твой объект типа Forms. Чтобы добраться до форм надо писать что-то вроде: VBComponents("MyKurs").Collection("MyUserForm").Designer..... и так далее.

с инстолятором не знаком поэтому и стоит проверка следовательно регистрируется он один раз
на счет Dim согласен принимаю раслабился
динамически строить диалоги - это что? Я у себя диалогов не нашел.
а вот что-то вроде спасибо очень помогло,
жаль что только не работает, сам бы сначала проверил а потом советовал.

Знатоки подскажите пожалуста
первый set работает а на второй дает ошибку
"Rin-time 429
ActiveX component can't create object

Dim MyCal As Calendar
Dim d As CommandButton
Set d = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls.Add("forms.CommandButton.1")
Set MyCal = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls.Add("cal.Calendar")

Пользователь2

спасибо огромное два дня бился
однако заметил странную штуку
из стандартного модуля всё в порядке
а из "Эта Книга" не работает

если на компе не зарегистрирован mscal.ocx
то при открытии книги ругается на
Dim cal As MSACAL.Calendar
возможно ли как-то это обойти?

Пользователь2А что мешает его зарегистрировать?

так и хотелось что бы само регистрировалось и добавляла контролы