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

asd3149

求将工程图的明细表另存为excel格式的api函数，或将明细表指定单元格数据读出写入excel也行，拜托了。
4 A; b2 D2 s% [: E

maichengyou

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

asd3149

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

6 j; m7 `: D6 X; q: ~7 |是呀，不过我是在做关于这个的二次开发插件，所以想通过代码自动实现这个过程。

lhl2008

看看这一段程序
$ p: ~  {( z9 ~) J0 ]) X: b1 P

1. 
   
2. '----------------------------????BOM?????--------------------------
   + [8 d" X; \" H# X) J/ F/ L, z
3. 
   6 u4 T9 O4 }; X* H& E
4. Private Function TableToExcel(ByVal part As ModelDoc2, _
   
5.                               ByVal inExcelName As String) As Boolean
   9 q* s% q/ B4 G  q- ?; i1 t) ]
6. 
   : V! P7 G9 [; m! r
7.     Dim exCOUNT      As Integer
   , p; N& T5 W0 X  y7 }2 J( n
8.     Dim swBomFeat    As SldWorks.BomFeature
   - Q1 R( L/ ~4 P1 c9 i
9.     Dim vTableArr    As Variant
   
10.     Dim vTable       As Variant
    ; }0 p# B# y, w4 E; w
11.     Dim swTable      As Variant
    
12.     Dim swFeat       As SldWorks.feature
    ' L; ?$ Q) Z9 u' d0 K+ a
13.     Dim swWeldmentCutListFeat   As SldWorks.WeldmentCutListFeature
    - W5 |1 @& ]# G; z
14.     Dim vWeldCutListAnnotations As Variant
    4 H5 h7 p4 ~  z; U; b, w  t' [5 B
15.     Dim WeldForI     As Integer
    
16.     Dim WeldForJ     As Integer
    
17.     Dim a1           As Integer
    
18.     Dim a2           As Integer
    
19.     Dim s            As String
    
20.     Dim s1           As String
    ( b- _( u7 A$ G3 I9 E1 f3 d
21.     Dim s2           As String
    
22.     Dim f1           As Single
    7 R6 U' C+ N. V2 B+ L, z2 L
23.     Dim f2           As Single
    
24.     Dim ExcelName    As String
    % \( N: C8 o+ F- V
25.     Dim textName     As String
    
26.     Dim oRes         As New ADODB.Recordset
    6 L. b' m( Q2 A; B9 U
27.     Dim oConn        As New ADODB.Connection
    % k, D, Y+ U" m0 P% h
28.     Dim myTable()    As String
    5 N+ N$ V+ r7 A+ E' V- _
29.     Dim bTableIn     As Boolean  '??????д??
    ; }& f/ l: x9 T* ~  Y* E
30.     Dim c1           As String   '????????
    
31.     Dim SQLstr       As String   '??????SQL????
    
32.    
    8 [- [0 |+ q0 f& ^$ @9 G
33.    
    
34.     On Error GoTo ToExcelErr
    
35.     bTableIn = False
    $ N3 j6 Z  G1 S( |
36.     ExcelName = inExcelName + ".xls"
    4 l& e( l, o* k; _+ `* c/ m3 J  c
37.     Set swFeat = part.FirstFeature
    
38.     Do While Not swFeat Is Nothing
    
39.         If swFeat.GetTypeName = "BomFeat" Then
    ; G$ g1 X5 V3 S. y' I' h3 T% [2 P. {
40.          '--------------- ????????????----------
    
41.             Set swBomFeat = swFeat.GetSpecificFeature2
    ) s+ o+ n! e# h* v+ F/ y7 M, k
42.             vTableArr = swBomFeat.GetTableAnnotations
    " Y3 E9 ?0 \3 N9 D6 o
43.             For Each vTable In vTableArr
    , z% d* u4 C+ _, V. ~  w) r
44.                 Set swTable = vTable
    ( A! `$ F; N4 A; n) [
45.                 exCOUNT = swTable.RowCount - 2
    6 n$ ^  N) z5 m  B9 x: G; u
46.                 bTableIn = True
    
47.                 ReDim myTable(0 To exCOUNT, 0 To 8) As String  '????????
    
48.                 For a1 = 0 To exCOUNT
    ! v! |$ e, @. v' Y+ Q  v$ G1 i
49.                     For a2 = 0 To swTable.ColumnCount
    ! J- l: c) p. h" r; O
50.                         If IsNull(swTable.text(a1, a2)) Then
    
51.                             s = " "
    
52.                         Else
    
53.                             s = swTable.text(a1, a2)
    
54.                             'If Len(s) = 0 Then s = " "
    
55.                         End If
    
56.                         myTable(a1, a2) = s
    ( P- n* g5 n" ]
57.                     Next a2
    
58.                 Next a1
    " n6 d9 I- p: B7 X6 c4 o- E0 v$ F
59.             Next vTable
    ! Q6 t- `3 p0 z) d/ a) O1 J
