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

asd3149

求将工程图的明细表另存为excel格式的api函数，或将明细表指定单元格数据读出写入excel也行，拜托了。

maichengyou

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

asd3149

maichengyou 发表于 2018-11-1 18:41
2 Q! r1 C# |& w* g( T% P不是可以直接保存成excel吗？

+ ^# a* v; E* T) n" o是呀，不过我是在做关于这个的二次开发插件，所以想通过代码自动实现这个过程。

lhl2008

看看这一段程序

1. 
   
2. '----------------------------????BOM?????--------------------------
   
3. 
   
4. Private Function TableToExcel(ByVal part As ModelDoc2, _
   
5.                               ByVal inExcelName As String) As Boolean
   
6. 
   2 u+ P- E0 ]- g% S9 P6 s
7.     Dim exCOUNT      As Integer
   " ?! V$ j( y. @8 v! ~* a2 W) T
8.     Dim swBomFeat    As SldWorks.BomFeature
   * m! Y$ r  e( e/ p
9.     Dim vTableArr    As Variant
   / f% G0 a# {% }' f( a; I( I# k) p
10.     Dim vTable       As Variant
    ' I- M+ `/ p* c# d! q
11.     Dim swTable      As Variant
    
12.     Dim swFeat       As SldWorks.feature
    
13.     Dim swWeldmentCutListFeat   As SldWorks.WeldmentCutListFeature
    5 q7 x& ?* U; B
14.     Dim vWeldCutListAnnotations As Variant
    
15.     Dim WeldForI     As Integer
    2 x, A% g' V" a. _+ R. N& i9 F
16.     Dim WeldForJ     As Integer
    
17.     Dim a1           As Integer
    
18.     Dim a2           As Integer
    
19.     Dim s            As String
    % K& [) X; Y- ?! y8 Q! ]6 Q
20.     Dim s1           As String
    
21.     Dim s2           As String
    2 ^7 \8 i/ O& J7 ~/ ?2 _" H
22.     Dim f1           As Single
    
23.     Dim f2           As Single
    
24.     Dim ExcelName    As String
    
25.     Dim textName     As String
    
26.     Dim oRes         As New ADODB.Recordset
    
