求将明细表另存为excel的api函数

asd3149

求将工程图的明细表另存为excel格式的api函数，或将明细表指定单元格数据读出写入excel也行，拜托了。
2 ~. A% t0 @- ]: T" @

maichengyou

不是可以直接保存成excel吗？

asd3149

maichengyou 发表于 2018-11-1 18:41
不是可以直接保存成excel吗？

是呀，不过我是在做关于这个的二次开发插件，所以想通过代码自动实现这个过程。

lhl2008

看看这一段程序
3 O5 v- \( f7 d3 ~7 S

1. 
   
2. '----------------------------????BOM?????--------------------------
   
3. 
   
4. Private Function TableToExcel(ByVal part As ModelDoc2, _
   
5.                               ByVal inExcelName As String) As Boolean
   
6. 
   
7.     Dim exCOUNT      As Integer
   
8.     Dim swBomFeat    As SldWorks.BomFeature
   
9.     Dim vTableArr    As Variant
   ( f3 |4 j+ J' Q  F$ V
10.     Dim vTable       As Variant
    7 |* [6 l3 H/ a' T
11.     Dim swTable      As Variant
    
12.     Dim swFeat       As SldWorks.feature
    
13.     Dim swWeldmentCutListFeat   As SldWorks.WeldmentCutListFeature
    
14.     Dim vWeldCutListAnnotations As Variant
    8 q( W0 C; A2 g" k) A7 K0 {9 h
15.     Dim WeldForI     As Integer
    9 N. M" \; N) r$ w& W7 u$ @
16.     Dim WeldForJ     As Integer
    
17.     Dim a1           As Integer
    . u3 G1 p, j: `4 K5 `# `  F) \
18.     Dim a2           As Integer
    
19.     Dim s            As String
    : M! Q8 N; p. @$ L% M: @+ J' d
20.     Dim s1           As String
    . f! ?" i0 Q4 Q& G: p3 E: I
21.     Dim s2           As String
    
22.     Dim f1           As Single
    0 N; s  i4 j( S7 s
23.     Dim f2           As Single
    
24.     Dim ExcelName    As String
    
25.     Dim textName     As String
    7 f8 x0 [/ f# T6 i% U
26.     Dim oRes         As New ADODB.Recordset
    
27.     Dim oConn        As New ADODB.Connection
    
28.     Dim myTable()    As String
    & V0 u7 {! b# @) {2 i
29.     Dim bTableIn     As Boolean  '??????д??
    
30.     Dim c1           As String   '????????
    # V  Z, ~1 V: ?. j* _8 k5 @! I
31.     Dim SQLstr       As String   '??????SQL????
    
32.    
    8 W4 ?0 `3 C* N
33.    
    . i) q* O" K  f) q' a( G4 @
34.     On Error GoTo ToExcelErr
    
35.     bTableIn = False
    
36.     ExcelName = inExcelName + ".xls"
    ; t# f1 L, \4 u; v3 Z# E' A0 \. L0 P
37.     Set swFeat = part.FirstFeature
    
38.     Do While Not swFeat Is Nothing
    7 |  e# G' i# ]6 n" \/ [; H- [. `* n
39.         If swFeat.GetTypeName = "BomFeat" Then
    ! w% ^6 k6 d. B: b. `
40.          '--------------- ????????????----------
    ' j5 X, Q4 F) d8 A/ d8 e, {! O7 ?
41.             Set swBomFeat = swFeat.GetSpecificFeature2
    " s& M* T3 v6 b( Z9 j
42.             vTableArr = swBomFeat.GetTableAnnotations
    8 m( C+ D8 _) L, T8 S
43.             For Each vTable In vTableArr
    0 }) [5 C) b3 M! W# Z. ?
44.                 Set swTable = vTable
    0 L. }. S0 w& M2 E% `, W, Z
45.                 exCOUNT = swTable.RowCount - 2
    
46.                 bTableIn = True
    ! i/ w  P0 L0 D! _3 x5 b; C
47.                 ReDim myTable(0 To exCOUNT, 0 To 8) As String  '????????
    % x' g9 }8 l% s; G, I4 v' V
48.                 For a1 = 0 To exCOUNT
    ' J6 V( R% \/ \9 U
49.                     For a2 = 0 To swTable.ColumnCount
    
50.                         If IsNull(swTable.text(a1, a2)) Then
    * {# X1 O' p2 K' w
51.                             s = " "
    
52.                         Else
    / ~9 b; ~( m) i
53.                             s = swTable.text(a1, a2)
    2 T" Y$ X( I& b
54.                             'If Len(s) = 0 Then s = " "
    : R0 c/ _. Y, [* Q6 N
55.                         End If
    % {& r3 ?7 `; c9 A9 Y1 z3 Q
56.                         myTable(a1, a2) = s
    
57.                     Next a2
    7 P2 O1 h# Z3 c' h: I
58.                 Next a1
    . _+ q7 z0 z. V1 n- X
59.             Next vTable
    % a( s! M0 f# Q2 k4 G9 M- M
60.         End If
    
61.             
    
62.         If swFeat.GetTypeName = "WeldmentTableFeat" Then
    
63.              '-----------------?????и?????????-----------
    ' M$ u8 o  @8 t9 [8 Q; I& b
64.             Set swWeldmentCutListFeat = swFeat.GetSpecificFeature2
    . b3 {% S" Y& T: _) ~" w
65.             vWeldCutListAnnotations = swWeldmentCutListFeat.GetTableAnnotations
    
66.             WeldForJ = vWeldCutListAnnotations(0).ColumnCount - 1
    / Q: q$ L' @3 R" D* E' f
67.             exCOUNT = vWeldCutListAnnotations(0).RowCount - 2
    5 I; f* F- |) o" N1 x0 _) _2 L
68.             bTableIn = True
    
69.             ReDim myTable(0 To exCOUNT, 0 To 8) As String
    
70.             For a1 = 0 To exCOUNT
    3 k5 s$ u- }0 c% N2 O3 _6 L
71.                 For a2 = 0 To WeldForJ
    
72.                     If IsNull(vWeldCutListAnnotations(0).text(a1, a2)) Then
    ' K  m% K0 @5 F  S
73.                         s = " "
    ) F' Z% E6 Z7 m: u
74.                     Else
    
75.                         s = vWeldCutListAnnotations(0).text(a1, a2)
    2 r6 C" B  B3 J4 f9 v; m
76.                         'If Len(s) = 0 Then s = " "
    
77.                     End If
    : c  D# \* r3 O+ I
78.                     myTable(a1, a2) = s
    
79.                 Next a2
      m# Q( C, @6 w' b
80.             Next a1
    / m% T4 V6 G- c% n4 a: e5 p. J
81.       
    
82.             '????????????????????????????????(?????????????)???,???????????????????
    
83.             For a1 = 0 To exCOUNT
    
84.                 s = myTable(a1, 6)
    
85.                 s1 = myTable(a1, 7)
    , ?2 _9 k% F, d
86.                 If Len(Trim(s)) > 0 Then
    - M4 B8 U* H3 p$ X) o9 o5 U
87.                     If Len(Trim(s1)) = 0 Then
    
88.                         myTable(a1, 7) = "L=" & s
    ' g4 @9 G( `- L( [
89.                     Else
    . k/ B# w; a; T! v
90.                         myTable(a1, 4) = myTable(a1, 5) + "  L=" + s
    ) g$ j: Q0 l. _; |
91.                     End If
    # D) I9 P! B# U& N
92.                 End If
    
93.             Next a1
    5 E% }8 r4 c0 J/ F$ q5 j; g
94.             
    ! p+ D3 h# U' _
95.         End If
    7 t: r& k# X" L3 N, P
96.         Set swFeat = swFeat.GetNextFeature
    
97.     Loop
    / o' E) P# ?' h+ d
98.    
    
99.     If bTableIn Then  '??????????????????????excel???
    ) N" H: s+ y* v; b  d; _
100.         For a1 = 0 To exCOUNT          '????????[3] X [5]?????
     
101.             s = myTable(a1, 3)
     2 G* {3 y2 a* R  c0 Q
102.             s1 = myTable(a1, 5)
     
103.             If Len(Trim(s)) > 0 Then
     
104.                 f1 = CSng(s)
     : s0 S! s0 F1 C* H- H# O
105.             Else
     
106.                 f1 = 0
     
107.             End If
     
108.             If Len(Trim(s1)) > 0 Then
     5 T* y8 Q, I( u/ M- Y- X; l
109.                f2 = CSng(s1)
     ) n2 Y5 f. `6 c1 C. l- H$ j1 x
110.             Else
     ; Y, l6 c% L" P; z9 v
111.                f2 = 0
     
112.             End If
     
113.             myTable(a1, 6) = Format(f1 * f2, "##0.00")
     
114.         Next a1
     
115.         DeleteFile ExcelName      '??????·???е?????????????
     2 W+ y9 q2 p2 Q; h" N+ {
116.         oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelName & ";Extended Properties=""Excel 8.0;"""
     ! C7 S5 j* G: w
117.         oRes.Open "CREATE TABLE a (IndexID TEXT,PCPNO TEXT,PCPName TEXT,Amount TEXT,MaterialName TEXT,Weight TEXT,Tweight TEXT,Remark TEXT,Source TEXT)", oConn, adOpenStatic
     
118.    
     
119.         For a1 = exCOUNT To 0 Step -1
     
120.             s = "IndexID,PCPNO,PCPName,Amount,MaterialName,Weight,Tweight,Remark"
     
121.             s2 = ""
     $ B# M  D$ K! K
122.             c1 = """"
     
123.             For a2 = 0 To 7
     
124.                 myTable(a1, a2) = c1 & myTable(a1, a2) & c1
     
125.                 s2 = s2 & myTable(a1, a2) & ","             '???????????????
     7 m' @4 m; e- C$ r1 D$ f
126.             Next a2
     * s# T1 P9 C2 E4 V& K
127.             s2 = Left(s2, Len(s2) - 1)
     - n! `" k" H0 _# \
128.             SQLstr = "INSERT INTO a (" & s & ") VALUES (" & s2 & ")"
     9 f6 ?+ ]! C2 D" P# ^$ L, I+ k
129.             oRes.Open SQLstr, oConn, adOpenStatic
     
130.         Next a1
     
131.         oConn.Close
     
132.     End If
     : e2 O3 s5 b3 T
133.    
     
134.       
     
135.     TableToExcel = True
     1 X: J( y7 y5 C
136.     Exit Function
     $ e3 k6 Y  G4 S1 M, ~
137. ToExcelErr:
     ; ]  ], H, |% H$ S# H) Z
138.     TableToExcel = False
     3 j5 h* \( t6 W6 U8 n
139. 
     3 V% p' d$ ~' E" |* O7 ]
140. End Function

复制代码

* T# k1 V8 C; T7 X8 G
/ B$ h$ t! @+ u. D& V0 f4 a2 |7 ^4 O
! I5 F9 k. P3 R, A- i

nizhen6007

想法不错啊，楼上的代码可行吗？？