winer3086 发表于 2011-2-9 11:11:45

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

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

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
页: [1]
查看完整版本: excel VBA 打开CAD出现问题(解密数据时错误)