將BOM表中零件的數量寫入到零件圖的屬性中的VBA程序

慕容攬月

思路是將SW的BOM表導入到EXCEL，然后將EXCEL的數據（零件名+數量）寫入到字典，然后通過文件名來匹配到字典里存的數據（數量）寫入到零件的數量屬性。其中提示請輸入數據時需要粘帖數據進來。Myr = 500 '需人工設定。歡迎大家進行補充、使程序更智能。
3 ^* {) w- d* ~8 B0 v) K% S+ l
Sub main()
/ \2 P) k/ n3 {4 }4 ^'打開EXCEL表格開始
* H7 P0 Q0 c9 o; m$ ^, p6 hDim ExcelSheet As Object
0 C0 [. D" w. [/ p2 v! o) ?Set ExcelSheet = CreateObject("Excel.Sheet")
, `2 b9 U& L8 D/ bExcelSheet.Application.Visible = True
'結束
4 |9 Q) i2 J3 r( t4 e8 p
" a) W% ~% q( @- e/ L/ x7 P6 _$ g2 S8 a'填入數據開始
Dim d
; b) u7 V( d# X7 ISet d = CreateObject("Scripting.Dictionary")
5 b( d& P9 @8 |$ MMsgBox "請輸入數據"
'結束
! u( j, N% ^  o% ]* U0 }
8 l, h$ B! V& n+ a7 F1 U+ {'數據寫入字典開始
% L* ~& E$ [  O! ?4 oDim Myr&
Myr = 500 '需人工設定
For i = 1 To Myr
d(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
! C  A$ a; |9 INext
2 Z, Q; L  d! M4 ^: W9 B'結束
( @, B' t6 g2 b
'將字典數據逐個寫入到零件開始
) v' f! j: {- i5 ]3 hDim swApp As Object
Dim Part As Object
1 `6 G8 X5 {: X. s# Q6 XDim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

Set swApp = _
' }2 [' a5 e8 T; X6 |Application.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
Do While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
# o, t3 H3 H3 M$ n( ?
    '單個零件寫入數據開始
- s: K) o: Q3 I0 ?7 W9 N'Dim swApp As Object
* {1 H7 l1 o1 b! f# m6 _5 NDim c As String
& i# ]6 X3 s/ q0 ], X2 V& _5 MSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數量", swCustomInfoText, d.Item(c))
& f( Q3 U& h+ G) f% ^$ @# ^    '單個零件寫入數據結束

Part.Save
0 e( y$ y& e' x  g  v' M1 bswApp.CloseDoc myPath & myFile
7 S! q) u! L0 M  `6 PmyFile = Dir '找尋下一個*.文件
Loop
'將字典數據逐個寫入到零件結束
( B# t2 H, T, S# N& M4 `" ~End Sub

hdgd501

謝謝樓主分享，期待高手進來進一步完善

Miles_chen

樓主這個，數量寫入 需要是都改為一個數量吧 不然容易出錯
' y2 u  J  F( j' J; Q: t我之前選擇的方式是：excel 內輸入bom表，零件名稱 及 需要寫入的屬性
* u* [$ `! y# M& A6 T然后通過excel 調用SW，逐個打開part，寫入cell內的數量 或者 其他屬性，再關閉

Miles_chen

哦 剛開始沒看清
你是全部寫到 數組里，然后做對比……，以裝配體樹結構為準
. q( ~" W5 I6 L% W5 G) h我是直接按excel 零件名，順序調用打開文件 ，以excel為準