win8中运行vba的一个问题

ugl

系统win8.1,cad2007或2008,运行
Dim AppAcad As Object
Set AppAcad = GetObject(, "AutoCAD.Application")

会提示“429错误，activex无法创建对象”，安装cad2013则无问题，系统换为xp也无问题，请教有无办法解决？

slw7310

在WIN8.1的管理员账号下编译运行

wmz

Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
这样行不行呢？我没有安装此版本，没有试过。