EDA_BOMHelper花式出BOM,总有满足你的。

linxiwell 发表于 2018-6-27 11:59
4 m( y  r& `1 c5 Z; }  `9 G5 p% jEDA_BOMHelper花式出BOM,总有满足你的。

  n4 j1 M1 Y. R* T: H嗯，有空研究下
2 l; u( m7 ~( P: s6 w8 M* @& [

加两行打印，看出来个啥
2 ~2 b9 s' L) D3 X+ U
        Next        
8 U6 ?7 s, V) v        symbol_len = Len(symbol)
        Print #1,symbol_len;
        Print #1
        symbol = Mid(symbol,1, symbol_len - 2)
7 T5 T2 Y  v) s* |' u        Print #1, item; vbTab; part.PartType ; vbTab; pn ; vbTab;manufacturerpn; vbTab;description; vbTab;manufacturer; vbTab;value; vbTab; qty; vbTab; symbol;
        Print #1
    Next pkg

: |2 f& f6 L4 O9 Z6 j9 M
; R7 G# S# A. d难道是数组：---
多数情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标量变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号 ( )。下例声明了一个包含 11 个元素的一维数组：

Dim A(10)
虽然括号中显示的数字是 10，但由于在 VBScript 中所有数组都是基于 0 的，所以这个数组实际上包含 11 个元素。在基于 0 的数组中，数组元素的数目总是括号中显示的数目加 1。这种数组被称为固定大小的数组。
" g7 L6 }1 v- ]( b' w, e$ s2 y8 K
$ [" r% m! b( k- D5 ~+ o/ D$ U在数组中使用索引为数组的每个元素赋值。从 0 到 10，将数据赋给数组的元素，如下所示：

+ h% _, a9 G, K- l0 C+ X0 N0 F A(0) = 256
A(1) = 324
A(2) = 100
. . .
) f/ p, M6 d8 `* q& m5 C A(10) = 55
; O5 a2 P7 J% H* ]; b3 \4 L与此类似，使用索引可以检索到所需的数组元素的数据。例如：

. . .
7 E; r+ y/ S+ W) e7 b+ ` SomeVariable = A(8)  
# _3 a* V9 A5 D$ F. { . . .
数组并不仅限于一维。数组的维数最大可以为 60（尽管大多数人不能理解超过 3 或 4 的维数）。声明多维数组时用逗号分隔括号中每个表示数组大小的数字。在下例中，MyTable 变量是一个有 6 行和 11 列的二维数组：
  Z/ @6 q3 ~5 G) R$ f
Dim MyTable(5, 10)
% e1 k; D# A/ V1 Z在二维数组中，括号中第一个数字表示行的数目，第二个数字表示列的数目。
# b* u; a; A( D1 d4 T3 n% X
0 j+ l$ p# a7 h

        symbol_len = Len(symbol)
* K1 S. o- ]$ C- _9 k) C        symbol = Mid(symbol,1, symbol_len - 2)

+ z% r1 d) z" S9 z; b% m, b这两句是个啥意思？

一点点来吧，共勉

网上找了一个
Dim fn As String

Sub Main
    fn = ActiveDocument
    If fn = "" Then
