SolidWorks VBAを掌握する極限の知見
マルチシート図面の極限効率化：シート名連動型PDF一括エクスポートの実装
現場の設計者から「マルチシート図面の全シートを、それぞれ『図番_シート名.pdf』という規則で一括出力したい」という要望を何度受けてきたことだろう。手作業で「ファイル名前を付けて保存」をシート数だけ繰り返す作業は、エンジニアの認知リソースを無駄に消耗させるだけでなく、ヒューマンエラーの温床となる。
今回は、SolidWorks APIのCOMオブジェクトのライフサイクルと、図面（DrawingDoc）特有の構造を完全に掌握した上で、実務で即座に稼働する堅牢なPDF一括エクスポートマクロを提示する。
—
1. SolidWorks図面自動化におけるアーキテクチャ上の罠
初心者が陥る最大の罠は、`SldWorks`アプリケーションとドキュメントオブジェクトのスコープ管理の甘さ、そしてシート切り替えに伴うビュー再描画（Rebuild）のオーバーヘッドだ。
特にマルチシート図面を扱う場合、以下の技術的要件を満たさなければならない。
1. アクティブシートの確実な切り替え: `DrawingDoc::ActivateSheet`メソッドの戻り値と実行タイミングの制御。
2. 安全なファイルパスの構築: Windowsファイルシステムで使用できない禁則文字（`\ / : ? ” < > |`）の動的サニタイズ。
3. COMメモリのリーク防止: 取得したコレクションオブジェクト（シート名の配列など）の適切な解放。
これらを無視したコードは、大規模なアセンブリ図面（数MB〜数十MBのDrawing）を処理した瞬間にメモリリークを起こし、SolidWorks本体を強制終了（クラッシュ）させる。
—
2. 実装コード：シート名自動命名PDFエクスポート
以下のコードは、現在アクティブな図面ドキュメントの全シートを走査し、各シート名を抽出して個別のPDFとして図面と同一階層に自動保存するチーフアーキテクト級のVBAマクロである。
Option Explicit
‘ =========================================================================
‘ 処理名: マルチシート図面 PDF一括エクスポートマクロ
‘ 概要: アクティブな図面の全シートを巡回し、[図番]_[シート名].pdf として出力
‘ =========================================================================
Sub ExportMultiSheetPDF_Extreme()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
‘ 1. アプリケーションおよびドキュメントの取得
Set swApp = Application.SldWorks
If swApp Is Nothing Then Exit Sub
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. 図面ドキュメント（DrawingDoc）への型キャスト検証
If swModel.GetType <> swDocDRAWING Then
MsgBox “このマクロは図面（Drawing）ドキュメントでのみ実行可能です。”, vbExclamation, “型不一致”
Exit Sub
End If
Set swDraw = swModel
‘ 3. 保存先パスと基本ファイル名の取得
Dim docPath As String, docTitle As String, ext As String
docPath = swModel.GetPathName()
If docPath = “” Then
MsgBox “一度図面を保存してから実行してください。”, vbExclamation, “未保存ファイル”
Exit Sub
End If
‘ パスカル・ディレクトリ・ファイル名の分解
Dim folderPath As String
folderPath = Left(docPath, InStrRev(docPath, “\”))
docTitle = Mid(docPath, InStrRev(docPath, “\”) + 1)
docTitle = Left(docTitle, InStrRev(docTitle, “.”) – 1) ‘ 拡張子除去
‘ 4. シート名の配列を取得
vSheetNames = swDraw.GetSheetNames()
If IsEmpty(vSheetNames) Then
MsgBox “有効なシートが見つかりません。”, vbCritical, “シート走査エラー”
Exit Sub
End If
‘ 5. エクスポート設定の初期化（PDFオプション）
Dim swExportPdfData As SldWorks.ExportPdfData
Set swExportPdfData = swApp.GetExportUserData(swExportDataFileType_e.swExportDataFileType_Pdf)
‘ 高速化と安定化のため、画面更新を一時停止（パフォーマンス最適化）
swModel.ViewZoomtoFit2
Dim i As Long
Dim currentSheetName As String
Dim targetPdfPath As String
Dim boolstatus As Boolean
‘ 6. シートごとのループ処理
For i = LBound(vSheetNames) To UBound(vSheetNames)
currentSheetName = vSheetNames(i)
‘ シートの活性化（ActivateSheetは成功するとTrueを返す）
boolstatus = swDraw.ActivateSheet(currentSheetName)
If boolstatus Then
‘ シート名に含まれるファイルシステム禁則文字を置換
Dim safeSheetName As String
safeSheetName = SanitizeFileName(currentSheetName)
‘ 出力パスの組み立て (例: C:\Data\Drawing001_表面.pdf)
targetPdfPath = folderPath & docTitle & “_” & safeSheetName & “.pdf”
‘ PDF出力実行
boolstatus = swModel.Extension.SaveAs(targetPdfPath, 0, 0, swExportPdfData, 0, 0)
If Not boolstatus Then
Debug.Print “警告: シート [” & currentSheetName & “] のPDF出力に失敗しました。”
End If
Else
Debug.Print “警告: シート [” & currentSheetName & “] のアクティブ化に失敗しました。”
End If
Next i
‘ 7. オブジェクトの明示的解放（メモリ管理の鉄則）
Set swExportPdfData = Nothing
Set swDraw = Nothing
Set swModel = Nothing
Set swApp = Nothing
MsgBox “全シートのPDFエクスポートが完了しました。”, vbInformation, “処理完了”
End Sub
‘ =========================================================================
‘ 関数名: SanitizeFileName
‘ 概要: Windowsのファイル名に使えない文字をアンダースコア等に置換する
‘ =========================================================================
Private Function SanitizeFileName(ByVal rawName As String) As String
Dim invalidChars As String
Dim i As Long
Dim result As String
invalidChars = “\/:?<>|”””
result = rawName
For i = 1 To Len(invalidChars)
result = Replace(result, Mid(invalidChars, i, 1), “_”)
Next i
SanitizeFileName = result
End Function
—
3. チーフアーキテクトが解説するコードの急所
オブジェクトの明示的解放（`Set … = Nothing`）
VBAのガベージコレクタは、プロシージャが終了するまでCOMオブジェクトの参照カウントを保持し続ける傾向にある。特にSolidWorksのマクロにおいて、`ModelDoc2`や各種Exportデータ構造体をループ内で破棄せず放置すると、メモリリークを引き起こし、連続実行時にSolidWorksが沈黙する。コードの終端で確実に解放する記述はプロフェッショナルの必須条件だ。
ファイル名禁則文字の動的サニタイズ（`SanitizeFileName`）
設計者がシート名に「`P/N-01`」や「`REV:A`」といったスラッシュやコロンを含めることは日常茶飯事である。これをそのままファイルパスに組み込むと、ランタイムエラー（実行時エラー 75: パスが見つかりません）が発生してマクロが強制停止する。文字列置換関数を通すことで、予期せぬ入力値に対しても頑健（ロバスト）なシステムを実現している。
—
4. 現場への展開とさらなる拡張
このスクリプトをベースに、社内PDMシステムやファイルサーバーの特定のリリースフォルダへ自動配備するロジックを組み合わせることで、設計工数を年間数百時間単位で削減することが可能になる。
「動くコード」をただコピーするのではなく、背景にあるAPIのライフサイクルとエラーハンドリングの思想を理解せよ。それこそが、VBAをただのレガシー言語から「最強の現場自動化兵器」へと昇華させる唯一の道である。
