【上級者向け】数千行規模の表を扱う際のメモリ消費を抑える逐次処理テクニック
開発プロジェクトでよくある悲劇の1つがこれだ。「数千行におよぶマスターデータやログデータをWordの表に流し込むマクロを作った。ローカルのテストでは動いたのに、本番環境で数万行を突っ込んだらWordがフリーズし、タスクマネージャーから強制終了するしかなかった……」
なぜこの事故が起きるのか？ 結論から言えば、「一括生成（Bulk Creation）」と「メモリリーク（Memory Leak）の放置」という、Word VBAにおける最大のアンチパターンを踏んでいるからだ。
今回は、数千〜数万行の大規模テーブルを扱う際に、WordのCOMコンポーネントを溺死させず、安定して高速に処理しきるための「逐次処理（Chunk Processing）とメモリ管理の極意」を伝授する。
—
1. なぜ「一括生成」は破滅を招くのか？（非効率な理由）
多くのプログラマブルな初学者は、次のようなコードを書く。
‘ 【絶対やってはいけないアンチパターン】
Dim r As Long
For r = 1 To 10000
‘ ループのたびにオブジェクトの参照を生成し、Wordの内部ヒープを圧迫する
ActiveDocument.Tables(1).Rows.Add
ActiveDocument.Tables(1).Cell(r, 1).Range.Text = “データ ” & r
Next r
このコードの何が問題か？
1. Rangeオブジェクトの暗黙的生成: `ActiveDocument.Tables(1)…` とチェーンメソッドを使うたびに、VBAの裏側で一時的なCOMオブジェクトが生成され、ガベージコレクション（GC）が追いつかなくなる。
2. Undoスタックの肥大化: Wordはデフォルトですべての操作をUndo（元に戻す）スタックに積む。数千行の追加でメモリが枯渇する。
3. 画面描画（ScreenUpdating）の負荷: 1行追加するごとにDOM（ドキュメントオブジェクトモデル）のツリーが再構築され、再描画が発生する。
これを解決するには、「描画の抑制」「Undoの無効化」「チャンク（分割）単位のメモリ解放」の3つを徹底しなければならない。
—
2. 堅牢な大規模テーブル生成のアーキテクチャ
プロダクション環境で耐えうるコードを書くための設計方針は以下の通りだ。
- 画面描画と自動計算の完全停止: `ScreenUpdating` と `Calculation` を止めるのは基本中の基本。
- データソースの切り出し（配列処理）: 外部ファイルやDBからの読み込みは一度メモリ上の二次元配列（Array）に展開し、Wordへの書き込み回数自体を最小化する。
- 定期的なメモリ解放（DoEvents & Set Nothing）: 数千件を一度に処理せず、例えば「500行ごと」にチャンクを切り、明示的にオブジェクト変数を破棄してVBAのメモリフットプリントをクリアにする。
—
3. 【コピペOK】プロダクションコード例
以下に、外部のCSVやデータベースから取得したと想定した数千行のデータを、メモリを枯渇させずに安全にWordの表へ流し込むプロシージャを示す。
Option Explicit
‘ ==============================================================================
‘ 処理名 : GenerateLargeScaleTable
‘ 概要 : 数千行規模のデータを安全にWordテーブルへ流し込む逐次処理サンプル
‘ 備考 : 500行単位のチャンク分割とメモリ解放を実装したプロダクションコード
‘ ==============================================================================
Public Sub GenerateLargeScaleTable()
Dim startTime As Double
startTime = Timer
‘ 1. 環境設定の退避とパフォーマンス最適化
Dim originalScreenUpdating As Boolean
Dim originalCalculation As Long
originalScreenUpdating = Application.ScreenUpdating
originalCalculation = Application.Options.Pagination
Application.ScreenUpdating = False
Application.Options.Pagination = False ‘ ページネーション計算を停止
‘ エラーハンドリングの要（確実に環境を復元するため）
On Error GoTo ErrorHandler
‘ 2. モックデータの生成（実務ではDBやCSVからのバイナリ読み込みに置き換え）
Const TOTAL_ROWS As Long = 5000
Const TOTAL_COLS As Long = 4
Dim masterData() As String
ReDim masterData(1 To TOTAL_ROWS, 1 To TOTAL_COLS)
Dim i As Long, j As Long
For i = 1 To TOTAL_ROWS
masterData(i, 1) = “ID-” & Format(i, “00000”)
masterData(i, 2) = “プロジェクト名_” & i
masterData(i, 3) = Format(DateAdd(“d”, i, Date), “yyyy/mm/dd”)
masterData(i, 4) = IIf(i Mod 2 = 0, “完了”, “進行中”)
Next i
‘ 3. 挿入先ドキュメントの特定とベーステーブルの作成
Dim targetDoc As Document
Set targetDoc = ActiveDocument
Dim targetRange As Range
Set targetRange = targetDoc.Content
targetRange.Collapse wdCollapseEnd
‘ 一括で表の枠組みを作る（行数・列数を最初から指定するのが最も軽い）
Dim mainTable As Table
Set mainTable = targetDoc.Tables.Add(Range:=targetRange, NumRows:=TOTAL_ROWS + 1, NumColumns:=TOTAL_COLS)
‘ テーブルの基本設定（デザインの固定化）
With mainTable
.AllowAutoFit = False
.Rows.CullSpan = True ‘ 内部最適化
‘ ヘッダー行の設定
.Cell(1, 1).Range.Text = “識別子”
.Cell(1, 2).Range.Text = “件名”
.Cell(1, 3).Range.Text = “期限”
.Cell(1, 4).Range.Text = “ステータス”
‘ ヘッダー行の書式設定（1度だけ実行）
With .Rows(1)
.HeadingFormat = True
.Range.Bold = True
.Shading.BackgroundPatternColor = wdColorGray10
End With
End With
‘ 4. 逐次処理（チャンク処理）によるデータの流し込み
Const CHUNK_SIZE As Long = 500 ‘ 500行ごとに処理を区切る
Dim chunkStart As Long, chunkEnd As Long
Dim r As Long, c As Long
Dim currentCellRange As Range
For chunkStart = 1 To TOTAL_ROWS Step CHUNK_SIZE
chunkEnd = chunkStart + CHUNK_SIZE – 1
If chunkEnd > TOTAL_ROWS Then chunkEnd = TOTAL_ROWS
‘ チャンク内のセルにアクセスして値を流し込む
For r = chunkStart To chunkEnd
‘ Wordのテーブルインデックスはヘッダー分を考慮し r + 1
Dim targetRowIndex As Long
targetRowIndex = r + 1
For c = 1 To TOTAL_COLS
‘ セル全体のRangeではなく、Paragraphs(1).Rangeを使うことで余計な改行コードの増殖を防ぐ
Set currentCellRange = mainTable.Cell(targetRowIndex, c).Range
currentCellRange.Text = masterData(r, c)
Set currentCellRange = Nothing
Next c
Next r
‘ 逐次処理のキモ：OSに制御を返し、COMメモリのスパイクを防ぐ
DoEvents
Next chunkStart
‘ 5. 終了処理とパフォーマンス復元
Application.ScreenUpdating = originalScreenUpdating
Application.Options.Pagination = originalCalculation
MsgBox “数千行のテーブル生成が正常に完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常終了時も必ず環境を復元する（これを怠るとWordがフリーズ状態になる）
Application.ScreenUpdating = originalScreenUpdating
Application.Options.Pagination = originalCalculation
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “エラー”
End Sub
—
ジニアスな開発者であれば、上記のコードの細部に宿る「プロのこだわり」に気づいたはずだ。
1. `Tables.Add` で最初から行数を確定させている:
ループ内で `.Rows.Add` を実行すると、DOMの再構築が走り、O(N^2)に近いオーダーで処理が重くなる。最初に `NumRows:=TOTAL_ROWS + 1` として枠を確保し、中身のテキストだけを書き換える（O(N)の線形時間にする）のが鉄則だ。
2. `DoEvents` によるUIスレッドの開放:
数千行の書き込み中に `DoEvents` を挟むことで、OSやWordがメモリのガベージコレクションや描画バッファのフラッシュを行う猶予を与える。これにより「応答なし」判定を回避できる。
3. エラーハンドリングによる確実な環境復元:
`ScreenUpdating = False` や描画停止を行ったままエラーでマクロが落ちると、Wordの画面が真っ白に固まったまま操作不能になる。`On Error GoTo` で必ず元の状態に戻す防壁を張るのが、プロのエンジニアの流儀だ。
—
4. データベースや外部ファイル連携時の注意点
もしこのデータをテキストファイル（CSV）や外部データベース（SQL Server / Access等）から引く場合、以下のアーキテクチャを追加で考慮せよ。
- ADODB.RecordsetのGetRows利用:
一レコードずつ `EOF` までループしてWordに書き込むのは言語道断。`Recordset.GetRows()` を使って一度メモリ上の二次元配列に全データをバッチ取得し、VBAのメモリ空間内で完結させてからWordへ流し込むこと。I/Oの回数を減らすことが速度向上の最大の鍵である。
- メモリの明示的な解放:
処理が終わった大規模配列やRecordsetは、スコープを抜ける前に `Erase masterData` や `rs.Close: Set rs = Nothing` を明示的に呼び出し、VBAのヒープ領域をクリーンに保て。
まとめ
Word VBAはレガシーな言語と侮られがちだが、オブジェクトモデルの挙動とCOMのメモリ管理の仕組みを理解していれば、数万行規模のドキュメント自動生成であっても実用的な速度と安定性で完遂できる。
「動けばいい」というアマチュアのコードから脱却し、「メモリを支配し、フリーズを駆逐する」プロフェッショナルなVBA開発を君のプロジェクトでも実践してほしい。