0 b7 u, @6 |+ [* l        fn = "Untitled"
    End If
: R7 K1 }1 }( \4 k( `; A
    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile For Output As #1
    item = 0
    StatusBarText = "Generating report..."
    Print #1, "ITEM";vbTab;"Part Type"; vbTab;"P/N_1"; vbTab;"Manufacturer_1_P/N"; vbTab;"Description"; vbTab;"Manufacturer_1"; vbTab; "Value"; vbTab; "QTY"; vbTab; "REF-DES"
! }( k8 C9 l) m* |2 U6 v5 h( G    For Each pkg in ActiveDocument.PartTypes
        'Print #1, pkg.Name; vbTab; note
1 _7 {0 e2 l, ?7 t        qty = 0
) q7 ]' q2 R. o0 w7 t% h9 i8 I        value = ""
        description = ""
        manufacturer = ""
) J. ^# S" H& Z  a        pn = ""
        manufacturerpn = ""
# G+ ]7 X' n* x2 Z0 |+ T: X        symbol = ""
        item = item + 1
( d7 ~* `$ y# ?' E+ n7 `        'Print #1, item; vbTab;
        For Each part In pkg.Components
! c6 e$ D# p* o# d3 F- m            value = AttrValue(part, "Value")
            description = AttrValue(part, "Description")
            manufacturer = AttrValue(part, "Manufacturer_1")
            pn = AttrValue(part, "P/N_1")
            value = AttrValue(part, "Value")   
            manufacturerpn = AttrValue(part, "Manufacturer_1_P/N")
, ^7 s( U' I# a1 F            sysid = AttrValue(part, "SYSID")
            qty = qty+1
* d) B& e* c* L7 H! ]            symbol = symbol + part.Name + ", "
        Next        
3 ^- o! M* _1 s, _' f+ X# |! y& h        symbol_len = Len(symbol)
        symbol = Mid(symbol,1, symbol_len - 2)
        Print #1, item; vbTab; part.PartType ; vbTab; pn ; vbTab;manufacturerpn; vbTab;description; vbTab;manufacturer; vbTab;value; vbTab; qty; vbTab; symbol;
        Print #1
    Next pkg
    StatusBarText = ""
    Close #1
) q1 H  l  K5 g+ S$ v) B( T    ExportToExcel
8 l; ]. P8 a+ X3 E1 T" H& K+ m* IEnd Sub

Sub ExportToExcel
    FillClipboard
: h4 }( C! @4 u7 }6 J/ G8 P( D    Dim xl As Object
$ d; [5 F) k8 M% C/ c3 ]    On Error Resume Next
    Set xl =  GetObject(,"Excel.Application")
    On Error GoTo ExcelError    ' Enable error trapping.
    If xl Is Nothing Then
2 O( U) l; }2 V( n        Set xl =  CreateObject("Excel.Application")
    End If
6 R# R6 m& R; R# w+ _9 K: V' a6 O    xl.Visible = True
/ f  t% y/ J5 }6 H% J    xl.Workbooks.Add
    xl.ActiveSheet.Paste
    xl.Range("A1:I1").Font.Bold = True
9 o2 ]4 h( P" v, f* S/ o0 }/ @. i    xl.Range("A1:I1").NumberFormat = "@"
    xl.Range("A1:I1").AutoFilter
    xl.ActiveSheet.UsedRange.Columns.AutoFit
    'Output Report Header
3 X8 R6 Z( ~5 D; S1 J: l    xl.Rows(1).Insert
    xl.Rows(1).Cells(1) = Space(1) & "Part Report "& " WWZL-BOM " & " on " & Now
    xl.Rows(2).Insert
4 i* K( n/ W6 o    xl.Rows(1).Font.bold = True
    'Output Design Totals
    lastRow = xl.ActiveSheet.UsedRange.Rows.Count + 1
    xl.Rows(lastRow + 1).Font.bold = True
; x" ^0 {: w0 E- f. y1 }. {1 k    xl.Rows(lastRow + 1).Cells(1) = Space(1) & "Design Part count: " & ActiveDocument.Components.Count
    xl.Range("A1").Select
1 |+ C) i1 n5 l    On Error GoTo 0 ' Disable error trapping.
$ Z, I, g( p& R  M2 }6 a, V2 m    Exit Sub   

ExcelError:
    MsgBox Err.Description, vbExclamation, "Error Running Excel"
, o) ~0 o, s% _    On Error GoTo 0 ' Disable error trapping.   
# R& t+ T( L1 B. e* _    Exit Sub
9 b4 T( o6 \- L/ U7 kEnd Sub

, ?. `2 {/ G! D/ ASub FillClipboard
    StatusBarText = "Export Data To Clipboard..."
- u! _$ N, d3 S5 W6 L5 f  \4 G* N    ' Load whole file to string variable   
    tempFile = DefaultFilePath & "\temp.txt"
    Open tempFile  For Input As #1
    L = LOF(1)
    AllData$ = Input$(L,1)
    Close #1
    'Copy whole data to clipboard
9 O6 o8 _5 v8 i    Clipboard AllData$
    Kill tempFile
, H! K' x! g/ Z& _! a' ?    StatusBarText = ""
End Sub
Function AttrValue (comp As Object, atrName As String) As String
    If comp.Attributes(atrName) Is Nothing Then
8 V" p( w0 p6 y% j9 e        AttrValue = ""
    Else
        AttrValue = comp.Attributes(atrName).Value
9 @+ e+ [- z! Y& q    End If
End Function