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

慕容攬月

思路是將SW的BOM表導入到EXCEL，然后將EXCEL的數據（零件名+數量）寫入到字典，然后通過文件名來匹配到字典里存的數據（數量）寫入到零件的數量屬性。其中提示請輸入數據時需要粘帖數據進來。Myr = 500 '需人工設定。歡迎大家進行補充、使程序更智能。

8 s2 P% `6 l2 Z% b. R/ nSub main()
'打開EXCEL表格開始
6 ~- Q* X$ q" g6 Z3 w& `Dim ExcelSheet As Object
" I" ^  f4 l1 t; c$ H# {Set ExcelSheet = CreateObject("Excel.Sheet")
/ t3 o" Y) w# HExcelSheet.Application.Visible = True
'結束
" W8 n' G+ R) x1 f: @
'填入數據開始
Dim d
# `+ ]# }; ?1 S1 g& f" T2 NSet d = CreateObject("Scripting.Dictionary")
MsgBox "請輸入數據"
'結束

'數據寫入字典開始
Dim Myr&
% o" A: u' g: f8 i0 AMyr = 500 '需人工設定
For i = 1 To Myr
- N2 P9 q# p" P# x  a6 rd(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
# c7 n8 O# G/ _& `3 O+ U'結束

'將字典數據逐個寫入到零件開始
7 Z* I' I& Y! h: EDim swApp As Object
  C9 d7 q' V5 i% X( w, cDim Part As Object
" O  X6 m* P0 i) R) A5 CDim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

Set swApp = _
4 n' \" W0 X$ F, D4 I* C4 x* CApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
1 @% J7 b* \3 `0 GDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)

    '單個零件寫入數據開始
'Dim swApp As Object
Dim c As String
Set swApp = Application.SldWorks
) ]- z6 ^5 n. u. USet Part = swApp.ActiveDoc
& M. n# l6 e6 \4 D2 K) E' ^c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數量", swCustomInfoText, d.Item(c))
* I( g+ \) ?5 \    '單個零件寫入數據結束

% w& m* w/ c' P5 s- APart.Save
5 I/ r! L1 d) o! l: ~+ @0 GswApp.CloseDoc myPath & myFile
myFile = Dir '找尋下一個*.文件
1 j8 U! C- O$ Z' r2 `4 }6 s  eLoop
4 t$ T' f/ R- {  z4 X- ]  G7 @'將字典數據逐個寫入到零件結束
" e8 L+ |, k* C  _, r  U5 g( @End Sub
+ d( e, ^$ F9 s$ E' A/ O9 v

hdgd501

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

Miles_chen

樓主這個，數量寫入 需要是都改為一個數量吧 不然容易出錯
" O, Y$ a, g" t2 r我之前選擇的方式是：excel 內輸入bom表，零件名稱 及 需要寫入的屬性
然后通過excel 調用SW，逐個打開part，寫入cell內的數量 或者 其他屬性，再關閉

Miles_chen

哦 剛開始沒看清
" K, [, ?% ^4 a$ R" S你是全部寫到 數組里，然后做對比……，以裝配體樹結構為準
我是直接按excel 零件名，順序調用打開文件 ，以excel為準