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

asd3149

求将工程图的明细表另存为excel格式的api函数，或将明细表指定单元格数据读出写入excel也行，拜托了。
7 }9 h) C1 J. V) [* N; U

maichengyou

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

asd3149

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

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

lhl2008

看看这一段程序
& m6 R, p6 p1 |, w6 S

1. 
   
2. '----------------------------????BOM?????--------------------------
   
3. 
   2 e* d( w6 m2 T; ?" f! ?- t
4. Private Function TableToExcel(ByVal part As ModelDoc2, _
   & {: s9 `( P6 l  D" B
5.                               ByVal inExcelName As String) As Boolean
   # @: f4 g6 l  n7 n( H# X
6. 
   
7.     Dim exCOUNT      As Integer
   
8.     Dim swBomFeat    As SldWorks.BomFeature
   
9.     Dim vTableArr    As Variant
   
10.     Dim vTable       As Variant
    7 c( `3 P2 K6 e4 K9 Y# L3 r( L7 @8 p
11.     Dim swTable      As Variant
    
12.     Dim swFeat       As SldWorks.feature
    
13.     Dim swWeldmentCutListFeat   As SldWorks.WeldmentCutListFeature
    
14.     Dim vWeldCutListAnnotations As Variant
    " q. b; W* x( ~4 F& @3 S
15.     Dim WeldForI     As Integer
    
16.     Dim WeldForJ     As Integer
    2 `' n: a! z) K8 v/ L, S, W, [. l
17.     Dim a1           As Integer
    5 D8 z) L0 ]. F, \6 ]( ?) K
18.     Dim a2           As Integer
    
19.     Dim s            As String
    8 o; Y0 P0 @2 ?* Y+ T
20.     Dim s1           As String
    ! l" U1 s1 b' u
21.     Dim s2           As String
    
22.     Dim f1           As Single
    # p% p) h' A( S5 Q8 e9 x/ w
23.     Dim f2           As Single
    
24.     Dim ExcelName    As String
    4 w" D) ~  z3 @, r8 ~1 }0 C  r
25.     Dim textName     As String
    3 O: O6 I7 H7 F3 j1 ?9 X& P
26.     Dim oRes         As New ADODB.Recordset
      I5 Y: Z& k! }
27.     Dim oConn        As New ADODB.Connection
    # |+ r- N" P4 i6 \0 z% e
28.     Dim myTable()    As String
    : @9 N& x, m: k7 G7 q" b5 E) S0 _
29.     Dim bTableIn     As Boolean  '??????д??
    
30.     Dim c1           As String   '????????
    + g8 n" Q/ T+ t* y4 S% P
31.     Dim SQLstr       As String   '??????SQL????
    
32.    
    
33.    
    
34.     On Error GoTo ToExcelErr
    , T" h5 B, v, F4 V# D# h2 @) U+ ]7 T
35.     bTableIn = False
    4 P+ k- C/ H  d+ R& X" e
36.     ExcelName = inExcelName + ".xls"
    4 C" W( O8 H9 X
37.     Set swFeat = part.FirstFeature
    3 q4 O6 H7 q3 q5 ~5 u5 i
38.     Do While Not swFeat Is Nothing
    
39.         If swFeat.GetTypeName = "BomFeat" Then
    ! [. D+ y7 Q, m' }2 z
40.          '--------------- ????????????----------
    $ v( z; u5 c# a7 R/ B
41.             Set swBomFeat = swFeat.GetSpecificFeature2
    9 N: U; b& w5 y
42.             vTableArr = swBomFeat.GetTableAnnotations
    . l: e$ e% x1 k. c1 {) L
43.             For Each vTable In vTableArr
    + t% X! z7 _* S. R" m. ]; j9 F
44.                 Set swTable = vTable
      }- w# {! @  I. s
45.                 exCOUNT = swTable.RowCount - 2
    6 g  J+ \3 `% _& V9 f9 F" g
46.                 bTableIn = True
    7 s6 m, n+ W2 {6 Z  G
47.                 ReDim myTable(0 To exCOUNT, 0 To 8) As String  '????????
    
48.                 For a1 = 0 To exCOUNT
    
49.                     For a2 = 0 To swTable.ColumnCount
    - j" O( M4 d2 h$ ~3 b
50.                         If IsNull(swTable.text(a1, a2)) Then
    
51.                             s = " "
      z3 \  h- Y' J0 Q
52.                         Else
    
53.                             s = swTable.text(a1, a2)
    
54.                             'If Len(s) = 0 Then s = " "
    
55.                         End If
    
56.                         myTable(a1, a2) = s
    ; y3 d& X6 E, w/ O8 g
57.                     Next a2
    1 H/ c& H$ P, {& }/ X
58.                 Next a1
    
59.             Next vTable
    
60.         End If
    
61.             
    3 D1 X, M, S" i% N5 U
62.         If swFeat.GetTypeName = "WeldmentTableFeat" Then
    
63.              '-----------------?????и?????????-----------
    
64.             Set swWeldmentCutListFeat = swFeat.GetSpecificFeature2
    
65.             vWeldCutListAnnotations = swWeldmentCutListFeat.GetTableAnnotations
    2 V% m& G3 z  H* Y; ?& w
66.             WeldForJ = vWeldCutListAnnotations(0).ColumnCount - 1
    9 G3 x  Q9 T0 F* c) y' v6 X0 t
67.             exCOUNT = vWeldCutListAnnotations(0).RowCount - 2
    8 Q2 Y( E) c8 `; R0 M9 E, g$ [% d
68.             bTableIn = True
    5 F6 f0 d, W: l, L7 r& m
69.             ReDim myTable(0 To exCOUNT, 0 To 8) As String
    + M# H6 z" E0 @, X  v& f  |
70.             For a1 = 0 To exCOUNT
    * f9 h0 R, R) Z2 z2 X+ b5 W
71.                 For a2 = 0 To WeldForJ
    
72.                     If IsNull(vWeldCutListAnnotations(0).text(a1, a2)) Then
    ! T/ V7 [5 L: Q0 D  o5 }3 k1 |
73.                         s = " "
    ! ^2 y! R. g$ ]6 Z- T7 l; n8 ~
74.                     Else
    + a' r5 P9 p4 _, q& U2 h
75.                         s = vWeldCutListAnnotations(0).text(a1, a2)
    / \' X0 h- ?+ u3 t
76.                         'If Len(s) = 0 Then s = " "
    
77.                     End If
    
78.                     myTable(a1, a2) = s
    * a8 u* j" P. f( J# P( i: `
79.                 Next a2
    
80.             Next a1
    & n: _% [& \" c7 t3 {
81.       
    " Y& o; ^+ Z) M% {2 c
82.             '????????????????????????????????(?????????????)???,???????????????????
    # A; `5 g9 o0 o9 b5 [, `9 ?7 @" o
83.             For a1 = 0 To exCOUNT
    ; X3 r) q8 e: Y& }: x* P
84.                 s = myTable(a1, 6)
    1 c3 u0 M  k  I- I/ f/ I: B
85.                 s1 = myTable(a1, 7)
    
86.                 If Len(Trim(s)) > 0 Then
    
87.                     If Len(Trim(s1)) = 0 Then
    3 W1 F; m6 b& C& i
88.                         myTable(a1, 7) = "L=" & s
    1 Q6 b# R) y! b/ H- W/ n1 ]
89.                     Else
    
90.                         myTable(a1, 4) = myTable(a1, 5) + "  L=" + s
    
91.                     End If
    $ B0 O/ N; _9 |3 @+ L, [; R5 M
92.                 End If
    5 e  c  a, B7 O6 k3 J  i& |, {
93.             Next a1
    
94.             
    
95.         End If
    3 h6 h. k# Q8 ]+ F7 u1 _( j
96.         Set swFeat = swFeat.GetNextFeature
    
97.     Loop
    
98.    
    
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)
     5 @- q1 _2 J" H
105.             Else
     2 d" r4 _% l4 l  g! a' \$ a! b0 w
106.                 f1 = 0
     
107.             End If
     
108.             If Len(Trim(s1)) > 0 Then
     9 l7 v  Z$ y9 h& U( `0 ^
109.                f2 = CSng(s1)
     4 j( P  \% I  R* q
110.             Else
     4 F) j2 J3 L! q2 s' x# q8 X6 ~9 x) s
111.                f2 = 0
     * a4 N$ c7 w( l0 R
112.             End If
     * Z. v: l# D+ y/ f  X
113.             myTable(a1, 6) = Format(f1 * f2, "##0.00")
     
114.         Next a1
     
115.         DeleteFile ExcelName      '??????·???е?????????????
     
116.         oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ExcelName & ";Extended Properties=""Excel 8.0;"""
     4 j0 @2 F9 q0 ~2 W9 A
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
     $ F$ r* I/ T# K9 E9 `& x: b- q6 S
118.    
     " C3 ^+ a: k5 t% p/ ~) B
119.         For a1 = exCOUNT To 0 Step -1
     % Z: p# L# Q; |* M
120.             s = "IndexID,PCPNO,PCPName,Amount,MaterialName,Weight,Tweight,Remark"
     
121.             s2 = ""
     2 h0 u. c1 R, }3 A
122.             c1 = """"
     
123.             For a2 = 0 To 7
     3 {5 I/ t8 X3 \! C" H) q" ]
124.                 myTable(a1, a2) = c1 & myTable(a1, a2) & c1
     0 Q4 Y+ P7 N% I+ {& P% h
125.                 s2 = s2 & myTable(a1, a2) & ","             '???????????????
     
126.             Next a2
     - O0 a* ^, Y2 k
127.             s2 = Left(s2, Len(s2) - 1)
     ! L$ s+ F8 z, C* O
128.             SQLstr = "INSERT INTO a (" & s & ") VALUES (" & s2 & ")"
     1 i9 E% C+ A& _
129.             oRes.Open SQLstr, oConn, adOpenStatic
     * k3 C2 g9 B- Z' f9 ~
130.         Next a1
     % Z+ R3 A4 y; S- o: j
131.         oConn.Close
     ! |" ~, Z+ s, l; _2 m. v
132.     End If
     : h  E( ]- _) _- i6 [
133.    
     
134.       
     . }: X7 \  t- D3 W& ?, x
135.     TableToExcel = True
     ; N8 |# Z9 X1 Z3 O
136.     Exit Function
     
137. ToExcelErr:
     
138.     TableToExcel = False
     # Z2 o8 m! ^' p8 L" a. s
139. 
     
140. End Function

复制代码

9 L" Y7 Q8 x) q3 L) r- o

) W4 m  k) \7 v# _+ c6 l- Z

nizhen6007

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