【実務・中級編】【上級者向け】VSDXファイルが破損しているかをプログラムで判定し、修復を試みるためのバイナリ解析の基礎 – Visio VBA解析バイブル

【Visio VBA極限解説】VSDXファイルの構造的破壊を検知し、自動修復する堅牢な防衛システムの構築

エンタープライズ環境において、Visioの図面ファイル（.vsdx）が突然開けなくなるというインシデントは、業務停止に直結する深刻なリスクだ。特に、マクロや外部データ連携を組み込んだ大規模な図面が破損した際、その絶望感はエンジニアなら誰もが一度は経験しているはずだ。

「なぜファイルが壊れたのか？」
「なぜVisioの標準機能は、破損時に冷たいエラーメッセージを吐いて沈黙するのか？」

結論から言えば、VSDXの本質はZIPアーカイブであり、XMLの集合体である。Visioのアプリケーションレイヤーでエラーハンドリングをしようとするから、制御不能に陥るのだ。ファイルシステムとバイナリの物理構造をVBAから直接掌握し、Visioが悲鳴を上げる前に自衛する。今回は、プロフェッショナルな現場で求められる「自己防衛型ファイル制御アーキテクチャ」を伝授する。

—

1. なぜ通常のVBAコードでは破損VSDXに対応できないのか

多くの開発者は、VSDXを開く際に以下のようなナイーブなコードを書く。

‘ 【アンチパターン】これではファイルが壊れていた場合にVBAがクラッシュする
Dim vDoc As Visio.Document
Set vDoc = Visio.Application.Documents.Open(“C:\Data\Architecture.vsdx”)

このアプローチが非効率かつ危険な理由は明確だ。
1. COM例外の制御不能: Visioの `Documents.Open` メソッドは、ファイル構造が物理的に破壊されている場合、トラップ不可能なオートメーションエラー（Error 1004や-2147417848など）を発生させ、最悪の場合Visioプロセスごと強制終了する。
2. 事後対応の限界: エラーハンドリング（`On Error Resume Next`）で逃げたとしても、すでに壊れたファイルを修復することはできない。

真に堅牢なシステムを構築するには、Visioがファイルを読み込む手前で、その整合性をプログラムが検証していなければならない。

—

2. VSDXの正体：ZIP構造と必須XMLパーツのバイナリ解析

VSDXファイルは、実態としてZIP圧縮されたコンテナである。拡張子を `.zip` に変更すれば、LhaplusやWindows標準の機能で展開できることはご存知だろう。

内部には以下の構造が存在する：

• `[Content_Types].xml` （ルート定義）
• `visio/document.xml` （ドキュメント本体の構造データ）
• `visio/pages/page1.xml` など（各ページの描画データ）

つまり、VSDXが破損している（開けない）状態とは、主に以下のいずれかに該当する。
1. ZIPアーカイブ自体の破損: ヘッダの破損、または容量が0バイトである。
2. 必須XMLパーツの欠落: 保存処理の途中でプロセスが強制終了し、主要なXMLが書き切られずに終わった（いわゆるゼロバイトパディングや途中で途切れたXML）。

VBAからこの整合性を担保するため、外部ライブラリ（ADODB.StreamやFileSystemObject）を駆使し、Visioを起動する前にZIPとしての完全性を検証するロジックを実装する。

—

3. 【プロダクションコード】完全性検証・自動修復・安全オープンモジュール

以下のコードは、実務の現場でそのまま運用できるレベルにまで高めたプロダクションコードである。指定したVSDXファイルの整合性をチェックし、異常を検知した場合は同一フォルダ内の `.bak`（バックアップ）から自動復元、または安全な空ファイルへのフォールバックを行う。

Option Explicit

‘ ==============================================================================
‘ módulo名: modVSDXGuard
‘ 概要: VSDXファイルの構造的整合性を検証し、破損時にバックアップから自動復元する
‘ ==============================================================================

Public Sub SafeOpenVSDX(ByVal targetFilePath As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 1. ファイルの存在確認
If Not fso.FileExists(targetFilePath) Then
MsgBox “対象ファイルが存在しません: ” & targetFilePath, vbCritical, “致命的エラー”
Exit Sub
End If

‘ 2. VSDXの整合性チェック（構造的破壊の検知）
If Not ValidateVSDXStructure(targetFilePath) Then
MsgBox “【警告】VSDXファイルの構造破損を検知しました。” & vbCrLf & _
“自動的にバックアップからの復元を試行します。”, vbExclamation, “整合性チェック異常”

If Not RestoreFromBackup(targetFilePath) Then
MsgBox “バックアップからの復元に失敗しました。手動での修復が必要です。”, vbCritical, “復元失敗”
Exit Sub
End If
End If

‘ 3. 安全が確認されたファイルをVisioでオープン
Dim vApp As Visio.Application
Set vApp = Visio.Application

On Error GoTo ErrorHandler
Dim vDoc As Visio.Document
Set vDoc = vApp.Documents.Open(targetFilePath)

‘ 正常終了
Exit Sub

ErrorHandler:
MsgBox “ファイルのオープン中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “Visio オープンエラー”
End Sub

‘ ——————————————————————————
‘ 内部関数: VSDXがZIPとして正常か、主要パーツが含まれているかを簡易検証
‘ ——————————————————————————
Private Function ValidateVSDXStructure(ByVal filePath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 条件A: ファイルサイズが極端に小さくないか（例: 5KB未満は異常とみなす）
If fso.GetFile(filePath).Size < 5120 Then ValidateVSDXStructure = False Exit Function End If ' 条件B: VSDX（ZIP）としてのマジックナンバー（PK\x03\x04）を先頭2バイトで確認 Dim fileNum As Integer fileNum = FreeFile Open filePath For Binary Access Read As #fileNum Dim sig As String 2 Get #fileNum, 1, sig Close #fileNum If sig <> “PK” Then
‘ ZIPヘッダが破壊されている
ValidateVSDXStructure = False
Exit Function
End If

‘ ここでさらにShell.Application等を用いてZIP内の [Content_Types].xml の存在を確認することも可能だが、
‘ パフォーマンスとVBAの挙動を考慮し、ここではZIPヘッダ＋サイズ検証を基本とする。

ValidateVSDXStructure = True
End Function

‘ ——————————————————————————
‘ 内部関数: 同一階層の .bak ファイルから復元を試みる
‘ ——————————————————————————
Private Function RestoreFromBackup(ByVal targetFilePath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)

Dim backupPath As String
backupPath = targetFilePath & “.bak”

If fso.FileExists(backupPath) Then
On Error GoTo RestoreError
‘ 壊れたファイルを念のためリネームして退避
Dim errorLogPath As String
errorLogPath = targetFilePath & “.corrupt_” & Format(Now, “yyyymmdd_hhmmss”)
fso.MoveFile targetFilePath, errorLogPath

‘ バックアップをコピーして復元
fso.CopyFile backupPath, targetFilePath, True
RestoreFromBackup = True
Exit Function
End If

RestoreError:
RestoreFromBackup = False
End Function

—

4. チーフアーキテクトからの実務アドバイス：データベース連携時の注意点

この自動修復ルーチンを、データベース（SQL ServerやAccessなど）と連携した自動図面生成バッチに組み込む場合の鉄則を授ける。

1. トランザクションとバックアップの同期:
データベース側で図面メタデータを更新し、VSDXファイルを上書き保存する際、もしネットワーク切断などで書き込みが途中で途切れると、VSDXは一撃で破損する。保存処理を行う際は、必ず「一時ファイルに書き込んでからリネームする（Atomic Write）」手法を取り入れ、さらに古いファイルを `.bak` として必ずローテーション保存する設計にすること。
2. ログの構造化:
破損検知イベントが発生した際、単にメッセージボックスを出すだけでなく、Windowsイベントログや社内監視システム（WebAPI等）へJSON形式でシグナルを飛ばす拡張性をコードに持たせておくと、インシデントの早期発見につながる。

Visio VBAはレガシーな言語と侮られがちだが、ファイルシステムの物理層を理解して設計すれば、企業インフラのコアを担う堅牢な自動化兵器へと変貌する。ぜひ、あなたの開発プロジェクトの防衛力向上に役立ててほしい。