【極限の設計】Visio ステンシル資産の完全自動棚卸し：マスター情報の抽出とExcel連携における「堅牢なアーキテクチャ」
エンジニア諸君、現場で「動けばいい」という思考でコードを書いていないか？
「ステンシル内のマスターを一覧化してExcelに出力する」——一見すると、初学者向けの単純なタスクに見えるだろう。しかし、実務における「プロダクション・コード」の定義は、単なるループ処理の完遂ではない。
「予期せぬファイル欠損、メモリリーク、COMオブジェクトの競合、そして保守性の欠如。これら全ての不確実性を、設計によってねじ伏せているか？」
もし君が、VisioとExcelという巨大なCOM（Component Object Model）の世界を跨ぐツールを作るなら、その問いに答えられる設計でなければならない。本記事では、単なるコードの書き方ではなく、プロフェッショナルが実践する「資産管理ツールとしての設計思想」を伝授する。
1. アーキテクチャの核心：関心の分離 (Separation of Concerns)
多くの開発者が犯す最大のミスは、Visioのループ処理の中に、Excelのセルへの書き込み処理を直接書き込んでしまうことだ。
' --- アンチパターン：密結合な設計 ---
For Each master In stencil.Masters
' Visioの操作とExcelの操作が混在している
Set xlCell = xlSheet.Cells(i, 1)
xlCell.Value = master.Name
' ...
Nextこれでは、出力先をExcelからCSVに変えたい、あるいはデータ抽出ロジックをテストしたいと思った瞬間に、コード全体が瓦解する。
我々が目指すべきは、「データの抽出（Visio）」と「データの出力（Excel）」を完全に分離した、疎結合な設計である。
1. Data Layer: マスターの情報を格納する独自の構造体（User Defined Type）またはクラスを定義する。
2. Extraction Engine: ステンシルを解析し、構造体のコレクション（Collection）を生成する。
3. Output Engine: コレクションを受け取り、指定されたフォーマット（Excel）へ書き出す。
この「三層構造」こそが、バグを最小化し、変化に強いツールを生む。
2. 致命的な落とし穴：COMオブジェクトのライフサイクル
VisioとExcelを跨ぐ自動化において、最も恐ろしいのは「ゾンビプロセス」だ。
エラーが発生してスクリプトが止まった際、背後で `Excel.exe` や `Visio.exe` がメモリに居座り続ける。これは、サーバーサイドでの自動化や、大量のファイルを処理するバッチ処理において、致命的なリソース枯渇を招く。
設計上の鉄則は、「開いたものは必ず閉じる」「エラーが発生しても、必ず解放処理（Clean-up）を通る」こと。これには `On Error GoTo` によるエラーハンドリングの徹底が不可欠だ。
3. プロダクション・グレードのコード実装
では、実際に現場で投入可能な、堅牢な設計に基づいたコードを示そう。
ここでは、マスターの名前、ID、およびカスタムプロパティ（Shape Data）を抽出する仕様とする。
事前準備
- VBAエディタの `Tools` -> `References` から、Microsoft Excel Object Library にチェックを入れておくこと（早期バインディングによる高速化とインテリセンスの活用のため）。
Option Explicit
' --- 1. Data Layer: マスター情報を保持する構造体 ---
' 情報を一つの塊として扱うことで、ロジックの分離を実現する
Private Type MasterMetadata
MasterName As String
MasterID As String
Description As String ' Shape Dataから取得するプロンプト情報
End Type
''' <summary>
''' メインルーチン：全体のワークフローを制御する
''' </summary>
Public Sub ExecuteMasterInventory()
Dim stencilPath As String
Dim excelPath As String
Dim masterList As Collection
' 設定値（本来はダイアログや設定ファイルから取得すべき）
stencilPath = "C:\Path\To\Your\Stencil.vssx"
excelPath = "C:\Path\To\Output\MasterInventory.xlsx"
On Error GoTo ErrorHandler
' ステップ1: データ抽出
Debug.Print "Starting extraction..."
Set masterList = ExtractMasterData(stencilPath)
' ステップ2: データ出力
Debug.Print "Starting export..."
ExportToExcel masterList, excelPath
MsgBox "Inventory completed successfully!", vbInformation
Exit Sub
ErrorHandler:
MsgBox "Critical Error: " & Err.Description, vbCritical, "Process Aborted"
' ここで必要に応じてログ出力等のクリーンアップを行う
End Sub
''' <summary>
''' Visioステンシルからマスター情報を抽出し、コレクションとして返す
''' </summary>
Private Function ExtractMasterData(ByVal filePath As String) As Collection
Dim visApp As Visio.Application
Dim stencilDoc As Visio.Document
Dim master As Visio.Master
Dim masterCol As New Collection
Dim meta As MasterMetadata
Set visApp = Visio.Application
' ステンシルのオープン（読み取り専用）
' OpenExを使用することで、既存のプロセスへの干渉を制御する
Set stencilDoc = visApp.Documents.OpenEx(filePath, visOpenReadOnly)
On Error GoTo Cleanup
For Each master In stencilDoc.Masters
' 構造体への格納
meta.MasterName = master.NameU ' Unformatted Nameを使用（堅牢性の確保）
meta.MasterID = master.ID
' プロンプト情報（Shape Dataの'Description'行を想定）の抽出
' マスター自体にShapeDataを持つことは稀なため、
' 実際にはマスターの代表的なShapeから取得するロジックが必要
meta.Description = GetMasterDescription(master)
masterCol.Add meta
Next master
Set ExtractMasterData = masterCol
GoTo Cleanup
Cleanup:
If Not stencilDoc Is Nothing Then stencilDoc.Close
' Visioオブジェクトの解放
Set stencilDoc = Nothing
Set visApp = Nothing
If Err.Number <> 0 Then Err.Raise Err.Number, , Err.Description
End Function
''' <summary>
''' マスターのプロパティ（Shape Data）から説明文を抽出する
''' </summary>
Private Function GetMasterDescription(ByVal master As Visio.Master) As String
' マスターの最初のシェイプから情報を取得する実装例
' 本来は業務要件に合わせ、特定の行（Row）をターゲットにする
On Error Resume Next
Dim shp As Visio.Shape
Set shp = master.Shapes(1)
' Shape Data (Custom Properties) から 'Description' を探す
' ここでは簡略化のため、特定の行名が存在するかチェック
If shp.CellExists("Prop.Description", 0) Then
GetMasterDescription = shp.Cells("Prop.Description").ResultStr(0)
Else
GetMasterDescription = ""
End If
On Error GoTo 0
End Function
''' <summary>
''' コレクションを受け取り、Excelへ書き出す
''' </summary>
Private Sub ExportToExcel(ByVal dataCol As Collection, ByVal savePath As String)
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim i As Long
Dim item As Variant
Dim meta As MasterMetadata
' Excelインスタンスの生成
Set xlApp = New Excel.Application
xlApp.Visible = False ' バックグラウンド処理
Set xlWB = xlApp.Workbooks.Add
Set xlSheet = xlWB.Sheets(1)
' ヘッダーの作成
With xlSheet
.Cells(1, 1).Value = "Master Name (U)"
.Cells(1, 2).Value = "Master ID"
.Cells(1, 3).Value = "Description/Prompt"
.Range("A1:C1").Font.Bold = True
End With
' データ書き込み
i = 2
For Each item In dataCol
' Variantから構造体へ再キャスト（VBAの制約上必要）
' ※実際にはCollectionにClassを格納する方がより洗練される
' ここでは簡略化のため、型変換を意識したループ
meta = item
xlSheet.Cells(i, 1).Value = meta.MasterName
xlSheet.Cells(i, 2).Value = meta.MasterID
xlSheet.Cells(i, 3).Value = meta.Description
i = i + 1
Next item
' 書式の整形
xlSheet.Columns("A:C").AutoFit
' 保存とクリーンアップ
xlWB.SaveAs savePath
xlWB.Close
xlApp.Quit
' COMオブジェクトの明示的な解放（これが重要！）
Set xlSheet = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
End Sub4. アーキテクトの視点：なぜこのコードなのか
このコードが、巷にある「コピペ用スクリプト」と一線を画す理由は以下の3点だ。
① `NameU` (Unformatted Name) の採用
`master.Name` は、ユーザーの言語設定によって表示名が変わる可能性がある。システム的な管理台帳を作るなら、言語に依存しない `NameU` を使うのが鉄則だ。これを行わないと、多言語環境のPCで実行した際にデータが不整合を起こす。
② エラーハンドリングの階層化
`ExtractMasterData` 内でのエラーは、呼び出し元の `ExecuteMasterInventory` でキャッチされる。これにより、「データ抽出に失敗したのか」「Excelへの書き出しに失敗したのか」の切り分けが可能になり、デバッグのコストを劇的に下げる。
③ メモリ管理の徹底
`xlApp.Quit` だけでなく、`Set xlApp = Nothing` を明示的に行っている。また、`OpenEx` で `visOpenReadOnly` を指定することで、他のユーザーが使用中のステンシルを読み込む際の競合リスクを最小限に抑えている。
まとめ
業務自動化における真の価値は、「動くものを作る」ことではなく、「運用に耐えうるものを作る」ことにある。
今回紹介した「関心の分離」と「ライフサイクル管理」の思想を、君の次のプロジェクトに持ち込んでほしい。コードの行数ではなく、その背後にある設計の堅牢さこそが、エンジニアとしての格の違いを決めるのだ。
Happy Coding.
