проблема с ActiveX

iolkin

Возникла проблема при создании объектов ActiveX, например в Excele
На стандартную строчку CreateObject("access.application") объект не создается. Никто не знает в чем тут может быть проблема?

aleks058

Ошибка какая-то есть?

iolkin

нет, ошибки-то как раз при создании не выдает....потом уже, когда начинаешь работать с объектом, то выдает ошибку при неверной работе с object
главное, что он просто не запукает application, который ему указываешь

Sebasten

Может он его "невидимым" по умолчанию запускает и тебе для счастья не хватает строчки

objexcel.Visible = True

iolkin

да вот как раз на эту строчку он ошибку и выдает
"object variable or With block variable not seen"
вообще не понимаю в чем может быть проблема!

0000

А так? че покажет?

Sub MySub
Set obj = CreateObject("access.application")
obj.Visible = True
MsgBox "OK"
End Sub

iolkin

тоже самое
уже несколько раз проверял...ничего не получается

iolkin

на других тачках проверял - все работает...а у меня - ни хера...не понимаю

0000

че окошко появляется, а access нету?

iolkin

угу aссess не запускается.....ошибка вылезает на строчку
app.visible = true

0000

Попробуй либо комп перегрузить, либо office типа repair сделать.

iolkin

ты сейчас будешь в ахуе, потому что я ни только офис переставил, я всю систему переустановил
правда это было связанно естественно ни с этой проблемой, а просто время пришло
но к моему глубокому удивлению эта проблема так и не решилась!

iolkin

я просто хочу понять может ли тут быть проблема на системном уровне?

0000

А всякие SP и прочее накатил? А excel.application создает?

iolkin

угу....вроде сделал....
не создает

0000

хрень какая то. единственное что в голову приходит попробовать выполнить
regsvr32 <путь>/MSACC8.OLB

iolkin

можешь объяснить что эта штуковина делает?
т.е что такое regsvr32 мне известно, а что дальше?

iolkin

еще вопрос: какие можно еще тесты придумать на объекты ActiveX?....чтоб проверить работоспособность последних

0000

Регает COM-объект, в данном случае Access [если верить инету]

0000

Запихай в vbs фаил

Set obj = CreateObject("access.application")
obj.Visible = True
MsgBox "OK"

и выполни

iolkin

еще пока не стоит ....надо поставить, тогда посмотрю

0000

Че ставить? vbs и так выполнится

iolkin

извени, а что ты подразумеваешь под vbs?

iolkin

Все, разрулил я проблему!
Оказалось все дело в ебучем Касперском!
У этих гавриков по умолчанию стоит проверка VBA макросов, а там стоит запрет на создание
ActiveX объектов. Ну я затрахался же я.
Короче, тема закрыта.

aleks058

Поздравляю!
Видно, что ты проделал большую работу
Оставить комментарий
Имя или ник:
Комментарий: