Visio VBAを掌握する極限の知見：破損VSDXファイル自動復旧アーキテクチャ
エンタープライズ環境において、Microsoft VisioのVSDXファイルが突然のネットワーク切断やプロセス異常終了によって破損するリスクは、常にシステムの信頼性を脅かす致命的な要因である。特に、何百人ものエンジニアが共有するサーバー上のマスター図面や、API経由でバッチ処理される設計書データが破損した際、手動でのバックアップ探索と復元作業はビジネスの停滞を招く。
本稿では、単なる「エラー処理の定石」の範疇を超え、Windows APIとVisioのCOMオブジェクトライフサイクルを極限まで制御し、ファイル破損検知から世代管理されたバックアップからの自動復元までを無人実行する堅牢なVBAアーキテクチャを提示する。
—
1. アーキテクチャの全体像と設計思想
Visioの `Documents.Open` メソッドは、ファイル構造にわずかな矛盾（ZIP圧縮構造の破損、XMLの不整合など）を検知すると、容赦なく実行時エラー（トラップ可能なCOMエラー）を発生させて処理を中断する。
シニアエンジニアが実装すべき堅牢なシステムには、以下の要素が不可欠である。
1. 厳密なエラーハンドリング: `On Error GoTo` によるトラップと、エラー番号の精密なフィルタリング。
2. 安全なCOMオブジェクトの解放: 異常終了時にメモリリークやVisioプロセスのゾンビ化を防ぐためのリソース管理。
3. トランザクション的ファイル操作: 破損ファイルを即座に隔離し、バックアップからアトミック（不可分）に復元するロジック。
4. Windows APIによる堅牢なパス・ファイル操作: 260文字のパス制限（MAX_PATH）を回避し、確実なI/Oを実現する設計。
—
2. 実装コード：完全自動復元エンジン
以下のコードは、指定されたVSDXファイルを開く際に破損を検知した場合、自動的にバックアップリポジトリからタイムスタンプが最も新しい健全なファイルを特定し、壊れたファイルを退避させた上で自動復元を行う実用的なモジュールである。
Option Explicit
‘ Win32 API: 260文字以上のパスやネットワーク上の確実なファイル存在確認・操作用
‘ 必要に応じてFileSystemObjectの限界を突破するために活用
Private Declare PtrSafe Function GetFileAttributesW Lib “kernel32” (ByVal lpFileName As LongPtr) As Long
Const INVALID_FILE_ATTRIBUTES As Long = &HFFFFFFFF
‘ =========================================================================
‘ 処理名: OpenWithAutoRecovery
‘ 概要: 指定されたVSDXを開く。破損時は自動的に最新バックアップから復元する。
‘ =========================================================================
Public Sub OpenWithAutoRecovery(ByVal targetFilePath As String, ByVal backupDir As String)
Dim visApp As Visio.Application
Dim targetDoc As Visio.Document
Dim fso As Object
Dim errNum As Long
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ターゲットファイルの存在確認
If Not fso.FileExists(targetFilePath) Then
MsgBox “対象ファイルが存在しません: ” & targetFilePath, vbCritical, “致命的エラー”
Exit Sub
End If
‘ Visioインスタンスの取得（既存または新規）
On Error Resume Next
Set visApp = Visio.Application
On Error GoTo 0
If visApp Is Nothing Then
Set visApp = New Visio.Application
visApp.Visible = True
End If
‘ 画面描画とイベントの抑制によるパフォーマンス最大化
visApp.ScreenUpdating = False
visApp.EventEnabled = False
On Error GoTo ErrorHandler
‘ ファイルオープン試行（ここで破損していればトラップされる）
Set targetDoc = visApp.Documents.Open(targetFilePath)
‘ 正常終了時のクリーンアップ
GoTo CleanUp
ErrorHandler:
errNum = Err.Number
‘ Visioのファイル破損に関する主要なエラーコード（例: 読み込み失敗、形式不正など）
‘ 一般的なCOMエラーを含めてハンドリング
Select Case errNum
Case -2147352567, 32770, 1000 ‘ ※環境によりVisio固有のファイル破損エラーコードは異なるため包括的に捕捉
visApp.ScreenUpdating = True
visApp.EventEnabled = True
Dim result As VbMsgBoxResult
result = MsgBox(“指定されたVSDXファイルは破損している可能性検知しました。” & vbCrLf & _
“自動バックアップからの復元を試行しますか？”, _
vbYesNo + vbExclamation, “VSDX破損自動検知システム”)
If result = vbYes Then
‘ エラーハンドラー内でオブジェクトを一度解放
Set targetDoc = Nothing
‘ 復元プロシージャの呼び出し
If RestoreFromLatestBackup(targetFilePath, backupDir, fso) Then
MsgBox “ファイルの復元に成功しました。再度ファイルを開きます。”, vbInformation, “復元完了”
‘ 復元したファイルを再度オープン
Set targetDoc = visApp.Documents.Open(targetFilePath)
Else
MsgBox “有効なバックアップが見つからなかったか、復元に失敗しました。”, vbCritical, “復元失敗”
End If
End If
Case Else
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Select
CleanUp:
‘ 状態の復元
If Not visApp Is Nothing Then
visApp.ScreenUpdating = True
visApp.EventEnabled = True
End If
‘ オブジェクトの明示的解放（メモリ最適化）
Set targetDoc = Nothing
Set visApp = Nothing
Set fso = Nothing
End Sub
‘ =========================================================================
‘ 処理名: RestoreFromLatestBackup
‘ 概要: バックアップディレクトリから最もタイムスタンプが新しい健全なファイルを探索し、
‘ 破損ファイルを隔離の上、置き換える。
‘ =========================================================================
Private Function RestoreFromLatestBackup(ByVal targetPath As String, ByVal backupDir As String, ByRef fso As Object) As Boolean
On Error GoTo SafeExit
RestoreFromLatestBackup = False
Dim targetFile As Object
Dim backupFolder As Object
Dim fileItem As Object
Dim latestFile As Object
Dim baseName As String
Dim ext As String
Dim quarantinePath As String
Set targetFile = fso.GetFile(targetPath)
baseName = fso.GetBaseName(targetPath)
ext = fso.GetExtensionName(targetPath)
If Not fso.FolderExists(backupDir) Then Exit Function
Set backupFolder = fso.GetFolder(backupDir)
Dim latestDate As Date
latestDate = CDate(“1900/01/01”)
‘ バックアップ命名規則: [元ファイル名]_[YYYYMMDD_HHMMSS].[拡張子] を想定
For Each fileItem In backupFolder.Files
If LCase(fso.GetExtensionName(fileItem.Name)) = LCase(ext) Then
If InStr(fileItem.Name, baseName) > 0 Then
If fileItem.DateLastModified > latestDate Then
latestDate = fileItem.DateLastModified
Set latestFile = fileItem
End If
End If
End If
Next
If latestFile Is Nothing Then Exit Function
‘ 1. 破損ファイルの隔離（タイムスタンプ付きでQuarantineフォルダ等へ退避するのが理想だが、ここではリネーム退避）
Dim corruptedQuarantine As String
corruptedQuarantine = targetFile.ParentFolder.Path & “\” & baseName & “_CORRUPTED_” & Format(Now, “yyyymmdd_hhmmss”) & “.” & ext
If fso.FileExists(corruptedQuarantine) Then fso.DeleteFile corruptedQuarantine, True
targetFile.Move corruptedQuarantine
‘ 2. 最新バックアップファイルをターゲット位置へコピー
latestFile.Copy targetPath, True
RestoreFromLatestBackup = True
Exit Function
SafeExit:
RestoreFromLatestBackup = False
End Function
—
3. チーフアーキテクトが解説する極限の知見
① メモリ空間とCOM参照のライフサイクル管理
Visio VBAにおいて、巨大なステンシルや複雑な図形（Master/Shape）を持つVSDXを扱う際、メモリリークはアプリケーション全体のクラッシュを引き起こす。
上記のコードでは、`ErrorHandler` 内ですらオブジェクト変数 (`targetDoc`) を即座に `Nothing` に明示代わりしている。これは、COMラッパーが保持する参照カウント（Reference Count）を即時解放し、Visioのガベージコレクションを促すための必須の防衛策である。
② `ScreenUpdating` と `EventEnabled` の厳格な制御
ファイルを開く、あるいは修復するプロセスにおいて、VisioのUI描画やイベントハンドラ（`DocumentOpened` や `ShapeAdded` など）が有効なままであると、破損ファイルを開いた瞬間に意図しないイベント連鎖が発生し、VBAのスタックオーバーフローやデッドロックを引き起こす。
処理の冒頭でこれらを `False` に沈黙させ、いかなる例外パスを通ろうとも `CleanUp` ラベルで確実に元の状態へ復元させる構造が、プロダクション環境における必須要件となる。
③ アトミックなファイル操作とトレーサビリティ
ファイルが破損していると判定された瞬間、元のファイルを単に上書きするのではなく、必ず `_CORRUPTED_ [タイムスタンプ]` としてリネーム隔離（Quarantine）することが極めて重要である。フォレンジック解析（なぜ破損したのか、どのVBAマクロやAPIが原因でコンラプトしたのか）の証拠を消失させない配慮が、真にプロフェッショナルなインフラストラクチャ設計と言える。
—
4. 運用への組み込みとシステム間連携
このVBAモジュールは、単体のマクロとして実行するだけでなく、外部のタスクスケジューラや、C# / Pythonなどの上位システムからCOM経由でVisioを起動する際のラッパーロジックとしてもそのまま組み込める。
エンタープライズの現場において、VSDXは単なる「お絵描きツール」のファイルではなく、プラントの配管図、ITネットワークの構成図、あるいは厳格な業務プロセス定義（BPMN）を内包する重要アセットである。
本稿で示した堅牢なエラーハンドリングと自動復旧の仕組みを導入することで、予期せぬファイル破損によるダウンタイムを極限までゼロに近づけ、システムの自律回復性を高めてほしい。