60.         End If
    & P0 r2 W6 d- c) i* [  d, Z! M; i
61.             
    1 X* v1 N; E4 _4 {
62.         If swFeat.GetTypeName = "WeldmentTableFeat" Then
    ! b5 d& U3 L* F
63.              '-----------------?????и?????????-----------
    5 r* I9 ~$ w7 f2 f1 R
64.             Set swWeldmentCutListFeat = swFeat.GetSpecificFeature2
    
65.             vWeldCutListAnnotations = swWeldmentCutListFeat.GetTableAnnotations
    
66.             WeldForJ = vWeldCutListAnnotations(0).ColumnCount - 1
    
67.             exCOUNT = vWeldCutListAnnotations(0).RowCount - 2
    
68.             bTableIn = True
    
69.             ReDim myTable(0 To exCOUNT, 0 To 8) As String
    
70.             For a1 = 0 To exCOUNT
    7 K+ U5 p7 W2 r1 ^2 \, G2 c
71.                 For a2 = 0 To WeldForJ
    * `4 a6 C. L3 x7 A% u
72.                     If IsNull(vWeldCutListAnnotations(0).text(a1, a2)) Then
    
73.                         s = " "
    
74.                     Else
    4 ?2 {4 }: |1 X% u7 J- y( R% q6 t, t
75.                         s = vWeldCutListAnnotations(0).text(a1, a2)
      r8 o, d- M7 C, I
76.                         'If Len(s) = 0 Then s = " "
    9 c+ p- w. `5 h, [
77.                     End If
    3 H$ f8 {) j& ~; q2 R$ w* J
78.                     myTable(a1, a2) = s
    
79.                 Next a2
    ! e* q+ Q' e# ^/ m& l
80.             Next a1
    
81.       
    ) M# _# I1 q! f% l, H# ~& F
82.             '????????????????????????????????(?????????????)???,???????????????????
    2 f- P% r9 Q6 A. V
83.             For a1 = 0 To exCOUNT
    
84.                 s = myTable(a1, 6)
    
85.                 s1 = myTable(a1, 7)
    . O/ A) i, P+ R, o' q
86.                 If Len(Trim(s)) > 0 Then
    : V- U4 n2 Y5 @/ j5 i0 j- O8 ]8 V
87.                     If Len(Trim(s1)) = 0 Then
    9 y+ y" j2 B* s, I( a
88.                         myTable(a1, 7) = "L=" & s
    
89.                     Else
    , O; g4 N& M& w8 f2 M
90.                         myTable(a1, 4) = myTable(a1, 5) + "  L=" + s
    1 y0 f, G+ a3 j4 j8 ^5 p
91.                     End If
    
92.                 End If
    % v; I3 b0 k% _2 S; _  h6 l" |
93.             Next a1
    
94.             
    
95.         End If
    # R, r1 i% f0 r4 n) c
96.         Set swFeat = swFeat.GetNextFeature
    
97.     Loop
    ' k) {) U6 o3 @2 g) g& q) o; j/ s
98.    
    
99.     If bTableIn Then  '??????????????????????excel???
    
100.         For a1 = 0 To exCOUNT          '????????[3] X [5]?????
     
101.             s = myTable(a1, 3)
       ]3 _+ }1 H# U0 p
102.             s1 = myTable(a1, 5)
     : P! y+ s  l1 e" ?6 f
103.             If Len(Trim(s)) > 0 Then
     ) R& d1 Q: a8 _5 \4 z
104.                 f1 = CSng(s)
     
105.             Else
     
106.                 f1 = 0
     , h- o& e: Z0 X2 _- j, W6 H
107.             End If
     
108.             If Len(Trim(s1)) > 0 Then
     
109.                f2 = CSng(s1)
     
110.             Else
     * Z2 a) m$ M: H% ]
111.                f2 = 0
     
112.             End If
     
113.             myTable(a1, 6) = Format(f1 * f2, "##0.00")
     
114.         Next a1
     9 w; ~4 @! Q" I7 p3 }! @
115.         DeleteFile ExcelName      '??????·???е?????????????
     0 T0 \! [0 W' G2 F; N/ }3 a
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
     ' T" z/ X& p# x
118.    
     
119.         For a1 = exCOUNT To 0 Step -1
     
120.             s = "IndexID,PCPNO,PCPName,Amount,MaterialName,Weight,Tweight,Remark"
     * @1 c! ~! k0 F: E# b) W
121.             s2 = ""
     - G& f6 `- I! d& D9 A% Q( k# a
122.             c1 = """"
     1 k6 J% K2 K" g9 Q2 ?
123.             For a2 = 0 To 7
     ; x) t, s+ o- a# R
124.                 myTable(a1, a2) = c1 & myTable(a1, a2) & c1
     
125.                 s2 = s2 & myTable(a1, a2) & ","             '???????????????
     8 A& r1 D9 S; j) b: k
126.             Next a2
     
127.             s2 = Left(s2, Len(s2) - 1)
     & u4 t2 r& e. P% o
128.             SQLstr = "INSERT INTO a (" & s & ") VALUES (" & s2 & ")"
     
129.             oRes.Open SQLstr, oConn, adOpenStatic
     / L! [) y5 ?: G# m5 D
130.         Next a1
     
131.         oConn.Close
     
132.     End If
     3 j! }# V) T+ b' P) S# B
133.    
     - h& Z/ t$ N* h( k
134.       
     . x0 {" H. x, E
135.     TableToExcel = True
     $ ^7 N& l/ ]% `% E; q) x. `: r
136.     Exit Function
     
137. ToExcelErr:
     
138.     TableToExcel = False
     
139. 
     
140. End Function

复制代码

5 K- ~8 X  G8 {9 V# W

nizhen6007

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