SolidWorksとExcelを連携してBOMを自動出力する方法【工数削減の実践手順】

アセンブリが完成したあと、部品表（BOM）をExcelに手動でコピーしていませんか？部品が100点を超えるアセンブリでこれをやると、確認だけで数十分かかります。SolidWorksにはBOMをExcelに直接出力する機能があり、マクロを使えばさらに自動化できます。

この記事でわかること

SolidWorksのBOM（部品表）をExcelに出力する2つの方法
出力したExcelを整形・加工するコツ
VBAマクロで定期出力を自動化するヒント

方法1：図面のBOMテーブルをExcel出力する（最速）
方法2：アセンブリから直接マクロで出力する（自動化向け）
出力したExcelを使いやすく整形するコツ
まとめ

方法1：図面のBOMテーブルをExcel出力する（最速）

SolidWorksで図面を開き、BOM（部品表）を挿入する
BOMテーブルを右クリック →「テーブルを保存」
ファイル形式：「Excel（.xlsx）」を選択
保存先を指定して「保存」

これだけで品番・品名・員数がExcelに出力されます。最も簡単な方法で、特別な設定は不要です。

方法2：アセンブリから直接マクロで出力する（自動化向け）

図面を開かずに、アセンブリファイルから直接部品情報をExcelに書き出すVBAマクロを使う方法です。以下はコピペで使えるサンプルコードです。

' SolidWorksアセンブリからBOMをExcel出力するマクロ
' 使い方：SolidWorksでアセンブリを開いた状態でマクロを実行する

Dim swApp As Object
Dim swModel As Object
Dim swAssy As Object
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim compList As Object
Dim comp As Object
Dim i As Integer

Sub ExportBOM()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        MsgBox "SolidWorksでアセンブリを開いてから実行してください。"
        Exit Sub
    End If
    
    ' Excelを起動
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Sheets(1)
    
    ' ヘッダー行を設定
    xlSheet.Cells(1, 1).Value = "品番"
    xlSheet.Cells(1, 2).Value = "品名"
    xlSheet.Cells(1, 3).Value = "数量"
    xlSheet.Cells(1, 4).Value = "材質"
    
    ' アセンブリのコンポーネントを取得
    Set swAssy = swModel.GetActiveConfiguration.GetRootComponent
    Set compList = swAssy.GetChildren
    
    i = 2
    Dim comp2 As Object
    For Each comp2 In compList
        Dim swPart As Object
        Set swPart = comp2.GetModelDoc2
        If Not swPart Is Nothing Then
            xlSheet.Cells(i, 1).Value = swPart.GetCustomInfoValue("", "品番")
            xlSheet.Cells(i, 2).Value = swPart.GetTitle
            xlSheet.Cells(i, 3).Value = comp2.GetSuppression
            xlSheet.Cells(i, 4).Value = swPart.GetCustomInfoValue("", "材質")
            i = i + 1
        End If
    Next comp2
    
    MsgBox "BOM出力完了。" & i - 2 & "件の部品を出力しました。"
End Sub

マクロの実行方法