将BOM表中零件的数量写入到零件图的属性中的VBA程序

慕容揽月

思路是将SW的BOM表导入到EXCEL，然后将EXCEL的数据（零件名+数量）写入到字典，然后通过文件名来匹配到字典里存的数据（数量）写入到零件的数量属性。其中提示请输入数据时需要粘帖数据进来。Myr = 500 '需人工设定。欢迎大家进行补充、使程序更智能。

Sub main()
/ q2 O/ y/ r( G7 ?& i8 U, g% \, m'打开EXCEL表格开始
5 s' n8 F5 V# b0 i" dDim ExcelSheet As Object
) t5 ~* w6 k, p1 i2 p; ?/ {Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
& N6 T; g* q. l5 V. g'结束
  h. g2 ~1 {4 J9 x0 f) l) u
'填入数据开始
Dim d
) S+ `. Q- F1 u- H3 ]Set d = CreateObject("Scripting.Dictionary")
MsgBox "请输入数据"
3 u* \8 X, i4 }! K1 q; y( s'结束
( r6 y, }, m: D! j, U' A
7 U4 Y! l* Y: ]" L* \$ W'数据写入字典开始
9 L  S$ y7 A) o  {Dim Myr&
9 r) e) @; T. Q3 X4 HMyr = 500 '需人工设定
For i = 1 To Myr
3 N( c7 @( j/ }0 C, f* Yd(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
'结束
+ g! i) B: m4 B; K; N: p
'将字典数据逐个写入到零件开始
8 D) R# ?+ a, G, m8 H1 A, `Dim swApp As Object
7 g7 f  t% J2 j. y4 QDim Part As Object
: ~; c  _; I7 S+ r# ]Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$
/ k$ c- H0 p# u" t
Set swApp = _
9 Z" Q7 E$ m6 h8 P! W) A( EApplication.SldWorks
$ U. m0 x6 g, H+ `myPath = "C:\Users\Administrator\Desktop\1\" '..........................重点：把文件路径定义给变量
myFile = Dir(myPath & "*.sldprt") '依次找寻指定路径中的*.文件
% Y& H) t) w- F/ i" Q* v3 ^" YDo While myFile <> ""
; f# l" Q3 z8 u8 d$ k* {/ ?; hSet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
4 R# p9 c8 {" x" l9 ]; a
; y1 B0 ?0 u, w' [5 M, Q6 o    '单个零件写入数据开始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, d.Item(c))
1 r7 I  {9 Y  `' `2 n    '单个零件写入数据结束
7 E$ n5 t+ W8 j  ^/ }
/ t" ]! N8 E* I% ]Part.Save
swApp.CloseDoc myPath & myFile
myFile = Dir '找寻下一个*.文件
Loop
'将字典数据逐个写入到零件结束
1 b* ]) x3 h1 W. g( q& @End Sub

hdgd501

谢谢楼主分享，期待高手进来进一步完善

Miles_chen

楼主这个，数量写入 需要是都改为一个数量吧 不然容易出错
我之前选择的方式是：excel 内输入bom表，零件名称 及 需要写入的属性
然后通过excel 调用SW，逐个打开part，写入cell内的数量 或者 其他属性，再关闭

Miles_chen

哦 刚开始没看清
你是全部写到 数组里，然后做对比……，以装配体树结构为准
- X5 J7 b# t" d* I; L! k我是直接按excel 零件名，顺序调用打开文件 ，以excel为准