Excel VBA ExcelデータをXML形式のファイルに保存

以下のようなシーンで利用されます。

・他のシステムやアプリケーションとのデータ交換が必要

・データのバックアップやアーカイブをXML形式で行う。

・Webアプリケーションやサービスにデータを提供する。

Option Explicit

Sub ExportToXML()
    Dim ws As Worksheet
    Dim xmlDoc As Object
    Dim xmlRoot As Object
    Dim xmlRecord As Object
    Dim lastRow As Long
    Dim i As Long
    
    ' シートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' XMLドキュメントを作成
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    Set xmlRoot = xmlDoc.createElement("Records")
    xmlDoc.appendChild xmlRoot
    
    ' シートのデータをXMLに変換
    For i = 2 To lastRow
        Set xmlRecord = xmlDoc.createElement("Record")
        xmlRecord.setAttribute "ID", ws.Cells(i, 1).Value
        xmlRecord.setAttribute "Name", ws.Cells(i, 2).Value
        xmlRecord.setAttribute "Age", ws.Cells(i, 3).Value
        xmlRoot.appendChild xmlRecord
    Next i
    
    ' XMLファイルとして保存
    xmlDoc.Save ThisWorkbook.Path & "C:\Users\User\Desktop\DataCsv\output.xml"
    
    ' メッセージを表示
    MsgBox "XMLファイルが作成されました。"
End Sub