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

asd3149

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

maichengyou

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

asd3149

maichengyou 发表于 2018-11-1 18:41
' @5 f: A1 I  u不是可以直接保存成excel吗？

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

lhl2008

看看这一段程序
9 w9 e1 V" I' q0 m+ C) `; b; b

1. 
   
2. '----------------------------????BOM?????--------------------------
   # W! q( B0 B7 Y
3. 
   ) F* b1 W" H( x* M+ g
4. Private Function TableToExcel(ByVal part As ModelDoc2, _
   
5.                               ByVal inExcelName As String) As Boolean
   
6. 
   - l+ v: z: _- U" H" J" C
7.     Dim exCOUNT      As Integer
   & H: ~4 @! T7 l
8.     Dim swBomFeat    As SldWorks.BomFeature
   
9.     Dim vTableArr    As Variant
   $ Q6 m4 @  V+ a! c+ p% B7 d
10.     Dim vTable       As Variant
    8 ~4 b% P; t  j' ^% B9 B& I0 v
11.     Dim swTable      As Variant
    
12.     Dim swFeat       As SldWorks.feature
    3 ?! C1 s% G5 a( N) \! y
13.     Dim swWeldmentCutListFeat   As SldWorks.WeldmentCutListFeature
    # A' v# K7 M. K, m2 s
14.     Dim vWeldCutListAnnotations As Variant
    
15.     Dim WeldForI     As Integer
    ; `2 y/ l$ h3 F% Y3 N) F& M
16.     Dim WeldForJ     As Integer
    : }# }( z  ?! [0 |
17.     Dim a1           As Integer
    
18.     Dim a2           As Integer
    
19.     Dim s            As String
    
20.     Dim s1           As String
    1 X* ?0 ^' \& ^, Z2 W: w6 t; |$ Y6 M
21.     Dim s2           As String
    2 ?/ k5 d1 G! i( y3 |  X
22.     Dim f1           As Single
    
23.     Dim f2           As Single
    2 a# }$ f& C/ @5 z7 f1 z; k3 |
24.     Dim ExcelName    As String
    
25.     Dim textName     As String
    : o. _' m3 V# ]7 ^
26.     Dim oRes         As New ADODB.Recordset
    
27.     Dim oConn        As New ADODB.Connection
    
28.     Dim myTable()    As String
    8 N1 v/ F! \: j8 m8 ]* C
29.     Dim bTableIn     As Boolean  '??????д??
    * A$ Z& c9 L6 N/ \
30.     Dim c1           As String   '????????
    7 f% b5 V* W$ A4 `' p+ k
31.     Dim SQLstr       As String   '??????SQL????
    
32.    
    
33.    
    6 X& D: J3 ]4 o7 R# K3 Y+ e
34.     On Error GoTo ToExcelErr
    
35.     bTableIn = False
    7 H3 j- [. O" U4 L4 Z
36.     ExcelName = inExcelName + ".xls"
    - G; a* m" S) p1 h
37.     Set swFeat = part.FirstFeature
    & l  r; ^5 h9 x1 m
38.     Do While Not swFeat Is Nothing
    6 j1 N) x( X, |( L: S! M3 x
39.         If swFeat.GetTypeName = "BomFeat" Then
    
40.          '--------------- ????????????----------
    9 v- I3 r$ p% u
41.             Set swBomFeat = swFeat.GetSpecificFeature2
    . D2 M& n  @7 e9 X' ^1 z0 m
42.             vTableArr = swBomFeat.GetTableAnnotations
    ; `+ Z3 {1 {6 N$ y
43.             For Each vTable In vTableArr
    & q5 r9 S* ~( n& J( ]
44.                 Set swTable = vTable
    0 H5 b& R# N. x. z/ X6 P
45.                 exCOUNT = swTable.RowCount - 2
    6 g) ^; M: _, i9 M
46.                 bTableIn = True
    
47.                 ReDim myTable(0 To exCOUNT, 0 To 8) As String  '????????
    
48.                 For a1 = 0 To exCOUNT
    
49.                     For a2 = 0 To swTable.ColumnCount
    
50.                         If IsNull(swTable.text(a1, a2)) Then
    
51.                             s = " "
    " v9 P7 D5 s5 B# N, k+ x2 G) T- `
52.                         Else
    
53.                             s = swTable.text(a1, a2)
    
54.                             'If Len(s) = 0 Then s = " "
    : }$ U! `- ^% _+ q
55.                         End If
    0 |: a8 L; q5 r+ B, e$ S) a+ f
56.                         myTable(a1, a2) = s
    ) G! S8 X, \) l8 d2 p4 k
57.                     Next a2
    
58.                 Next a1
    # }5 Q1 V# v, k2 ^# k: {! n
59.             Next vTable
    
60.         End If
    % f! g8 m2 E- G% Q& {/ z3 i
61.             
    
62.         If swFeat.GetTypeName = "WeldmentTableFeat" Then
    ) k/ w7 p0 C5 g2 l) K" C1 q8 [
63.              '-----------------?????и?????????-----------
    " n2 ~$ R' D! X0 ^
64.             Set swWeldmentCutListFeat = swFeat.GetSpecificFeature2
    
65.             vWeldCutListAnnotations = swWeldmentCutListFeat.GetTableAnnotations
    
66.             WeldForJ = vWeldCutListAnnotations(0).ColumnCount - 1
    
67.             exCOUNT = vWeldCutListAnnotations(0).RowCount - 2
    " T$ l0 y& A# k/ B
68.             bTableIn = True
    
69.             ReDim myTable(0 To exCOUNT, 0 To 8) As String
    ' A) w" K2 t8 l3 p
70.             For a1 = 0 To exCOUNT
    ) o; |; A, M4 y; v9 @
71.                 For a2 = 0 To WeldForJ
    
72.                     If IsNull(vWeldCutListAnnotations(0).text(a1, a2)) Then
    
73.                         s = " "
      _, U- |, _/ r& ?
74.                     Else
    ! V1 i; r7 C6 R9 a" P& z6 D  V/ C- g+ n6 Y
75.                         s = vWeldCutListAnnotations(0).text(a1, a2)
    
76.                         'If Len(s) = 0 Then s = " "
    
77.                     End If
    
78.                     myTable(a1, a2) = s
    0 \) j$ h5 C% w, T
79.                 Next a2
    ( h) {; }1 t/ g# x# ^" _' V3 d
80.             Next a1
    
81.       
    
82.             '????????????????????????????????(?????????????)???,???????????????????
    
83.             For a1 = 0 To exCOUNT
    ) V! s4 D) m8 ]9 |
84.                 s = myTable(a1, 6)
    
85.                 s1 = myTable(a1, 7)
    
86.                 If Len(Trim(s)) > 0 Then
    , h1 r. K6 ^$ j5 J, I1 ?5 u
87.                     If Len(Trim(s1)) = 0 Then
    ; ~) Q. @- l/ m: [" s8 @& [
88.                         myTable(a1, 7) = "L=" & s
    
89.                     Else
    : V) E! L# I+ P4 m& E
90.                         myTable(a1, 4) = myTable(a1, 5) + "  L=" + s
    $ f- u- `) N: f- S$ s/ t" ]
