屍を超えてデータを救え：破損したVSDXから「シェイプデータ」をサルベージする極限戦術
Visioのファイル形式「VSDX」の正体は、単なるZIP圧縮されたXMLの集合体だ。しかし、このXML構造の一部が破損した瞬間、`Documents.Open`メソッドは無慈悲に「ファイルが破損しています」と告げ、門前払いする。
我々のような自動化の現場において、このエラーは「死」を意味しない。バイナリの断片からシェイプの魂（メタデータ）を抽出する技術を心得ていれば、それは単なる「データ修復作業」に過ぎないからだ。
今日は、Visioのオブジェクトモデルを介さず、VSDXの構造を直接解体し、シェイプデータを救出するための「最終手段」を授ける。
1. VSDXの本質：XMLアーカイブとしての再定義
VSDXは`.zip`拡張子に変えることで解凍できる。中核となるのは `visio/pages/page1.xml` などのXMLファイルだ。ファイルが破損する原因の多くは、ZIPヘッダの破壊か、XML内の特定のタグ不整合にある。
VBAでこれを扱う場合、標準の`FileSystemObject`だけでは力不足だ。バイナリの整合性を無視して強制的にストリームを読み込む必要がある。
2. 実装：XML解析による強制的データ抽出
破損したファイルからシェイプデータを抽出するには、ファイルをZIPとして展開した後、`page.xml`内の `
以下は、破損ファイルからXMLを抽出し、そこに含まれる`Prop`（シェイプデータ）要素を抽出するVB.NET/VBAの要点である。
‘ ※注：大規模なVSDX処理には、メモリ管理のため「MSXML2.DOMDocument6.0」を使用せよ
‘ オブジェクトのライフサイクルを制御し、メモリリークを徹底排除する
Public Sub ExtractShapeDataFromBrokenFile(ByVal zipPath As String, ByVal extractPath As String)
‘ 1. シェルオブジェクトを用いて、破損ファイルを強制展開
‘ 破損していてもZIP構造が一部生きていれば、Shell.Applicationで救出可能
Dim shellApp As Object
Set shellApp = CreateObject(“Shell.Application”)
Dim zipFile As Object
Set zipFile = shellApp.Namespace(zipPath)
‘ 出力先ディレクトリへコピー
shellApp.Namespace(extractPath).CopyHere zipFile.Items
‘ 2. 各ページXMLを巡回し、DOMで解析
‘ MSXML2はノードの解放を明示的に行わないとメモリを食いつぶす
Dim xmlDoc As Object
Set xmlDoc = CreateObject(“MSXML2.DOMDocument.6.0”)
‘ ここでファイル構造を走査し、Shape要素を探索
‘
‘ 破損箇所を回避するため、XPathではなくノード反復処理で走査せよ
End Sub
3. レガシー環境とメモリ最適化の鉄則
このような極限状態の処理では、以下の「エンジニアの作法」を遵守せよ。
- 遅延バインディングの回避: パフォーマンスを最優先し、アーリーバインディング（参照設定）を使用せよ。ただし、配布先が不明な環境では、実行時に`CreateObject`で生成し、`Set obj = Nothing`で確実に破棄するライフサイクル管理を徹底すること。
- 例外処理の階層化: XML解析は「予期せぬタグ欠損」で必ずコケる。`On Error Resume Next`で放置せず、タグ単位でエラーハンドラを書き、破損部位をスキップして次のシェイプへ遷移させるロジックを組め。
- バイナリ・ストリームの直接操作: ファイルがZIPとしてすら開けない場合、`ADODB.Stream`を用いてバイナリとして読み込み、特定のヘッダシグネチャを検索してXMLフラグメントを切り出す必要がある。これはもはやVBAの領域を超えたバイナリハッキングだが、システム管理者としては最後の切り札となる。
4. 救出したデータの復元：新図面への再構成
救出したシェイプデータは、新規図面の `Shape.Add` メソッド、あるいは `Shape.Cells(“Prop.Name”).Formula` に値を流し込むことで再構成できる。
重要なのは、「図面全体を修復しようとしないこと」だ。破損した図面からシェイプデータという「資産」だけを抜き出し、クリーンなテンプレートに移植する。これこそが、アーキテクトが取るべき最もコスト効率の良い選択である。
結びに：技術の「重み」を知る者へ
Visioのファイルが壊れた際、安易に「作り直し」を指示する管理者は三流だ。
システムがブラックボックス化している今、ファイル形式の背後にある構造を理解し、手作業での復旧が不可能な数千個のシェイプを、コードの力で蘇生させる。これこそが、VBAを掌握した者に許された特権である。
この手法は、単なるデータ復旧を超え、あなたの自動化ツールボックスにおける最強の「緊急避難路」となるはずだ。
次は、ADODB.Streamを用いたバイナリ解析の深淵について語ることにしよう。準備はいいか。
