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