27.     Dim oConn        As New ADODB.Connection
    3 a( Z4 R- d; B: ^
28.     Dim myTable()    As String
    , y, R; q0 `* g, i
29.     Dim bTableIn     As Boolean  '??????д??
    1 G5 \# v5 ?7 y* l3 M. u
30.     Dim c1           As String   '????????
    % u! i" q) O! V) }! c3 _
31.     Dim SQLstr       As String   '??????SQL????
    
32.    
    
33.    
    
34.     On Error GoTo ToExcelErr
    * c) B2 r/ ^- X, q) W
35.     bTableIn = False
    # k6 Y8 V. [7 P* r0 g0 q+ \; W1 O8 b
36.     ExcelName = inExcelName + ".xls"
    
37.     Set swFeat = part.FirstFeature
    / |4 R: m$ ?+ I2 C: ^6 i2 l
38.     Do While Not swFeat Is Nothing
    1 o9 G! \- @2 {0 O! f3 F( i( X
39.         If swFeat.GetTypeName = "BomFeat" Then
    
40.          '--------------- ????????????----------
    
41.             Set swBomFeat = swFeat.GetSpecificFeature2
    ' t! w, H9 x# A* H% ?
42.             vTableArr = swBomFeat.GetTableAnnotations
    
43.             For Each vTable In vTableArr
    * ]8 n8 N! |. q( O
44.                 Set swTable = vTable
    
45.                 exCOUNT = swTable.RowCount - 2
    * ]) y+ K4 k) d; S# o0 w
46.                 bTableIn = True
    
47.                 ReDim myTable(0 To exCOUNT, 0 To 8) As String  '????????
    
48.                 For a1 = 0 To exCOUNT
    # g1 x% m2 I" ^1 Q" K! V& A! n
49.                     For a2 = 0 To swTable.ColumnCount
    
50.                         If IsNull(swTable.text(a1, a2)) Then
    
51.                             s = " "
    4 q2 L/ A- j+ q, k4 U# S4 S# s
52.                         Else
    
53.                             s = swTable.text(a1, a2)
    ' _  P2 r0 h8 r  v! F7 R, n
54.                             'If Len(s) = 0 Then s = " "
    
55.                         End If
    : c2 X- ~: J" r+ {  B# x% B% K
56.                         myTable(a1, a2) = s
    # |& h6 [) C9 H( @8 i
57.                     Next a2
    3 m% d2 ~/ {1 N1 ?% c9 x
58.                 Next a1
    : u: E8 g$ `' v
59.             Next vTable
    
60.         End If
    0 F: ^0 H- W/ a+ b& G' }& X( G3 V
61.             
    
62.         If swFeat.GetTypeName = "WeldmentTableFeat" Then
    
63.              '-----------------?????и?????????-----------
    5 F( W- c9 t% U" v# P
64.             Set swWeldmentCutListFeat = swFeat.GetSpecificFeature2
    : M8 _/ ]# k" d
65.             vWeldCutListAnnotations = swWeldmentCutListFeat.GetTableAnnotations
    # j) ]; C* }3 j: Y9 j
66.             WeldForJ = vWeldCutListAnnotations(0).ColumnCount - 1
    
67.             exCOUNT = vWeldCutListAnnotations(0).RowCount - 2
    5 j& S( E! Y2 @) _' g" h
68.             bTableIn = True
    ( s+ ^# l3 \0 i6 B) q2 q1 d9 E5 Q
69.             ReDim myTable(0 To exCOUNT, 0 To 8) As String
    
70.             For a1 = 0 To exCOUNT
    ! _; y. |" |! ?0 B+ g" U& j
71.                 For a2 = 0 To WeldForJ
    
72.                     If IsNull(vWeldCutListAnnotations(0).text(a1, a2)) Then
    0 z3 E0 o, B' ^  S! Q
73.                         s = " "
    
74.                     Else
    ( v# x2 t0 m$ C
75.                         s = vWeldCutListAnnotations(0).text(a1, a2)
    
76.                         'If Len(s) = 0 Then s = " "
    
77.                     End If
    
78.                     myTable(a1, a2) = s
    
79.                 Next a2
    
80.             Next a1
    ; {+ v6 p9 X2 j; \5 w
81.       
    9 c  ~* Q4 y, z6 l9 y, u" N
82.             '????????????????????????????????(?????????????)???,???????????????????
    
83.             For a1 = 0 To exCOUNT
    % Y3 Z( S4 T, u8 E% l9 M6 o; {
84.                 s = myTable(a1, 6)
    9 E0 q5 x, D4 e, Q8 l/ U! m& J
85.                 s1 = myTable(a1, 7)
    
86.                 If Len(Trim(s)) > 0 Then
    * I8 e" ?( M3 K2 j6 a/ S& M9 t
87.                     If Len(Trim(s1)) = 0 Then
    ; N& r2 j; W( u
88.                         myTable(a1, 7) = "L=" & s
    
89.                     Else
    
90.                         myTable(a1, 4) = myTable(a1, 5) + "  L=" + s
    
91.                     End If
    
92.                 End If
    
93.             Next a1
    / v, r; T9 K& Y! z
94.             
    ( C4 r, w. r/ D" O  H
95.         End If
    
96.         Set swFeat = swFeat.GetNextFeature
    
97.     Loop
    & J! q9 m( D6 i" a! }+ z# a. I
98.    
    3 s" E: `( t# N
99.     If bTableIn Then  '??????????????????????excel???
      g( H: f$ U/ W! O0 F
100.         For a1 = 0 To exCOUNT          '????????[3] X [5]?????
     2 n! K' B( Z* b/ }
101.             s = myTable(a1, 3)
     
102.             s1 = myTable(a1, 5)
       [. v) O& q" _
103.             If Len(Trim(s)) > 0 Then
     ; W2 L8 X: `; q+ m2 L8 `
104.                 f1 = CSng(s)
     
105.             Else
     % X! M; T6 }) F
106.                 f1 = 0
     
107.             End If
     - u, o$ a8 L6 f* u" d# h
108.             If Len(Trim(s1)) > 0 Then
     
109.                f2 = CSng(s1)
     8 t9 `. @% \3 I+ y
110.             Else
     6 x& U1 h8 J+ h" t
111.                f2 = 0
     
112.             End If
     
113.             myTable(a1, 6) = Format(f1 * f2, "##0.00")
     2 {$ u% g5 \3 d. g
114.         Next a1
     + Q2 v" M" c* W$ e7 e( u7 s: m2 X
115.         DeleteFile ExcelName      '??????·???е?????????????
     
116.         oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelName & ";Extended Properties=""Excel 8.0;"""
     ! v; B: B% @5 t1 B
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
     ) E- }; `0 w  m. O1 {$ S1 m9 V
118.    
     
119.         For a1 = exCOUNT To 0 Step -1
     
120.             s = "IndexID,PCPNO,PCPName,Amount,MaterialName,Weight,Tweight,Remark"
     0 ?8 o- s5 t- b' ~" L
121.             s2 = ""
     : M/ X1 y, W2 _' u. c  Q7 |' H9 g; c' E6 Q
122.             c1 = """"
     * G+ A0 ~7 m( x+ ?6 K
123.             For a2 = 0 To 7
     $ ~! ?. |- q( {" ^
124.                 myTable(a1, a2) = c1 & myTable(a1, a2) & c1
     % F4 S$ M5 W9 {
125.                 s2 = s2 & myTable(a1, a2) & ","             '???????????????
     + b; N& W! z; o% K6 S; a
126.             Next a2
     # f! t; q/ Q6 x8 k  l
127.             s2 = Left(s2, Len(s2) - 1)
     
128.             SQLstr = "INSERT INTO a (" & s & ") VALUES (" & s2 & ")"
     
129.             oRes.Open SQLstr, oConn, adOpenStatic
     2 f( V* s! A+ X# W
130.         Next a1
     
131.         oConn.Close
     
132.     End If
     
133.    
     : A, u% h% p4 G  Y$ v2 \( \2 H
134.       
     
135.     TableToExcel = True
     
136.     Exit Function
     - Z" E$ Z$ R( {  P! k
137. ToExcelErr:
     
138.     TableToExcel = False
     2 y; A/ b- \: e' H# x
139. 
     + X" y* l; E. S1 E- O% ?$ ?7 e
140. End Function

复制代码

1 O, _9 H+ w" Y) J+ B* }, W+ ^0 _

% {$ _# M' z( l9 A' U5 i3 H& N, M

nizhen6007

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