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

慕容攬月

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

Sub main()
: c& E6 m5 Y( ]; V'打開EXCEL表格開始
3 {% N' q2 E2 D. Y' r' ODim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'結束

'填入數據開始
Dim d
Set d = CreateObject("Scripting.Dictionary")
. l4 C" D! U8 k- o! n; B  |MsgBox "請輸入數據"
8 H$ j0 M. n3 k9 Q, K2 ]'結束

'數據寫入字典開始
: X5 D8 X% a. B' vDim Myr&
Myr = 500 '需人工設定
For i = 1 To Myr
/ H/ u0 Z7 I* w+ l4 t( g% od(ExcelSheet.Application.Cells(i, 1).Value) = ExcelSheet.Application.Cells(i, 2).Value
Next
) K  O. x. u$ P) a# \. r'結束

'將字典數據逐個寫入到零件開始
1 I; S! @, Y1 E" M$ y7 zDim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Dim myPath$, myFile$

% x8 b$ _9 P3 T. K7 vSet swApp = _
4 k" k" b% k6 k: \. n- cApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\1\" '..........................重點：把文件路徑定義給變量
myFile = Dir(myPath & "*.sldprt") '依次找尋指定路徑中的*.文件
+ f' e. Y/ Q, |. {$ Z# bDo While myFile <> ""
  a8 B# v% l# D# i+ m1 f$ F6 ESet Part = swApp.OpenDoc6(myPath & myFile, 1, 0, "", longstatus, longwarnings)
% e2 k# C5 m. r- \; B' i
% ^4 V; g# e( Z    '單個零件寫入數據開始
* k2 v. c( ]2 e+ v' A'Dim swApp As Object
* k3 k  h$ q+ o( \6 o* [# X7 h/ kDim c As String
Set swApp = Application.SldWorks
$ ]& G7 j% D5 l2 Q9 F4 k, I% d9 e3 j: CSet Part = swApp.ActiveDoc
c = swApp.ActiveDoc.GetTitle() '零件名
blnretval = Part.AddCustomInfo3("", "數量", swCustomInfoText, d.Item(c))
    '單個零件寫入數據結束

Part.Save
swApp.CloseDoc myPath & myFile
# _8 K1 O# H1 v+ S8 N5 dmyFile = Dir '找尋下一個*.文件
: G1 F$ Q1 L+ i; H  g" P- n; i; yLoop
0 j5 a3 b  \0 J0 W0 p& e'將字典數據逐個寫入到零件結束
End Sub
1 V; S, ^4 c0 V4 \4 J

hdgd501

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

Miles_chen

樓主這個，數量寫入 需要是都改為一個數量吧 不然容易出錯
) Y0 @) ^, {7 A/ d我之前選擇的方式是：excel 內輸入bom表，零件名稱 及 需要寫入的屬性
然后通過excel 調用SW，逐個打開part，寫入cell內的數量 或者 其他屬性，再關閉

Miles_chen

哦 剛開始沒看清
你是全部寫到 數組里，然后做對比……，以裝配體樹結構為準
9 H+ p" H! o( r. [  J  }我是直接按excel 零件名，順序調用打開文件 ，以excel為準