Excel VBA XML形式でデータを出力する

• オブジェクト（必須）
  Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのXmlMaps【ｴｯｸｽｴﾑｴﾙﾏｯﾌﾟｽ】プロパティでXmlMap【ｴｯｸｽﾏｯﾌﾟ】オブジェクトを取得して指定します。
• Url【ﾕｰｱｰﾙｴﾙ】（必須）
  XML形式のデータを出力するファイル名を指定します。パスを含めて指定することができます。
• Overwrite【ｵｰﾊﾞｰﾗｲﾄ】（省略可）
  出力先に同じ名前のファイルが存在したときの保存方法を設定します。

  設定値	内容
  True	上書き保存します。
  False	上書き保存しません。（既定値）

  ※引数Overwrite【ｵｰﾊﾞｰﾗｲﾄ】にFalseを指定、または省略した場合
  出力先に同じ名前のファイルが存在しているとエラーが発生します。

Sub XML形式出力()
Dim myxmlmap As XmlMap
Set myxmlmap = ActiveWorkbook.XmlMaps.Add _
    (Schema:=ThisWorkbook.Path & "¥A事業商品.xsd")
With ActiveSheet.ListObjects("テーブル1")
     .ListColumns(1).XPath.SetValue Map:=myxmlmap, _
        XPath:="/A事業/商品/商品名", Repeating:=True
     .ListColumns(2).XPath.SetValue Map:=myxmlmap, _
        XPath:="/A事業/商品/価格", Repeating:=True
End With
myxmlmap.Name = "A事業商品XmlMap"

Dim 出力結果 As XlXmlExportResult
出力結果 = ActiveWorkbook.XmlMaps("A事業商品XmlMap").Export _
      (Url:=ThisWorkbook.Path & "¥A事業商品.xml", Overwrite:=True)
If 出力結果 = xlXmlExportSuccess Then
       MsgBox ThisWorkbook.Path & "に正常に出力されました。"
ElseIf 出力結果 = xlXmlExportValidationFailed Then
       MsgBox "データの内容がXMLスキーマの定義と一致しません。"
End If
End Sub

13行目【Dim 出力結果 As XlXmlExportResult】
Export【ｴｸｽﾎﾟｰﾄ】メソッドで出力したXML形式ファイルの出力結果を格納する変数「出力結果」を出力結果の定数を表すXlXmlExportResult型で宣言します。

14行目～15行目【出力結果 = ActiveWorkbook.XmlMaps(“A事業商品XmlMap”).Export _
(Url:=ThisWorkbook.Path & “¥A事業商品.xml”, Overwrite:=True)】
Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのXmlMaps【ｴｯｸｽｴﾑｴﾙﾏｯﾌﾟｽ】プロパティで、ブックとの対応付けが済んだXMLスキーマである「A事業商品XmlMap」を表す、XmlMapオブジェクトのExport【ｴｸｽﾎﾟｰﾄ】メソッドを使用してXML形式のデータを出力します。
ここで使用されているXMLスキーマは「XMLスキーマを作成する」をご覧ください。引数Url【ﾕｰｱｰﾙｴﾙ】には、出力するXML形式ファイルの出力先を設定します。出力先は、thisWorkbook.Pathでこのコードが記述されたブックと同じ場所を示し、拡張子は「xml」に設定します。
引数Overwrite【ｵｰﾊﾞｰﾗｲﾄ】は出力先に同じファイルがあった場合、上書き保存をするTrueを設定します。そして、Export【ｴｸｽﾎﾟｰﾄ】メソッドの戻り値である出力結果を変数「出力結果」に代入します。

16行目～17行目【If 出力結果 = xlXmlExportSuccess Then
MsgBox ThisWorkbook.Path & “に正常に出力されました。”】
If【ｲﾌ】ステートメントを使用して条件分岐を行います。XML形式ファイルの出力結果が格納されている変数「出力結果」が「xlXmlExportSuccess」だったとき、つまりファイルが正常に出力されたときを定義して条件が成立した場合は17行目のMsgBox関数でメッセージを出力します。

18行目～19行目【ElseIf 出力結果 = xlXmlExportValidationFailed Then
MsgBox “データの内容がXMLスキーマの定義と一致しません。”】
ElseIf【ｴﾙｽﾞｲﾌ】ステートメントでもう一つの条件式を設定します。変数「出力結果」が「xlXmlExportValidationFailed」のときつまり、データの内容がXMLスキーマの定義の一致していない場合、19行目のMsgBox関数でメッセージを出力します。

• オブジェクト（必須）
  Workbook【ﾜｰｸﾌﾞｯｸ】オブジェクトのXmlMaps【ｴｯｸｽｴﾑｴﾙﾏｯﾌﾟｽ】プロパティでXmlMap【ｴｯｸｽﾏｯﾌﾟ】オブジェクトを取得して指定します。
• Data【データ】（必須）
  データのエクスポート先となる変数を指定します。