Excel VBAのMSXML（Microsoft XML）ライブラリ：XMLデータの処理とWebサービスの活用

Sub GetDataFromWebService()
    ' MSXMLライブラリの参照設定が必要
    ' 参照設定: Microsoft XML, v6.0

    Dim xmlHttp As MSXML2.XMLHTTP60
    Dim url As String
    url = "https://api.exchangerate-api.com/v4/latest/USD"

    ' XMLHTTPオブジェクトの作成
    Set xmlHttp = New MSXML2.XMLHTTP60

    ' HTTPリクエストの送信
    xmlHttp.Open "GET", url, False
    xmlHttp.send

    ' サーバーの応答を取得
    Dim response As String
    response = xmlHttp.responseText

    ' 応答をメッセージボックスに表示
    MsgBox response, vbInformation, "Webサービスからの応答"

    ' Excelシートにデータを表示
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Cells(1, 1).Value = response

    ' リソースの解放
    Set xmlHttp = Nothing
End Sub

Sub ParseXMLData()
    ' MSXMLライブラリの参照設定が必要
    ' 参照設定: Microsoft XML, v6.0

    Dim xmlDoc As MSXML2.DOMDocument60
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim xmlNodes As MSXML2.IXMLDOMNodeList

    ' XML文書の読み込み
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.Load ("C:\path\to\your\file.xml")

    ' ノードの取得
    Set xmlNodes = xmlDoc.SelectNodes("//YourNodeName")

    ' Excelシートにデータを表示
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)

    Dim i As Integer
    i = 1
    For Each xmlNode In xmlNodes
        ws.Cells(i, 1).Value = xmlNode.Text
        i = i + 1
    Next xmlNode

    ' リソースの解放
    Set xmlDoc = Nothing

    MsgBox "XMLデータの解析が完了しました。", vbInformation, "完了"
End Sub

Sub CreateAndSaveXML()
    ' MSXMLライブラリの参照設定が必要
    ' 参照設定: Microsoft XML, v6.0

    Dim xmlDoc As MSXML2.DOMDocument60
    Dim root As MSXML2.IXMLDOMElement
    Dim child As MSXML2.IXMLDOMElement

    ' 新しいXML文書の作成
    Set xmlDoc = New MSXML2.DOMDocument60

    ' ルート要素の作成
    Set root = xmlDoc.createElement("Root")
    xmlDoc.appendChild root

    ' 子要素の作成
    Set child = xmlDoc.createElement("Child")
    child.Text = "Hello, XML!"
    root.appendChild child

    ' XML文書の保存
    xmlDoc.Save "C:\path\to\your\newfile.xml"

    ' リソースの解放
    Set xmlDoc = Nothing

    MsgBox "XMLデータの作成と保存が完了しました。", vbInformation, "完了"
End Sub