未定义类型 错误，无法运行vba

ddbb2008

http://bbs.mjtd.com/thread-96754-1-1.html
提取块属性的代码：

• Sub aa()
  
• Dim bobj As AcadBlockReference
  
• Dim a
  
• Dim arr()
  
• Dim ss As AcadSelectionSet
  
• Dim filtertype(0 To 0) As Integer
  
• Dim filterdata(0 To 0) As Variant
  
• Dim xls As Excel.Application
  
• Set xls = New Excel.Application
  
• Set ss = ThisDrawing.SelectionSets.Add(CStr(Rnd))
  
• filtertype(0) = 0
  
• filterdata(0) = "insert"
  
• ss.SelectOnScreen filtertype, filterdata
  
• For Each bobj In ss
  
• i = i + 1
  
• ReDim Preserve arr(1 To i)
  
• a = bobj.GetAttributes
  
• arr(i) = a(0).TextString
  
• Next
  
• With xls.Workbooks.Add
  
•    .Sheets(1).[a1].Resize(i, 1) = xls.Transpose(arr)
  
•    .SaveAs "d:/123.xls"
  
•    .Close
  
• End With
  
• xls.Quit
  
• End Sub
  为什么我使用代码运行会出现这样的错误呢
  
  
  
  

wylong

打开VBA IDE工具-引用，在引用里面勾选“Microsoft Excel  14.0  Object  Library”。(注：如果你安装的EXCEL为2010；其他版本类似)

ddbb2008

wylong 发表于 2013-11-6 16:10
打开VBA IDE工具-引用，在引用里面勾选“Microsoft Excel  14.0  Object  Library”。(注：如果你安装的EXC ...

谢谢你的回复， 我装的是07版excel 引用以后，代码可以运行了，但是出现这个，是怎么回事？

ddbb2008

wylong 发表于 2013-11-6 16:10
打开VBA IDE工具-引用，在引用里面勾选“Microsoft Excel  14.0  Object  Library”。(注：如果你安装的EXC ...

我把代码中得xls  改成  xlsx 以后就变成这样，实在不知道问题在哪儿，，，，

wylong

2. 错误提示的是命名选择集已存在。
   
3. 问题在此句：Set ss = ThisDrawing.SelectionSets.Add(CStr(Rnd))
   
4. 
   
5. 建议改为这样：Set ss = CreateSelectionSet
   
6. 
   
7. CreateSelectionSet函数定义如下：
   
8. '返回一个空选择集
   
9. Public Function CreateSelectionSet(Optional SelectionSetName As String = "mjtd") As AcadSelectionSet
   
10.     On Error Resume Next
    
11.     ThisDrawing.SelectionSets(SelectionSetName).Delete
    
12.     Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SelectionSetName)
    
13.     On Error GoTo 0
    
14. End Function

错误提示的是命名选择集已存在。<br /> 问题在此句：Set ss = ThisDrawing.SelectionSets.Add(CStr(Rnd))<br /> <br /> 建议改为这样：Set ss = CreateSelectionSet<br /> <br /> CreateSelectionSet函数定义如下：<br /> '返回一个空选择集<br /> Public Function CreateSelectionSet(Optional SelectionSetName As String = "mjtd") As AcadSelectionSet<br />     On Error Resume Next<br />     ThisDrawing.SelectionSets(SelectionSetName).Delete<br />     Set CreateSelectionSet = ThisDrawing.SelectionSets.Add(SelectionSetName)<br />     On Error GoTo 0<br /> End Function