91.                     End If
    
92.                 End If
    
93.             Next a1
    3 v( k( N4 ?4 O8 l
94.             
    3 e- \8 x; X- X5 n5 H; M- b, c4 I- ~$ L
95.         End If
    
96.         Set swFeat = swFeat.GetNextFeature
    
97.     Loop
    1 Z: x( X, w" F1 Q. \' O; d3 @
98.    
    * m5 e. |# q0 D: f; |' V
99.     If bTableIn Then  '??????????????????????excel???
    
100.         For a1 = 0 To exCOUNT          '????????[3] X [5]?????
     
101.             s = myTable(a1, 3)
     
102.             s1 = myTable(a1, 5)
     
103.             If Len(Trim(s)) > 0 Then
     
104.                 f1 = CSng(s)
     
105.             Else
     * H9 C' F& o* v+ d+ g9 r( F. T  [
106.                 f1 = 0
     8 e1 M0 n* X" \* }  K
107.             End If
     5 a- E1 A! q" V8 ]' z, S
108.             If Len(Trim(s1)) > 0 Then
     & g3 |' [" E+ ^4 V' N  L0 h9 L
109.                f2 = CSng(s1)
     $ G. S8 h' L3 L0 P& w$ h- n
110.             Else
     / A2 w7 Q0 ?! ]4 ~
111.                f2 = 0
     ) e' Y- i) m3 \8 m% a8 m
112.             End If
     ) O" ]7 K- Y: H+ |8 l0 h: R( l
113.             myTable(a1, 6) = Format(f1 * f2, "##0.00")
     5 _6 B7 ?- u1 |
114.         Next a1
     
115.         DeleteFile ExcelName      '??????·???е?????????????
     
116.         oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelName & ";Extended Properties=""Excel 8.0;"""
     
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
     9 l# O9 T4 U8 T- s) Z( G1 e" ]( G
118.    
     
119.         For a1 = exCOUNT To 0 Step -1
     
120.             s = "IndexID,PCPNO,PCPName,Amount,MaterialName,Weight,Tweight,Remark"
     
121.             s2 = ""
     
122.             c1 = """"
     
123.             For a2 = 0 To 7
     1 Q: n7 \3 k  O( ]- Z' S8 [2 u
124.                 myTable(a1, a2) = c1 & myTable(a1, a2) & c1
     
125.                 s2 = s2 & myTable(a1, a2) & ","             '???????????????
     ; |- e: s7 f8 h6 z, Z# _
126.             Next a2
     
127.             s2 = Left(s2, Len(s2) - 1)
     ' }. H. B3 O- R% [
128.             SQLstr = "INSERT INTO a (" & s & ") VALUES (" & s2 & ")"
     3 z1 \; Z2 c7 T4 F( J( z# E6 h! t
129.             oRes.Open SQLstr, oConn, adOpenStatic
     
130.         Next a1
     
131.         oConn.Close
     
132.     End If
     ' Q3 c* P0 P0 k4 M
133.    
     
134.       
     
135.     TableToExcel = True
     
136.     Exit Function
     
137. ToExcelErr:
     
138.     TableToExcel = False
     # ?0 T& F) @5 ^
139. 
     
140. End Function

复制代码

' M1 v: K8 j% ^# Z+ {! W

& g# t! l* O; a1 I: L) q- [

nizhen6007

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