【CorelDRAW VBAを掌握する極限の知見】第42回：クラッシュした破損CDRファイルのバイナリ構造解析と、VBAによるXMLメタデータの強制サルベージ
CorelDRAWの突然の強制終了、そして「このファイルを開くことができません。ファイルが破損しているか、サポートされていない形式です」という冷酷なダイアログ。デザインの現場において、この瞬間ほどエンジニアの血圧を上げるものはない。
一般的なオペレーターであればバックアップからの復旧を試みるところだが、我々システムエンジニア、そして自動化アーキテクトにその選択肢はない。CorelDRAWのファイル（.cdr）の歴史、特にバージョン11以降の内部構造の本質を知る者にとって、破損したCDRファイルは「死んだデータ」ではなく、「単にインデックスが狂っただけの、リッチなコンテナ」に過ぎない。
今回は、VBAの標準機能およびWindows File I/Oを極限まで駆使し、完全にクラッシュしたCDRファイルのバイナリを直接ハッキングして、内部に格納されているXMLメタデータやプレビューデータを強制サルベージする「自己修復エンジン」の全貌を解説する。
—
1. CorelDRAWファイル（.cdr）の物理構造の真実
まず、大前提として知るべき事実がある。現代のCorelDRAWファイル（バージョン11以降）の本質は、ZIP圧縮されたコンテナ（OLE/COM構造、あるいは単なるZIPアーカイブ）である。
拡張子が `.cdr` であっても、その実態は `.zip` に他ならない。内部には以下の構造が隠されている。
- `mimetype`: ファイルフォーマットの識別子
- `META-INF/`: 暗号化や署名に関するメタデータ
- `content.xml`: すべてのページ、レイヤー、ベクターパスの座標、テキストデータが記述された核心のXML
- `styles.xml`: カラーパレットやスタイルの定義
- `preview/`: サムネイル画像（通常はPNG形式）
通常、CDRファイルが破損するのは、ファイルの末尾にある「ZIPのセントラルディレクトリ（Central Directory）」がクラッシュ時に書き損じられ、アーカイブ全体の構造が読み取れなくなることが原因である。つまり、個々のXMLパーツやバイナリの断片は、ファイル内のどこかに無傷で眠っている確率が非常に高いのだ。
VBAの標準的な `Open` ステートメントとバイナリ読み込み（`Binary Access`）を駆使すれば、ZIPとしての整合性が失われていても、特定のシグネチャ（マジックナンバー）を頼りに、内部のXMLデータを直接切り出すことが可能である。
—
2. アーキテクチャ設計：VBAによるバイナリスキャンとサルベージ
今回構築するサルベージエンジンの要件は以下の通りである。
1. 非破壊的アクセス: 破損ファイルを直接読み込み専用（Binary）でオープンし、OSのファイルロックを回避する。
2. マジックナンバー検索: XMLの開始タグ（`ストリームの抽出: 発見したオフセットから終端シグネチャまでをメモリ上にバッファリングし、独立したXMLファイルとして吐き出す。
4. メモリの極限最適化: 数百MBに及ぶCDRファイルを扱うため、Variant型の乱用を避け、Byte配列による高速処理と確実なメモリ解放を行う。
—
3. 実装コード：破損CDRからXMLを強制抽出するVBAエンジン
以下のコードは、Visual Basic for Applications (VBA) 環境において、Windows File System APIとバイナリ操作を組み合わせた究極のサルベージエンジンの実装例である。
Option Explicit
‘ Win32 API declarations for high-performance memory manipulation (if needed for larger buffers)
‘ 今回はVBAネイティブのByte配列の限界を攻める
Private Const CHUNK_SIZE As Long = 65536 ‘ 64KB Buffer
Public Sub SalvageCdrXmlMetadata()
Dim targetPath As String
Dim outputPath As String
Dim fileNum As Integer
Dim outNum As Integer
Dim fileLen As Double
Dim currentPos As Double
Dim buffer() As Byte
Dim bytesRead As Long
‘ ユーザーに破損ファイルを選択させる
targetPath = Application.GetOpenFilename(“CorelDRAW Files (.cdr), .cdr”, , “破損したCDRファイルを選択してください”)
If targetPath = “False” Then Exit Sub
outputPath & targetPath & “_recovered_content.xml”
On Error GoTo ErrorHandler
‘ バイナリモードでファイルを開く
fileNum = FreeFile
Open targetPath For Binary Access Read As #fileNum
fileLen = LOF(fileNum)
If fileLen = 0 Then
MsgBox “ファイルサイズが0バイトです。処理を中止します。”, vbCritical
Close #fileNum
Exit Sub
End If
outNum = FreeFile
Open outputPath For Binary Access Write As #outNum
‘ ステータス表示
Application.StatusBar = “CDRバイナリのスキャンおよびXMLサルベージを開始…”
currentPos = 1
Dim xmlStarted As Boolean
xmlStarted = False
Do While currentPos <= fileLen
' チャンクサイズ分の読み込み
Dim readSize As Long
If (fileLen - currentPos + 1) >= CHUNK_SIZE Then
readSize = CHUNK_SIZE
Else
readSize = CLng(fileLen – currentPos + 1)
End If
ReDim buffer(1 To readSize)
Get #fileNum, currentPos, buffer
‘ バイナリパターンマッチングの実行 (簡易的にXMLの開始宣言を探す)
Dim i As Long
For i = 1 To readSize
‘ “ 0 Then Close #fileNum
If outNum > 0 Then Close #outNum
Application.StatusBar = “”
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
End Sub
—
4. チーフアーキテクトによるコード解説とメモリ最適化の極意
このコードは単なるファイルコピーではない。以下のアーキテクチャ上の重要な設計思想に基づいている。
1. `FreeFile` の厳格なスコープ管理
マルチスレッド環境や複雑なCorelDRAWアドイン内では、ファイル番号の競合は致命的なバグを引き起こす。`FreeFile` を用いてその都度動的にチャネルを確保し、エラーハンドリング内で確実に `Close` を保証する構造にしている。
2. Byte配列によるメモリの爆発回避
VBAの `String` 型は内部でUTF-16（2バイト/文字）を持つため、バイナリデータをそのまま文字列変数に格納すると、メモリ消費が倍増するだけでなく、意図しない文字コード変換（ANSI/Unicode変換）によってバイナリが破壊される。
`Byte()` 配列を用いることで、生データを一物一価のまま高速にハンドリングすることに成功している。
3. シグネチャ（マジックナンバー）による同期
破損ファイルにおいて、ファイルのヘッダが破損していても、ストリームの途中に存在する `` や、CorelDRAW固有のタグ構造は無傷で残っていることが多い。このコードは、ZIP構造が完全に破壊されていても、ファイル内の「意味のある生データ」を強引に釣り上げるセーフティネットとして機能する。
—
5. サルベージしたXMLからのデータ復旧と実運用への応用
抽出されたXML（通常は `content.xml` に相当するデータ）には、ベクターオブジェクトのパス座標、テキストの文字列、レイヤー構造がツリー状に保持されている。
これをそのままCorelDRAWで読み込ませることはできないが、以下のシステム間連携に応用できる。
- テキスト資産の完全救出: デザイン内の膨大なコピーライトや製品仕様書のテキストが破損した場合でも、抽出されたXMLから正規表現（RegEx）を用いてテキストノードのみを高速に一括抽出し、テキストファイルとして即座に復元できる。
- デザインアセットのインベントリ化: 開けなくなった大量のアーカイブからメタデータを強制的に吸い上げ、社内資産管理DBへステータスを自動登録するバッチ処理の構築。
—
総括
VBAは「おもちゃの言語」などではない。メモリの構造を理解し、Windowsのファイルシステムとバイナリレベルで対話させれば、商用ソフトすら匙を投げた破損ファイルのデータを蘇らせる「最強の救命ツール」に変貌する。
CorelDRAWの自動化に携わるエンジニアであれば、単にマクロで図形を描画するだけでなく、このように「ファイルが壊れた瞬間にどう立ち回るか」という底力を備えておくべきだ。
極限の知見を武器に、あなたの開発環境をさらなる高みへ引き上げてほしい。
