excel VBA 打开CAD出现问题（解密数据时错误）

winer3086

各位高人，小弟先谢谢了。

Private Sub CommandButton2_Click()
    Dim CADObj As AcadApplication
    Dim BTLblock As AcadBlockReference
   
    Dim cadDOC As AcadDocument
    'Set CADObj = New AcadApplication
    'CADObj.Visible = True
    Set CADObj = GetObject(, "AutoCAD.Application")
'运行到下一句出现问题
    Set cadDOC = CADObj.Documents.Open("E:\1#小屋平面.dwg")
   
End Sub

注：我用的是AUTOCAD2011