[求助]：有关VBA问题请高手指点。

czg09180274

http://www.xdcad.net/forum/showt ... 1468988#post1468988

原程序是上面提供的这一个，
加载时总是提示“错误的模块”。在VBA IDE里运行时也总是提示“编译错误：用户定义类型未定义”，不知这是什么问题。
要是哪位明白这是什么原因，还请多指教。

（小弟不太懂VBA，所以请指点如何正确来使用）

先谢谢过各位了

马甲

到※VBA、COM-ActiveX Interfaces 开发技术※发个帖子问一下，应该有人帮你。嘻嘻。

ahlzl

那个主题中第二楼已说过“要引用”。
你要是不会，可先用下面的代码（不需要引用的）：[php]
Sub test()
  On Error Resume Next
  Dim ent As Object
  Dim pt As Variant
  Dim att As Variant
  Dim m As Integer
  Dim xl As Object
  Dim xb As Object
  Dim xs As Object
  On Error Resume Next
  Set xl = GetObject(, "excel.application")
  If Err Then
    Err.Clear
    Set xl = CreateObject("eccel.application")
    If Err Then
      MsgBox "excel isn't started"
      Exit Sub
    End If
   End If
  Set xb = xl.workbooks.Add
  Set xs = xb.activesheet
  ThisDrawing.Utility.GetEntity ent, pt, "select entity: "
  While Err
    Err.Clear
    ThisDrawing.Utility.GetEntity ent, pt, "select entity: "
  Wend
  xl.Visible = True
  xs.cells(1, 1) = ("Tag")
  xs.cells(1, 2) = ("Text")
  If ent.ObjectName = "AcDbBlockReference" Then
    If ent.HasAttributes Then
      att = ent.GetAttributes
        For m = LBound(att) To UBound(att)
          xs.cells(m + 2, 1) = att(m).TagString
          xs.cells(m + 2, 2) = att(m).TextString
        Next
    End If
  End If
End Sub[/php]

有VBA的问题应去VBA版询问。

czg09180274

非常感谢楼上两位的指点，
还有AHLZL斑主的程序。