如何将CAD2006中的表格输出到EXCEL格式

sapv6

如何将CAD2006中的表格输出到EXCEL格式.成分感谢各位的帮助,可否详细告知.谢谢.

martin_wis

复制、粘贴？呵呵，以前都使用这种傻办法解决的，很期待能有高手指点。

maoyangmy

2008中可以采用提取数据功能来实现。

woaishuijia

使用下面代码前,必须先在VBAIDE中引用EXCEL类库

1. 
   # ]( h/ n: H3 b: n6 T. z
2. Sub TableToExcel()
   . T- c* T5 w) s4 C
3.     Dim SS As AcadSelectionSet '声明一个选择集对象变量,用于从屏幕上选择CAD表格对象
   + K) Y, Y* E) P" Y
4.     Dim FT(0) As Integer, FD(0) As Variant '声明选择集过滤器,用于限制从屏幕上选择的对象类型
   
5.     Dim T As AcadTable '声明一个CAD表格变量
   
6.    
   
7.     FT(0) = 0 '设置选择集过滤器,限制从屏幕上选择的对象仅限于CAD表格,而不是其它对象
   
8.     FD(0) = "ACAD_TABLE"
   
9.     With ThisDrawing
   
10.         Set SS = .SelectionSets.Add("SS") '新建选择集
    . i& A5 q$ B* A; G/ h. Q& I
11.         On Error Resume Next
    
12.         SS.SelectOnScreen FT, FD '从屏幕上选取CAD表格对象
    
13.         If Err Then Exit Sub
    
14.         If SS.Count > 0 Then '如果有效选取了表格对象
    
15.             Set T = SS.Item(SS.Count - 1)'如果选择了多个CAD表格对象,只对最后一个进行处理
    8 l0 Z# @6 p! p1 N
16.             
    7 P& m. w; d1 J0 Q
17.             Dim E As New Excel.Application '声明并启动一个EXCEL进程
    
18.             Dim B As Workbook '声明一个EXCEL工作簿变量
    . y, }) Y$ e% z3 `4 Y4 P# h6 i
19.             Dim I As Long, J As Long '循环变量
    
20.             
    2 M4 r! _' x2 n8 q4 K' a
21.             E.Visible = True '新启动的EXCEL进程对用户是可见的
    
22.             Set B = E.Workbooks.Add '新建EXCEL工作簿
    
23.             For I = 0 To T.Rows - 1 '从CAD表格中逐单元格向EXCEL中复制
    
24.                 For J = 0 To T.Columns - 1
    
25.                     B.Sheets(1).Cells(I + 1, J + 1).Value = T.GetText(I, J)
    
26.                 Next
    
27.             Next
    0 @& w# [0 h7 H- w
28.         End If
    
29.         SS.Delete '删除用过的选择集
    
30.     End With
    4 n  G! P1 f' W3 l+ m
31. End Sub
    

复制代码

南部笨熊

好像有外挂软件
- g- |7 ~( P1 @) K+ n6 x) f :victory: