【実務・中級編】【中級者向け】表のデータをXML形式でエクスポートし、外部システムとの連携準備を行う – Word VBA解析バイブル

【極限の設計思想】Word VBAによる表データのXMLエクスポート：文字列結合を捨て、DOMを掌握せよ

現場のエンジニア諸君、よく聞いてほしい。
「Wordの表のデータを、外部システムに取り込めるようにテキストで出しておいて」
クライアントや上司からそう言われたとき、君たちはどう動く？

もし、`str = str & “” & cell.Text & ““` といった、愚直な文字列結合をループの中で繰り返すコードを書こうとしているなら、今すぐその手を止めてほしい。それは「動くコード」ではあっても、プロフェッショナルが作るべき「堅牢なシステム」ではない。

なぜか？ 文字列結合によるXML生成は、特殊文字（`&`, `<`, `>` 等）によるXML構文破壊（XML Injection）のリスクを孕み、データの整合性を担保できないからだ。さらに、Word特有の「セル末尾の制御文字」という罠を考慮しなければ、出力されたデータはゴミ同然となる。

今回は、中級者への脱皮を果たすために、MSXML（Document Object Model）を用いた、型安全で堅牢なXMLエクスポートの実装手法を伝授する。

1. なぜ「文字列結合」はプロの設計として失格なのか

まず、君たちが陥りがちな設計の欠陥をロジカルに指摘しておく。

致命的な欠陥：エスケープ処理の欠如

XMLには厳格な構文ルールがある。セル内に `A & B` というテキストがあった場合、単純な結合では `A & B` となり、これは不正なXMLだ。正しくは `&` とエスケープされなければならない。これを自前で `Replace` 関数を並べて実装するのは、車輪の再発明であり、バグの温床だ。

Word特有の罠：末尾の不可視文字

Wordの `Cell.Range.Text` を取得すると、必ず末尾に `Chr(13) & Chr(7)`（キャリッジリターンとセル区切り文字）が付着する。これを除去せずにエクスポートすれば、外部システム側でパースエラーを起こすか、予期せぬ改行が混入してデータベースのバリデーションに弾かれることになる。

パフォーマンスの劣化

大規模な表（数百行規模）を扱う際、VBAにおける文字列の連結（`&` 演算子）は、連結のたびにメモリ上で新しい文字列オブジェクトを生成するため、計算量が指数関数的に増加する。

2. アーキテクチャの指針：XML DOMの採用

我々が取るべき戦略は、Microsoft XML (MSXML) ライブラリを利用し、メモリ上のDOMツリーを構築してから一気にシリアライズ（書き出し）する方法だ。

これには以下のメリットがある：
1. 自動エスケープ: 特殊文字はDOMライブラリが適切に処理する。
2. 構造の保証: 親ノード・子ノードの関係をオブジェクトとして管理できる。
3. 拡張性: 将来的に属性（Attributes）を追加したくなった際も、コードの変更を最小限に抑えられる。

3. 実装例：プロダクション・グレードのコード

では、実際に使えるコードを示す。このコードを動かすには、VBAエディタの「ツール」→「参照設定」から 「Microsoft XML, v6.0」 にチェックを入れる必要がある。これを忘れるのは、設計者として失格だ。

Option Explicit

''' <summary>
''' Wordの指定したテーブルをXML形式でエクスポートする
''' </summary>
''' <param name="targetTable">対象となるWordのTableオブジェクト</param>
''' <param name="filePath">出力先のフルパス</param>
Public Sub ExportTableToXML(ByRef targetTable As Word.Table, ByVal filePath As String)
    ' MSXML60の参照設定が必須
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim rootNode As MSXML2.IXMLDOMElement
    Dim tableNode As MSXML2.IXMLDOMElement
    Dim rowNode As MSXML2.IXMLDOMElement
    Dim cellNode As MSXML2.IXMLDOMElement
    
    Dim r As Long, c As Long
    Dim cellText As String
    
    ' エラーハンドリングの開始
    On Error GoTo ErrorHandler
    
    ' 1. DOMオブジェクトの初期化
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.validateOnParse = True
    
    ' 2. ルート要素の作成
    Set rootNode = xmlDoc.createElement("DataExport")
    xmlDoc.appendChild rootNode
    
    ' 3. テーブル要素の作成
    Set tableNode = xmlDoc.createElement("Table")
    tableNode.setAttribute "rowCount", CStr(targetTable.Rows.Count)
    rootNode.appendChild tableNode
    
    ' 4. 行とセルのループ処理
    For r = 1 To targetTable.Rows.Count
        Set rowNode = xmlDoc.createElement("Row")
        rowNode.setAttribute "index", CStr(r)
        tableNode.appendChild rowNode
        
        For c = 1 To targetTable.Columns.Count
            ' セルデータの取得とクレンジング
            cellText = CleanCellText(targetTable.Cell(r, c).Range.Text)
            
            ' セル要素の作成
            Set cellNode = xmlDoc.createElement("Cell")
            cellNode.setAttribute "colIndex", CStr(c)
            cellNode.Text = cellText ' ここで自動的にエスケープされる
            
            rowNode.appendChild cellNode
        Next c
    Next r
    
    ' 5. ファイルへの書き出し (UTF-8を指定)
    ' XMLの実装において、エンコーディングの制御は極めて重要だ
    xmlDoc.Save filePath
    
    MsgBox "エクスポートが完了しました: " & filePath, vbInformation, "Success"
    
ExitSub:
    ' オブジェクトの解放（メモリリーク防止）
    Set cellNode = Nothing
    Set rowNode = Nothing
    Set tableNode = Nothing
    Set rootNode = Nothing
    Set xmlDoc = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
           "Error No: " & Err.Number & vbCrLf & _
           "Description: " & Err.Description, vbCritical, "Error"
    Resume ExitSub
End Sub

''' <summary>
''' Word特有のセル末尾制御文字を除去し、データをクレンジングする
''' </summary>
Private Function CleanCellText(ByVal rawText As String) As String
    Dim cleaned As String
    cleaned = rawText
    
    ' Wordのセル末尾にある Chr(13) & Chr(7) を除去
    ' 非常に泥臭いが、ここを怠るとシステム連携で必ず死ぬ
    If Len(cleaned) > 2 Then
        cleaned = Left(cleaned, Len(cleaned) - 2)
    End If
    
    ' 前後の余計な空白や改行も、要件に応じてトリミングする
    CleanCellText = Trim(cleaned)
End Function

''' <summary>
''' テスト実行用メインルーチン
''' </summary>
Sub TestExport()
    Dim doc As Word.Document
    Dim tbl As Word.Table
    Dim savePath As String
    
    Set doc = ActiveDocument
    
    ' 文書内にテーブルが存在するかチェック
    If doc.Tables.Count = 0 Then
        MsgBox "対象のテーブルが見つかりません。", vbExclamation
        Exit Sub
    End If
    
    Set tbl = doc.Tables(1)
    savePath = ThisDrawing.Path & "\TableExport_" & Format(Now, "yyyymmdd_hhnnss") & ".xml"
    ' ※ 注意: ThisDrawingはExcel用なので、Wordの場合は以下のように指定
    savePath = Environ("USERPROFILE") & "\Desktop\TableExport.xml"
    
    Call ExportTableToXML(tbl, savePath)
End Sub

4. 開発リーダーからの技術的アドバイス

このコードをベースに、実務へ投入する際は以下の3点を必ず意識せよ。

① エンコーディングの管理

`xmlDoc.Save` は、デフォルトで適切なエンコーディングを付与するが、外部システム（特に古いレガシーシステム）が `UTF-8` ではなく `Shift-JIS` を要求してくるケースがある。その場合は、XMLの宣言部（``）を書き換える、あるいは一度ADODB.Streamを経由してエンコード変換を行うといった、一歩踏み込んだ処理が必要になる。

② スキーマ設計（XSD）の検討

「とりあえずXMLで出す」のは良い。しかし、真に堅牢なシステムを目指すなら、受け手側のシステムと XSD (XML Schema Definition) を合意しておくべきだ。データ型（数値なのか文字列なのか）や、必須項目の定義を明確にすることで、VBA側でのバリデーション（例：数値項目に文字が入っていないか）の精度を上げることができる。

③ オブジェクトのライフサイクル

VBAはメモリ管理が甘い。特に `MSXML2.DOMDocument60` のようなCOMオブジェクトを扱う場合、エラー発生時に適切に `Set … = Nothing` を行わないと、メモリリークを引き起こし、Wordのプロセスが不安定になる原因となる。`ErrorHandler` 内での解放処理は、決して省略してはならない。

まとめ

「動けばいい」という思考は、技術的負債を積み上げるだけの行為だ。
Word VBAという、一見するとレガシーに見えるツールであっても、DOMの概念、エスケープ処理、データのクレンジング、そしてエラーハンドリングという、ソフトウェアエンジニアリングの基本を徹底することで、極めて強力な統合基盤へと昇華させることができる。

君たちが書くコードが、単なる「自動化スクリプト」で終わるのか、それとも「信頼されるシステムの一部」になるのか。その差は、こうした細部への執着にある。

以上だ。作業に戻れ。