求用VBA自动注册控件实例

明镜

如题,要求在注册前先判断这个控件有没有注册过，如没有注册,提示注册,如已经注册过，那就跳过了,

tmtony

判断一个控件是否注册,可用下面代码
on error resume next

dim tmpOjb as object

set tmpobj=createobject("库名.类名")

if tmpobj=nothing then  对偶使用无效
    msgbox "未注册"
else
    msgbox "已注册"
end if

不过, 其实可以判断你的引用有否丢失,有丢失就用代码 注册所有控件
可用API 或直接使用regsvr32 命令